.版本 2
.支持库 RegEx
.支持库 internet
.支持库 spec
.子程序 刷新
.局部变量 正则1, 正则表达式
.局部变量 正则2, 正则表达式
.局部变量 正则3, 正则表达式
.局部变量 结果2, 搜索结果, , "0"
.局部变量 结果4, 搜索结果, , "0"
.局部变量 结果3, 搜索结果, , "0"
.局部变量 k, 整数型
.局部变量 i, 整数型
.局部变量 SJ, 文本型
.局部变量 JG, 文本型
.局部变量 RQ, 文本型
.局部变量 万位, 整数型
.局部变量 千位, 整数型
.局部变量 百位, 整数型
.局部变量 十位, 整数型
.局部变量 个位, 整数型
.局部变量 add, 整数型
网页 = 到文本 (HTTP读文件 (“http://tubiao.huacai.com/ssc/wufenbu.html”))
' ------------------------------------------------------------
正则1.创建 (#期号 + “[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]”, ) ' 开奖期号
正则2.创建 (#开奖时间 + “[0-9][0-9]:[0-9][0-9]”, ) ' 开奖时间
正则3.创建 (“[0-9],[0-9],[0-9],[0-9],[0-9]”, ) ' 开奖号码
结果4 = 正则1.搜索全部 (网页) ' 行数
结果2 = 正则2.搜索全部 (网页)
结果3 = 正则3.搜索全部 (网页)
.计次循环首 (取数组成员数 (结果4), i)
k = 取数组成员数 (结果4) - i
RQ = 子文本替换 (结果4 .取匹配文本 (网页, ), #期号, “”, , , 真)
SJ = 子文本替换 (结果2 .取匹配文本 (网页, ), #开奖时间, “”, , , 真) //错误断在这里
JG = 结果3 .取匹配文本 (网页, )
超级列表框.插入项目 (, , , , , , )
超级列表框.置数据 (k, 1, RQ, , ) ' 期号数值
超级列表框.置数据 (k, 2, SJ, , ) ' 开奖时间
超级列表框.置数据 (k, 3, 取文本中间 (JG, 1, 1)) ' 万位数值
万位 = 到数值 (取文本中间 (JG, 1, 1))
.如果 (万位 % 2 = 0)
超级列表框.置数据 (k, 8, “双”)
.否则
超级列表框.置数据 (k, 8, “单”)
超级列表框.置表项颜色 (到数值 (k), 8, 颜色选择器1.颜色, 颜色选择器2.颜色)
.如果结束
.如果 (万位 ≤ 4)
超级列表框.置数据 (k, 13, “小”)
.否则
超级列表框.置数据 (k, 13, “大”)
超级列表框.置表项颜色 (到数值 (k), 13, 颜色选择器1.颜色, 颜色选择器2.颜色)
.如果结束
超级列表框.置数据 (k, 4, 取文本中间 (JG, 3, 1)) ' 千位数值
千位 = 到数值 (取文本中间 (JG, 3, 1))
.如果 (千位 % 2 = 0)
超级列表框.置数据 (k, 9, “双”)
.否则
超级列表框.置数据 (k, 9, “单”)
超级列表框.置表项颜色 (到数值 (k), 9, 颜色选择器1.颜色, 颜色选择器2.颜色)
.如果结束
.如果 (千位 ≤ 4)
超级列表框.置数据 (k, 14, “小”)
.否则
超级列表框.置数据 (k, 14, “大”)
超级列表框.置表项颜色 (到数值 (k), 14, 颜色选择器1.颜色, 颜色选择器2.颜色)
.如果结束
超级列表框.置数据 (k, 5, 取文本中间 (JG, 5, 1)) ' 百位数值
百位 = 到数值 (取文本中间 (JG, 5, 1))
.如果 (百位 % 2 = 0)
超级列表框.置数据 (k, 10, “双”)
.否则
超级列表框.置数据 (k, 10, “单”)
超级列表框.置表项颜色 (到数值 (k), 10, 颜色选择器1.颜色, 颜色选择器2.颜色)
.如果结束
.如果 (百位 ≤ 4)
超级列表框.置数据 (k, 15, “小”)
.否则
超级列表框.置数据 (k, 15, “大”)
超级列表框.置表项颜色 (到数值 (k), 15, 颜色选择器1.颜色, 颜色选择器2.颜色)
.如果结束
超级列表框.置数据 (k, 6, 取文本中间 (JG, 7, 1)) ' 十位数值
十位 = 到数值 (取文本中间 (JG, 7, 1))
.如果 (十位 % 2 = 0)
超级列表框.置数据 (k, 11, “双”)
.否则
超级列表框.置数据 (k, 11, “单”)
超级列表框.置表项颜色 (到数值 (k), 11, 颜色选择器1.颜色, 颜色选择器2.颜色)
.如果结束
.如果 (十位 ≤ 4)
超级列表框.置数据 (k, 16, “小”)
.否则
超级列表框.置数据 (k, 16, “大”)
超级列表框.置表项颜色 (到数值 (k), 16, 颜色选择器1.颜色, 颜色选择器2.颜色)
.如果结束
超级列表框.置数据 (k, 7, 取文本中间 (JG, 9, 1)) ' 个位数值
个位 = 到数值 (取文本中间 (JG, 9, 1))
.如果 (个位 % 2 = 0)
超级列表框.置数据 (k, 12, “双”)
.否则
超级列表框.置数据 (k, 12, “单”)
超级列表框.置表项颜色 (到数值 (k), 12, 颜色选择器1.颜色, 颜色选择器2.颜色)
.如果结束
.如果 (个位 ≤ 4)
超级列表框.置数据 (k, 17, “小”)
.否则
超级列表框.置数据 (k, 17, “大”)
超级列表框.置表项颜色 (到数值 (k), 17, 颜色选择器1.颜色, 颜色选择器2.颜色)
.如果结束
.计次循环尾 ()
add = 超级列表框.取表项数 () ÷ 2
调试输出 (add)
万位 = 到数值 (超级列表框.取项目文本 (add - 1, 3))
编辑框3.内容 = 到文本 (万位)
千位 = 到数值 (超级列表框.取项目文本 (add - 1, 4))
编辑框4.内容 = 到文本 (千位)
百位 = 到数值 (超级列表框.取项目文本 (add - 1, 5))
编辑框5.内容 = 到文本 (百位)
十位 = 到数值 (超级列表框.取项目文本 (add - 1, 6))
编辑框6.内容 = 到文本 (十位)
个位 = 到数值 (超级列表框.取项目文本 (add - 1, 7))
编辑框7.内容 = 到文本 (个位)
标签6.标题 = 超级列表框.取项目文本 (add - 1, 1) + “期”
这段代码我用了汉编自绘模块,其他的都是易语言的支持库
昨晚还好好的可以用今天就出问题了
补充内容 (2016-4-18 12:44):
问题出现在获取时间那里估计是网页的开奖时间更新了艹 |