刚才有个求助帖 现在我发一个另外的笨写法 求指点

晚风归

求助帖地址 http://125.confly.eu.org/forum.php?mod= ... p;extra=&page=1
现在这个求助帖已经关了  各位看看这写法有什么改的吗
@四月南风

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
循环次数	整数型

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

循环次数 ＝ 100
启动线程 (&子程序1, , )

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
i	整数型
临时文本	文本型
当前页数	文本型
初始头	文本型
处理分割组	文本型		0

计次循环首 (循环次数, i)
初始头 ＝ “900000000”
当前页数 ＝ 到文本 (到整数 (初始头) ＋ i)
文本_逐字分割 (当前页数, 处理分割组)
当前页数 ＝ “”
计次循环首 (取数组成员数 (处理分割组), i)
如果真 (i ≠ 1)
当前页数 ＝ 当前页数 ＋ 处理分割组 [i]

计次循环尾 ()
调试输出 (当前页数)
临时文本 ＝ 网页_访问U (“http://wgwsxx.cn/web/CommonA/UpgradeError.ashx?T=GUEI&ID=T” ＋ 当前页数)
调试输出 (临时文本)
计次循环尾 ()

i支持库列表	支持库注释
EThread	多线程支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 EThread<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 循环次数, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 循环次数 ＝ 100<br /> 启动线程 (&子程序1, , )<br /> <br /> <br /> .子程序 子程序1<br /> .局部变量 i, 整数型<br /> .局部变量 临时文本, 文本型<br /> .局部变量 当前页数, 文本型<br /> .局部变量 初始头, 文本型<br /> .局部变量 处理分割组, 文本型, , "0"<br /> <br /> .计次循环首 (循环次数, i)<br />     初始头 ＝ “900000000”<br />     当前页数 ＝ 到文本 (到整数 (初始头) ＋ i)<br />     文本_逐字分割 (当前页数, 处理分割组)<br />     当前页数 ＝ “”<br />     .计次循环首 (取数组成员数 (处理分割组), i)<br />         .如果真 (i ≠ 1)<br />             当前页数 ＝ 当前页数 ＋ 处理分割组 <i><br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     调试输出 (当前页数)<br />     临时文本 ＝ 网页_访问U (“http://wgwsxx.cn/web/CommonA/UpgradeError.ashx?T=GUEI&ID=T” ＋ 当前页数)<br />     调试输出 (临时文本)<br /> .计次循环尾 ()

娱乐哟

不错

晚风归

guojuen 发表于 2017-3-2 08:43
用的鱼刺的模块

好吧   谢谢了

guojuen

魔蝎座的莫 发表于 2017-3-1 11:24
求大神分享 http.open 之类的这个用法  多谢

用的鱼刺的模块

晚风归

guojuen 发表于 2017-2-28 23:07
[e=0].版本 2

.判断循环首 (TID < 70000)

求大神分享 http.open 之类的这个用法  多谢

guojuen

  

判断循环首 (TID < 70000)
TID ＝ 取文本右边 (“00000” ＋ 到文本 (TID), 5)
http.Auto ()
http.Open (“GET”, “http://wgwsxx.cn/web/CommonA/UpgradeError.ashx”)
http.Send (“T=GUEI&ID=T000” ＋ TID)
返回文本 ＝ http.GetResponseTextUtf8ToAnsi ()
TID=TID+1
判断循环尾 ()

.版本 2<br /> <br /> .判断循环首 (TID < 70000)<br />     TID ＝ 取文本右边 (“00000” ＋ 到文本 (TID), 5) <br />     http.Auto ()<br />     http.Open (“GET”, “http://wgwsxx.cn/web/CommonA/UpgradeError.ashx”)<br />     http.Send (“T=GUEI&ID=T000” ＋ TID)<br />     返回文本 ＝ http.GetResponseTextUtf8ToAnsi ()<br />     TID=TID+1<br /> .判断循环尾 ()

这么写是不是也可以呢？
返回网页源码后用正则提取问题和答案

sa123123

分享是一种美德...

sa123123

感谢分享,支持

四月南风

可以用了~你这个思路是对的!

四月南风

正在编译现行程序
正在检查重复名称...
正在预处理现行程序
错误(24): 运算符无右侧运算数据。
编译现行易程序失败或被中止!