像是彩票研究?
逐条记录逐个字符比较。
逐条记录逐个字符比较。
[此贴子已经被作者于2015-10-26 18:37编辑过]
坚守VFP最后的阵地
CREATE CURSOR 表1 (序号 I, 结果 V(5)) INSERT INTO 表1 VALUES(1, "05601") INSERT INTO 表1 VALUES(2, "47896") INSERT INTO 表1 VALUES(3, "81222") INSERT INTO 表1 VALUES(4, "48068") INSERT INTO 表1 VALUES(5, "54969") CREATE CURSOR 表2 (序号 I, 结果 V(3)) INSERT INTO 表2 VALUES(1, "005") INSERT INTO 表2 VALUES(2, "048") INSERT INTO 表2 VALUES(3, "128") INSERT INTO 表2 VALUES(4, "379") INSERT INTO 表2 VALUES(5, "468") SELECT 表2 SCAN 不包含 = .T. SELECT 表1 SCAN IF LIKE(转换表2(表2.结果), 转换表1(表1.结果)) 不包含 = .F. EXIT ENDIF ENDSCAN IF 不包含 ? "不包含", 表2.结果 ENDIF ENDSCAN FUNCTION 转换表1(S1) LOCAL i, aS1[LEN(S1)] FOR i = 1 TO ALEN(aS1) aS1[i] = SUBSTR(S1, i, 1) ENDFOR ASORT(aS1) S1 = "" FOR i = 1 TO ALEN(aS1) S1 = S1 + aS1[i] ENDFOR RETURN S1 ENDFUNC FUNCTION 转换表2(S2) LOCAL i, aS2[LEN(S2)] FOR i = 1 TO ALEN(aS2) aS2[i] = SUBSTR(S2, i, 1) ENDFOR ASORT(aS2) S2 = "*" FOR i = 1 TO ALEN(aS2) S2 = S2 + aS2[i] + "*" ENDFOR RETURN S2 ENDFUNC