| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 858 人关注过本帖
标题:求助:七星彩有关
只看楼主 加入收藏
三六一八
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2006-6-5
收藏
 问题点数:0 回复次数:2 
求助:七星彩有关

七个任意数值型字符:如1255543、1870123......1098733
最大连续字符的个数:如1255543最大连续字符应为3(指543递减)
如9870123最大连续字符应为4(指0123递加)
如1098733最大连续字符应为5(指10987递减)
谢谢!!!
搜索更多相关主题的帖子: 七星 字符 递减 数值 
2007-05-05 01:23
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 

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


感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2007-05-06 01:27
三六一八
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2006-6-5
收藏
得分:0 
多谢Tiger5392大侠指点
2007-05-06 10:48
快速回复:求助:七星彩有关
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.042671 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved