超级列表框批量判断

lcy791365359

  

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

变量名	类 型	静态	数组	备 注
新文本	文本型

新文本 ＝ 文本_替换 (删首尾空 (“http://colaapk.com/app/colaparse/c/parse.php?url=” ＋ 超级列表框2.取标题 (超级列表框2.现行选中项, 1)), , , , “parse.php”, “api.php”) ＋ “&hd=3”
判断 (取文本长度 (到文本 (HTTP读文件 (新文本))) ＞ 367)
超级列表框2.置标题 (超级列表框2.现行选中项, 2, “√”)
超级列表框2.置标题 (超级列表框2.现行选中项, 2, “×”)

i支持库列表	支持库注释
iext	扩展界面支持库一
internet	互联网支持库

.版本 2<br /> .支持库 iext<br /> .支持库 internet<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 新文本, 文本型<br /> <br /> <br /> 新文本 ＝ 文本_替换 (删首尾空 (“http://colaapk.com/app/colaparse/c/parse.php?url=” ＋ 超级列表框2.取标题 (超级列表框2.现行选中项, 1)), , , , “parse.php”, “api.php”) ＋ “&hd=3”<br /> .判断开始 (取文本长度 (到文本 (HTTP读文件 (新文本))) ＞ 367)<br />     超级列表框2.置标题 (超级列表框2.现行选中项, 2, “√”)<br /> .默认<br />     超级列表框2.置标题 (超级列表框2.现行选中项, 2, “×”)

想把这个判断的代码加在超级列表框内

  

子程序名	返回值类型	公开	备 注
资源片内容

变量名	类 型	静态	数组	备 注
资源片地址	文本型

线程_初始化COM库 ()
资源片地址 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 1)
临时文本 ＝ 网页_访问S (资源片地址)
超级列表框2.全部删除 ()
正则.创建 ( #资源片C, 临时文本)
进入许可区 (列表许可证)
计次循环首 (正则.取匹配数量 (), A)
B ＝ 超级列表框2.插入表项 (, , , , , )
超级列表框2.置标题 (B, 0, 到文本 (B ＋ 1))
超级列表框2.置标题 (B, 1, “C” ＋ 正则.取子匹配文本 (A, 1))
超级列表框2.置标题 (B, 2, “Z站”)
程序_延时 (1)
计次循环尾 ()
退出许可区 (列表许可证)
线程_取消COM库 ()

i支持库列表	支持库注释
iext	扩展界面支持库一
EThread	多线程支持库

.版本 2<br /> .支持库 iext<br /> .支持库 EThread<br /> <br /> .子程序 资源片内容<br /> .局部变量 资源片地址, 文本型<br /> <br /> 线程_初始化COM库 ()<br /> 资源片地址 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 1)<br /> 临时文本 ＝ 网页_访问S (资源片地址)<br /> 超级列表框2.全部删除 ()<br /> <br /> 正则.创建 (#资源片C, 临时文本)<br /> 进入许可区 (列表许可证)<br /> .计次循环首 (正则.取匹配数量 (), A)<br />     B ＝ 超级列表框2.插入表项 (, , , , , )<br />     超级列表框2.置标题 (B, 0, 到文本 (B ＋ 1))<br />     超级列表框2.置标题 (B, 1, “C” ＋ 正则.取子匹配文本 (A, 1))<br />     超级列表框2.置标题 (B, 2, “Z站”)<br />     程序_延时 (1)<br /> .计次循环尾 ()<br /> 退出许可区 (列表许可证)<br /> 线程_取消COM库 ()

想点击按钮之后  超级列表框2 的Z站就自动变为√  ×  怎么实现呢？ 现在只能点击一个判断一个

冯古屋

  

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

启动线程 (&子程序1, , )

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

变量名	类 型	静态	数组	备 注
新文本	文本型
i	整数型

计次循环首 (超级列表框2.取表项数 (), i)
新文本 ＝ 文本_替换 (删首尾空 (“http://colaapk.com/app/colaparse/c/parse.php?url=” ＋ 超级列表框2.取标题 (i － 1, 1)), , , , “parse.php”, “api.php”, , , , , , , , ) ＋ “&hd=3”
调试输出 (新文本)
判断 (取文本长度 (到文本 (HTTP读文件 (新文本))) ＞ 367)
超级列表框2.置标题 (i － 1, 2, “√”)
超级列表框2.置标题 (i － 1, 2, “×”)

计次循环尾 ()

i支持库列表	支持库注释
EThread	多线程支持库
iext	扩展界面支持库一
spec	特殊功能支持库
internet	互联网支持库

.版本 2<br /> .支持库 EThread<br /> .支持库 iext<br /> .支持库 spec<br /> .支持库 internet<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 启动线程 (&子程序1, , )<br /> <br /> .子程序 子程序1<br /> .局部变量 新文本, 文本型<br /> .局部变量 i, 整数型<br /> <br /> .计次循环首 (超级列表框2.取表项数 (), i)<br />     新文本 ＝ 文本_替换 (删首尾空 (“<a href="http://colaapk.com/app/colaparse/c/parse.php?url=" rel="nofollow" rel="nofollow" target="_blank">http://colaapk.com/app/colaparse/c/parse.php?url=</a>” ＋ 超级列表框2.取标题 (i － 1, 1)), , , , “parse.php”, “api.php”, , , , , , , , ) ＋ “&hd=3”<br />     调试输出 (新文本)<br />     .判断开始 (取文本长度 (到文本 (HTTP读文件 (新文本))) ＞ 367)<br />         超级列表框2.置标题 (i － 1, 2, “√”)<br />     .默认<br />         超级列表框2.置标题 (i － 1, 2, “×”)<br />     .判断结束<br /> <br /> <br /> .计次循环尾 ()

冯古屋

你最好传个附件来，这样子直接调试修改比较快。

KK咔咔

计次循环喽

lcy791365359

冯古屋 发表于 2016-11-2 10:31
你最好传个附件来，这样子直接调试修改比较快。

1.zip (168.05 KB, 下载次数: 3)

2016-11-2 12:31 上传

点击文件名下载附件