请看我这一段代码为什么老是出现错误呀,该怎么改正?
中国福利彩票3D12127常规枚举号-01.rar
(631 Bytes)
MODIFY COMMAND 优化1CLEAR
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 编辑 ]