| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 561 人关注过本帖
标题:请看我这一段代码为什么老是出现错误呀,该怎么改正?
只看楼主 加入收藏
chenlingxiao
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2012-5-20
结帖率:100%
收藏
 问题点数:0 回复次数:6 
请看我这一段代码为什么老是出现错误呀,该怎么改正?
中国福利彩票3D12127常规枚举号-01.rar (631 Bytes)
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 编辑 ]
搜索更多相关主题的帖子: 优化 中国福利 彩票3D 
2012-05-26 16:09
taohua300
Rank: 12Rank: 12Rank: 12
来 自:光
等 级:贵宾
威 望:14
帖 子:1636
专家分:3906
注 册:2009-3-11
收藏
得分:0 
Split 是个自定义函数吧 ?

是不是这里出错了

个性太多,无法显示
2012-05-26 16:38
chenlingxiao
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2012-5-20
收藏
得分:0 
不是,这里,是f3=LEFT(c,1)+RIGHT(c,1),当s循环到902时
2012-05-26 16:48
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:400
帖 子:11857
专家分:43421
注 册:2006-5-13
收藏
得分:0 
不知楼主是不习惯写注释还是发贴时删除了注释。没有注释,我们看起来都很费劲。

活到老,学到老!http://www.(该域名已经被ISP盗卖了)E-mail:hu-jj@
2012-05-26 17:09
chenlingxiao
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2012-5-20
收藏
得分:0 
谢谢啊,我自己解决了
2012-05-26 18:44
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
楼主研究福彩3D?
不知这段代码的意思,能否讲解下。

[ 本帖最后由 sdta 于 2012-5-27 00:11 编辑 ]

坚守VFP最后的阵地
2012-05-26 20:18
chenlingxiao
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2012-5-20
收藏
得分:0 
是的,你也研究福彩吗,如果是的话,可以加我QQ810232321
2012-05-27 09:54
快速回复:请看我这一段代码为什么老是出现错误呀,该怎么改正?
数据加载中...
 
   



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

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