双色球号码，处理重复行

冷水 · 发表于 2014-3-14 12:56:57

本帖最后由冷水于 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]