精易论坛

标题: 双色球号码，处理重复行 [打印本页]
作者: 冷水    时间: 2014-3-14 12:56
标题: 双色球号码，处理重复行
本帖最后由 冷水 于 2014-3-14 12:59 编辑


[e]
.版本 2

.子程序 _按钮1_被单击
.局部变量 sz, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 ii, 整数型

连续赋值 (“”, 编辑框1.内容, 编辑框2.内容)
sz ＝ 分割文本 (编辑框.内容, #换行符, )
.计次循环首 (取数组成员数 (sz), i)
.如果真 (sz ≠ “”)
.判断开始 (寻找文本 (编辑框1.内容, sz , , 假) ＝ -1)
编辑框1.加入文本 (sz ＋ #换行符)
.默认
编辑框2.加入文本 (sz ＋ #换行符)
.判断结束

.如果真结束
处理事件 ()
.计次循环尾 ()
清除数组 (sz)

.子程序 _编辑框_内容被改变
.局部变量 sz, 文本型, , "0"

sz ＝ 分割文本 (编辑框.内容, #换行符, )
标签1.标题 ＝ “待处理:” ＋ 到文本 (取数组成员数 (sz))

.子程序 _编辑框1_内容被改变
.局部变量 sz, 文本型, , "0"

sz ＝ 分割文本 (编辑框1.内容, #换行符, )
标签2.标题 ＝ “处理结果:” ＋ 到文本 (取数组成员数 (sz))

.子程序 _编辑框2_内容被改变
.局部变量 sz, 文本型, , "0"

sz ＝ 分割文本 (编辑框2.内容, #换行符, )
标签3.标题 ＝ “重复数:” ＋ 到文本 (取数组成员数 (sz))


.子程序 _编辑框_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

_编辑框_内容被改变 ()

.子程序 _编辑框1_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

_编辑框1_内容被改变 ()

.子程序 _编辑框2_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

_编辑框2_内容被改变 ()

[/e]
作者: 秋风萧瑟    时间: 2014-3-14 14:18
沙发路过！

作者: 剩下我de孩子气    时间: 2014-3-14 14:29
  能干嘛呢
作者: 无私奉献的树    时间: 2014-3-14 15:50
感觉没用啊 双色球中奖号码又不是算出来的
作者: 冷水    时间: 2014-3-14 21:14
无私奉献的树 发表于 2014-3-14 15:50
感觉没用啊 双色球中奖号码又不是算出来的

不一定就要用在双色球号码，你可以作为其他用途
作者: 小虫虫    时间: 2014-3-15 22:56
如果真 (sz <i> ≠ “”)
错误(14): 存在无效的字符、名称、运算符或表达式。
这语法错误的呀
作者: 冷水    时间: 2014-3-16 13:04
小虫虫 发表于 2014-3-15 22:56
如果真 (sz  ≠ “”)
错误(14): 存在无效的字符、名称、运算符或表达式。
这语法错误的呀

是你抄错了吧
作者: 小虫虫    时间: 2014-3-16 20:46
冷水 发表于 2014-3-16 13:04
是你抄错了吧

没有呀，我是复制的都没抄

搜狗截图14年03月16日2044_1.jpg (28.94 KB, 下载次数: 0)

搜狗截图14年03月16日2044_1.jpg
作者: hui135135    时间: 2014-3-17 21:16
用不了了，纳闷阿
作者: 冷水    时间: 2014-3-19 18:01
小虫虫 发表于 2014-3-16 20:46
没有呀，我是复制的都没抄

处理重复行.zip (11 KB, 下载次数: 37)

你看下你复制做的是不是一样
作者: 宇智波·佐助    时间: 2014-3-22 22:47
不玩            
作者: 168168    时间: 2014-10-24 22:17
看来发现有趣的事了
作者: 虎鲸    时间: 2016-4-25 13:16
可以下载，怎么不在帖子里，在楼层上不好找到啊
作者: 虎鲸    时间: 2017-6-21 17:11
哎呀！这个该觉是不是很邦德的，我要试试能不能使用
作者: godkid    时间: 2017-7-25 16:23
谢谢分享。。。。。。。。。。。。。。。。。。
作者: 易学哲    时间: 2019-6-11 23:53
感谢分享源码
作者: ppppzj    时间: 2019-7-8 11:00
谢谢楼主分享
作者: linlin888    时间: 2019-8-4 22:59
这个不错，喜欢
作者: 易学哲    时间: 2020-11-16 22:26
谢谢你的分享
作者: Maccha    时间: 2022-2-2 10:03

支持楼主！
留个脚印！
赚个铜币！



欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4