求助：七星彩有关
求七个任意数值型字符：如1255543、1870123......1098733
最大连续字符的个数：如1255543最大连续字符应为3（指543递减）
如9870123最大连续字符应为4（指0123递加）
如1098733最大连续字符应为5（指10987递减）
谢谢！！！
*!* 求助：七星彩有关求
*!* 七个任意数值型字符：如1255543、1870123......1098733
*!* 最大连续字符的个数：如1255543最大连续字符应为3（指543递减）
*!* 如9870123最大连续字符应为4（指0123递加）
*!* 如1098733最大连续字符应为5（指10987递减）
*!* 谢谢！！！
X='1098733'
?GETNUMBER(X)
RETURN
FUNCTION GETNUMBER
PARAMETERS lcString
FOR lnCnt=1 TO LEN(lcString)
FOR lnCnt_i=1 TO LEN(lcString)-lnCnt+1
lcStringTemp=SUBSTR(lcString,lnCnt_i,lnCnt)
IF AT(lcStringTemp,'01234567890123456789')>0 OR AT(lcStringTemp,'98765432109876543210')>0
lnNumber=lnCnt
EXIT
ENDIF
ENDFOR
ENDFOR
RETURN lnNumber
