第一步:两组数据分别保留本组数据中不相同的号,如第5组数据(355)中的5,最后余35
方法:
C1 = ""
C11= "355"
FOR I = 1 TO LEN(C11)
C111 = SUBSTR(C11, I, 1)
IF NOT C111 $ C1
C1 = C1 + C111
ENDIF
ENDFOR
?C1
第二步:判断后一组数据中的每个数据是否包含在前一组的数据中,如果包含变量加1,最后就得到重复号的个数。
方法:
N1 = 0
C1 = "35"
C2 = "125"
FOR I = 1 TO LEN(C1)
C111 = SUBSTR(C1, I, 1)
IF C111 $ C2
N1 = N1 + 1
ENDIF
ENDFOR
?N1