为了取新开一期shishi彩数据做的自动生成代码的小工具

liuguowang75

为了取新开一期shishi彩数据做的自动生成代码的小工具，省了正则搜索的时间了
喜欢的可以拿去

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

如果真 (编辑框_网址.内容 ≠ “”)
' 编辑框_网页文本.内容 ＝ 超速读取网页源码 (“http://chart.cp.360.cn/zst/getch ... 01&chartType=x5”)
' 编辑框_网页文本.内容 ＝ 超速读取网页源码 (“http://chart.cp.360.cn/zst/getch ... 3110056445#roll_132”)
编辑框_网页文本.内容 ＝ 超速读取网页源码 (编辑框_网址.内容)
编辑框_网页文本长度.内容 ＝ 到文本 (取文本长度 (编辑框_网页文本.内容))
编辑框_正向结果.内容 ＝ 取文本中间 (编辑框_网页文本.内容, 到数值 (编辑框_位置.内容) ＋ 1, 到数值 (编辑框_数值1.内容)) ＋ “ ” ＋ 取文本中间 (编辑框_网页文本.内容, 到数值 (编辑框_位置.内容) ＋ 1 ＋ 到数值 (编辑框_数值1.内容) ＋ 到数值 (编辑框_位差.内容), 到数值 (编辑框_个数.内容))
编辑框_反向结果.内容 ＝ 取文本右边 (取文本中间 (编辑框_网页文本.内容, 1, 倒找文本 (编辑框_网页文本.内容, 编辑框_关键字.内容, , 假) － 到数值 (编辑框_位置5.内容) － 到数值 (编辑框_个数2.内容) － 1), 10) ＋ “ ” ＋ 取文本右边 (取文本中间 (编辑框_网页文本.内容, 1, 倒找文本 (编辑框_网页文本.内容, 编辑框_关键字.内容, , 假) － 1), 到数值 (编辑框_个数2.内容))

子程序名	返回值类型	公开	备 注
_编辑框_测试文本_内容被改变

编辑框_长度结果.内容 ＝ 到文本 (取文本长度 (编辑框_测试文本.内容))

子程序名	返回值类型	公开	备 注
_按钮_清空_被单击

编辑框_测试文本.内容 ＝ “”

子程序名	返回值类型	公开	备 注
_按钮_粘贴_被单击

编辑框_测试文本.内容 ＝ 取剪辑板文本 ()

子程序名	返回值类型	公开	备 注
_按钮_复制_被单击

置剪辑板文本 (编辑框_测试文本.内容)

子程序名	返回值类型	公开	备 注
_按钮_复制选中文本_被单击

置剪辑板文本 (编辑框_网页文本.被选择文本)
_按钮_查询起始及选中文本数_被单击 ()

子程序名	返回值类型	公开	备 注
_按钮_查询起始及选中文本数_被单击

编辑框_起始位置.内容 ＝ 到文本 (编辑框_网页文本.起始选择位置)
编辑框_选中个数.内容 ＝ 到文本 (编辑框_网页文本.被选择字符数)

子程序名	返回值类型	公开	备 注
_按钮_读取网页源码_被单击

编辑框_网页文本.内容 ＝ 超速读取网页源码 (编辑框_网址.内容)
编辑框_网页文本长度.内容 ＝ 到文本 (取文本长度 (编辑框_网页文本.内容))
编辑框_正向结果.内容 ＝ 取文本中间 (编辑框_网页文本.内容, 到数值 (编辑框_位置.内容) ＋ 1, 到数值 (编辑框_数值1.内容)) ＋ “ ” ＋ 取文本中间 (编辑框_网页文本.内容, 到数值 (编辑框_位置.内容) ＋ 1 ＋ 到数值 (编辑框_数值1.内容) ＋ 到数值 (编辑框_位差.内容), 到数值 (编辑框_个数.内容))
编辑框_反向结果.内容 ＝ 取文本右边 (取文本中间 (编辑框_网页文本.内容, 1, 倒找文本 (编辑框_网页文本.内容, 编辑框_关键字.内容, , 假) － 到数值 (编辑框_位置5.内容) － 到数值 (编辑框_个数2.内容) － 1), 10) ＋ “ ” ＋ 取文本右边 (取文本中间 (编辑框_网页文本.内容, 1, 倒找文本 (编辑框_网页文本.内容, 编辑框_关键字.内容, , 假) － 1), 到数值 (编辑框_个数2.内容))

子程序名	返回值类型	公开	备 注
_按钮_测试_被单击

编辑框_正向结果.内容 ＝ 取文本中间 (编辑框_网页文本.内容, 到数值 (编辑框_位置.内容) ＋ 1, 到数值 (编辑框_数值1.内容)) ＋ “ ” ＋ 取文本中间 (编辑框_网页文本.内容, 到数值 (编辑框_位置.内容) ＋ 1 ＋ 到数值 (编辑框_数值1.内容) ＋ 到数值 (编辑框_位差.内容), 到数值 (编辑框_个数.内容))

子程序名	返回值类型	公开	备 注
_按钮_测试1_被单击

编辑框_反向结果.内容 ＝ 取文本右边 (取文本中间 (编辑框_网页文本.内容, 1, 倒找文本 (编辑框_网页文本.内容, 编辑框_关键字.内容, , 假) － 到数值 (编辑框_位置5.内容) － 到数值 (编辑框_个数2.内容) － 1), 10) ＋ “ ” ＋ 取文本右边 (取文本中间 (编辑框_网页文本.内容, 1, 倒找文本 (编辑框_网页文本.内容, 编辑框_关键字.内容, , 假) － 1), 到数值 (编辑框_个数2.内容))

子程序名	返回值类型	公开	备 注
_按钮_生成代码到剪贴板_被单击

置剪辑板文本 (“.版本 2” ＋ #换行符 ＋ #换行符 ＋ “.局部变量 网页文本, 文本型” ＋ #换行符 ＋ “.局部变量 期号1, 文本型” ＋ #换行符 ＋ “.局部变量 期号2, 文本型” ＋ #换行符 ＋ “.局部变量 奖号1, 文本型” ＋ #换行符 ＋ “.局部变量 奖号2, 文本型” ＋ #换行符 ＋ “网页文本＝超速读取网页源码 (” ＋ #引号 ＋ 编辑框_网址.内容 ＋ #引号 ＋ “）” ＋ #换行符 ＋ “期号1＝取文本中间 (网页文本, ” ＋ 编辑框_位置.内容 ＋ “+1 ,” ＋ 编辑框_数值1.内容 ＋ “)” ＋ #换行符 ＋ “奖号1＝取文本中间 (网页文本, ” ＋ 编辑框_位置.内容 ＋ “ +1+ ” ＋ 编辑框_数值1.内容 ＋ “+” ＋ 编辑框_位差.内容 ＋ “,” ＋ 编辑框_个数.内容 ＋ “)” ＋ #换行符 ＋ “期号2＝ 取文本右边 (取文本中间 (网页文本, 1, 倒找文本 (网页文本, ” ＋ #引号 ＋ 编辑框_关键字.内容 ＋ #引号 ＋ “, , 假) －” ＋ 编辑框_位置5.内容 ＋ “－” ＋ 编辑框_个数2.内容 ＋ “－ 1 ),” ＋ 编辑框_数值2.内容 ＋ “)” ＋ #换行符 ＋ “奖号2=取文本右边 (取文本中间 (网页文本, 1, 倒找文本 (网页文本, ” ＋ #引号 ＋ 编辑框_关键字.内容 ＋ #引号 ＋ “, , 假) － 1),” ＋ 编辑框_个数2.内容 ＋ “)” ＋ #换行符 ＋ “调试输出 (期号1,奖号1, 期号2,  奖号2)” ＋ #换行符 ＋ “'请下载并载入（超速读取网页源码.ec）模块”)

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> .如果真 (编辑框_网址.内容 ≠ “”)<br />     ' 编辑框_网页文本.内容 ＝ 超速读取网页源码 (“<a href="http://chart.cp.360.cn/zst/getchartdata?sb_spm=68c3180380359ade980019de8df06360&lotId=255401&chartType=x5" rel="nofollow" rel="nofollow" target="_blank">http://chart.cp.360.cn/zst/getch ... 01&chartType=x5</a>”)<br />     ' 编辑框_网页文本.内容 ＝ 超速读取网页源码 (“<a href="http://chart.cp.360.cn/zst/getchartdata?lotId=255401&chartType=x5&spanType=0&span=50&r=0.38683110056445#roll_132" rel="nofollow" rel="nofollow" target="_blank">http://chart.cp.360.cn/zst/getch ... 3110056445#roll_132</a>”)<br />     编辑框_网页文本.内容 ＝ 超速读取网页源码 (编辑框_网址.内容)<br />     编辑框_网页文本长度.内容 ＝ 到文本 (取文本长度 (编辑框_网页文本.内容))<br /> <br />     编辑框_正向结果.内容 ＝ 取文本中间 (编辑框_网页文本.内容, 到数值 (编辑框_位置.内容) ＋ 1, 到数值 (编辑框_数值1.内容)) ＋ “ ” ＋ 取文本中间 (编辑框_网页文本.内容, 到数值 (编辑框_位置.内容) ＋ 1 ＋ 到数值 (编辑框_数值1.内容) ＋ 到数值 (编辑框_位差.内容), 到数值 (编辑框_个数.内容))<br /> <br />     编辑框_反向结果.内容 ＝ 取文本右边 (取文本中间 (编辑框_网页文本.内容, 1, 倒找文本 (编辑框_网页文本.内容, 编辑框_关键字.内容, , 假) － 到数值 (编辑框_位置5.内容) － 到数值 (编辑框_个数2.内容) － 1), 10) ＋ “ ” ＋ 取文本右边 (取文本中间 (编辑框_网页文本.内容, 1, 倒找文本 (编辑框_网页文本.内容, 编辑框_关键字.内容, , 假) － 1), 到数值 (编辑框_个数2.内容))<br /> .如果真结束<br /> <br /> <br /> .子程序 _编辑框_测试文本_内容被改变<br /> <br /> 编辑框_长度结果.内容 ＝ 到文本 (取文本长度 (编辑框_测试文本.内容))<br /> <br /> <br /> .子程序 _按钮_清空_被单击<br /> <br /> 编辑框_测试文本.内容 ＝ “”<br /> <br /> <br /> .子程序 _按钮_粘贴_被单击<br /> <br /> 编辑框_测试文本.内容 ＝ 取剪辑板文本 ()<br /> <br /> <br /> .子程序 _按钮_复制_被单击<br /> <br /> 置剪辑板文本 (编辑框_测试文本.内容)<br /> <br /> .子程序 _按钮_复制选中文本_被单击<br /> <br /> 置剪辑板文本 (编辑框_网页文本.被选择文本)<br /> _按钮_查询起始及选中文本数_被单击 ()<br /> <br /> .子程序 _按钮_查询起始及选中文本数_被单击<br /> <br /> 编辑框_起始位置.内容 ＝ 到文本 (编辑框_网页文本.起始选择位置)<br /> 编辑框_选中个数.内容 ＝ 到文本 (编辑框_网页文本.被选择字符数)<br /> <br /> <br /> .子程序 _按钮_读取网页源码_被单击<br /> <br /> 编辑框_网页文本.内容 ＝ 超速读取网页源码 (编辑框_网址.内容)<br /> 编辑框_网页文本长度.内容 ＝ 到文本 (取文本长度 (编辑框_网页文本.内容))<br /> 编辑框_正向结果.内容 ＝ 取文本中间 (编辑框_网页文本.内容, 到数值 (编辑框_位置.内容) ＋ 1, 到数值 (编辑框_数值1.内容)) ＋ “ ” ＋ 取文本中间 (编辑框_网页文本.内容, 到数值 (编辑框_位置.内容) ＋ 1 ＋ 到数值 (编辑框_数值1.内容) ＋ 到数值 (编辑框_位差.内容), 到数值 (编辑框_个数.内容))<br /> 编辑框_反向结果.内容 ＝ 取文本右边 (取文本中间 (编辑框_网页文本.内容, 1, 倒找文本 (编辑框_网页文本.内容, 编辑框_关键字.内容, , 假) － 到数值 (编辑框_位置5.内容) － 到数值 (编辑框_个数2.内容) － 1), 10) ＋ “ ” ＋ 取文本右边 (取文本中间 (编辑框_网页文本.内容, 1, 倒找文本 (编辑框_网页文本.内容, 编辑框_关键字.内容, , 假) － 1), 到数值 (编辑框_个数2.内容))<br /> <br /> <br /> .子程序 _按钮_测试_被单击<br /> <br /> 编辑框_正向结果.内容 ＝ 取文本中间 (编辑框_网页文本.内容, 到数值 (编辑框_位置.内容) ＋ 1, 到数值 (编辑框_数值1.内容)) ＋ “ ” ＋ 取文本中间 (编辑框_网页文本.内容, 到数值 (编辑框_位置.内容) ＋ 1 ＋ 到数值 (编辑框_数值1.内容) ＋ 到数值 (编辑框_位差.内容), 到数值 (编辑框_个数.内容))<br /> <br /> .子程序 _按钮_测试1_被单击<br /> <br /> 编辑框_反向结果.内容 ＝ 取文本右边 (取文本中间 (编辑框_网页文本.内容, 1, 倒找文本 (编辑框_网页文本.内容, 编辑框_关键字.内容, , 假) － 到数值 (编辑框_位置5.内容) － 到数值 (编辑框_个数2.内容) － 1), 10) ＋ “ ” ＋ 取文本右边 (取文本中间 (编辑框_网页文本.内容, 1, 倒找文本 (编辑框_网页文本.内容, 编辑框_关键字.内容, , 假) － 1), 到数值 (编辑框_个数2.内容))<br /> <br /> .子程序 _按钮_生成代码到剪贴板_被单击<br /> <br /> 置剪辑板文本 (“.版本 2” ＋ #换行符 ＋ #换行符 ＋ “.局部变量 网页文本, 文本型” ＋ #换行符 ＋ “.局部变量 期号1, 文本型” ＋ #换行符 ＋ “.局部变量 期号2, 文本型” ＋ #换行符 ＋ “.局部变量 奖号1, 文本型” ＋ #换行符 ＋ “.局部变量 奖号2, 文本型” ＋ #换行符 ＋ “网页文本＝超速读取网页源码 (” ＋ #引号 ＋ 编辑框_网址.内容 ＋ #引号 ＋ “）” ＋ #换行符 ＋ “期号1＝取文本中间 (网页文本, ” ＋ 编辑框_位置.内容 ＋ “+1 ,” ＋ 编辑框_数值1.内容 ＋ “)” ＋ #换行符 ＋ “奖号1＝取文本中间 (网页文本, ” ＋ 编辑框_位置.内容 ＋ “ +1+ ” ＋ 编辑框_数值1.内容 ＋ “+” ＋ 编辑框_位差.内容 ＋ “,” ＋ 编辑框_个数.内容 ＋ “)” ＋ #换行符 ＋ “期号2＝ 取文本右边 (取文本中间 (网页文本, 1, 倒找文本 (网页文本, ” ＋ #引号 ＋ 编辑框_关键字.内容 ＋ #引号 ＋ “, , 假) －” ＋ 编辑框_位置5.内容 ＋ “－” ＋ 编辑框_个数2.内容 ＋ “－ 1 ),” ＋ 编辑框_数值2.内容 ＋ “)” ＋ #换行符 ＋ “奖号2=取文本右边 (取文本中间 (网页文本, 1, 倒找文本 (网页文本, ” ＋ #引号 ＋ 编辑框_关键字.内容 ＋ #引号 ＋ “, , 假) － 1),” ＋ 编辑框_个数2.内容 ＋ “)” ＋ #换行符 ＋ “调试输出 (期号1,奖号1, 期号2,  奖号2)” ＋ #换行符 ＋ “'请下载并载入（超速读取网页源码.ec）模块”)

1795892233

厉害了。。。

wenzi520

厉害了。。。

wlzyk118

下载学习下