求助：谢谢
有10组三位数：
125
256
358
268
584
812
936
765
491
052
表1每小时更新一组随机四位数，与上述10组数对比，只要包含三位数，不管顺序，标记为真！谢谢
如：表1
time          sjhm     jud
8：00       3278     F
9：00       1025     T
10：00     2108     F
11：00     0032     F
12：00     0936     T
13：00     1049     T
14：00     3066     F

10：00     2108     F
2108 与 812 不是符合要求吗

用减法

对，符合，我写错了

10：00     2108     T

把被检测的数值转为字符型
以个第一个125为例
xx='125'
sn=0
for i=1 to 3
  zf=subs(xx,i,1)  
  if zf$allt(str(被检测的4位数值))
    sn=sn+1
  endif
endfor
if sn=3
  ? xx+'  结果为　真'  
endif
需要一次完成，多加几个循环就可以了

厉害啊厉害

ALINES(ahm, "125,256,358,268,584,812,936,765,491,052", ",")
?? fun("3278")
?? fun("1025")
?? fun("2108")
?? fun("0032")
?? fun("0936")
?? fun("1049")
?? fun("3066")

FUNCTION fun(sjhm)
    ? sjhm," "
    FOR i=1 TO ALEN(ahm)
        IF EMPTY(CHRTRAN(ahm[i],sjhm,""))
            RETURN .T.
        ENDIF
    ENDFOR
    RETURN .F.
ENDFUNC

3位数中不会出现重复（例如：122）的吗？

3位不会有重复
表1是每小时更新，记录不断增加，每条记录都要判断一次真假！

[此贴子已经被作者于2021-8-24 10:22编辑过]

大哥，判断四位数要到表1查找，上万条记录不能都写程序里呀，谢谢您😀