MODIFY COMMAND 优化1
CLEAR

DIMENSION aArray[1]
aAr=FILETOSTR("D:\1球数\中国福利彩票3D$2012127常规枚举号-01.txt" )
Split(@aArray, aAr, CHR(10))
aaa= ALEN(aArray,1)
FOR n = 1 TO aaa
hm=aarray(n)
g1 = Left(hm, 1)
g2 = Right(hm, 1)
g3 = SUBSTR(hm,2,1)
FOR s=n+1 to aaa-1
c = aArray[s]
f3=LEFT(c,1)+RIGHT(c,1)
If at(c, g1+g3) > 0 Or at(c, g2+g3)> 0 Or g1+g2 = f3 Or at(c, g3+g1) > 0 Or at(c, g3+g2) > 0  Then
= ADEL(aArray, s)
s = s - 1
aaa= aaa-1
ENDIF
endfor
  DISPLAY MEMORY   
ENDFOR

RETURN

*----------------------
* 功能：把一个字符串按指定的分隔符分割成数组
* 参数：    taArray -- 返回的数组（在调用处用地址传递方式传入，用于返回）
*          tcString -- 被分割的源字符串
*       tcDelimiter -- 分隔字符串
* 返回：分割出的数组的元素数目
*----------------------
FUNCTION Split(taArray, tcString, tcDelimiter)
    LOCAL lnCount, lnIndex
   
    lnCount = GETWORDCOUNT(tcString, tcDelimiter)
    DIMENSION taArray[lnCount]      && 不管传入的数组原来是怎样的，都重新分配
    FOR lnIndex = 1 TO lnCount
        taArray[lnIndex] = GETWORDNUM(tcString, lnIndex, tcDelimiter)
    NEXT
   
    RETURN lnCount
   
ENDFUNC


[ 本帖最后由 chenlingxiao 于 2012-5-26 16:46 编辑 ]

不是，这里，是f3=LEFT(c,1)+RIGHT(c,1)，当s循环到902时

谢谢啊，我自己解决了

是的，你也研究福彩吗，如果是的话，可以加我QQ810232321