求助:七星彩有关
求七个任意数值型字符:如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