批量判断和文本长度问题

lcy791365359

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
页数	整数型
正则	正则表达式类
临时文本	文本型

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

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

线程_初始化COM库 ()
临时文本 ＝ 到文本 (HTTP读文件 (“http://ziyuanpian.com/”))
正则.创建 ( #资源片, 临时文本)
进入许可区 (列表许可证)
计次循环首 (正则.取匹配数量 (), A)
B ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (B, 0, 到文本 (B ＋ 1))
超级列表框1.置标题 (B, 1, “http://ziyuanpian.com” ＋ 正则.取子匹配文本 (A, 1))
超级列表框1.置标题 (B, 2, 文本_替换 (正则.取子匹配文本 (A, 2), , , , “ ”, “”))
超级列表框1.置标题 (B, 3, “Z站”)
延时 (1)
计次循环尾 ()
退出许可区 (列表许可证)
线程_取消COM库 ()

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

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

线程_初始化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库 ()

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

启动线程 (&资源片, , )

子程序名	返回值类型	公开	备 注
_超级列表框1_左键单击表项

启动线程 (&资源片内容, , )

子程序名	返回值类型	公开	备 注
_超级列表框2_左键单击表项

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

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

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

.版本 2<br /> .支持库 internet<br /> .支持库 EThread<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 页数, 整数型<br /> .程序集变量 正则, 正则表达式类<br /> .程序集变量 临时文本, 文本型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> <br /> .子程序 资源片<br /> <br /> 线程_初始化COM库 ()<br /> 临时文本 ＝ 到文本 (HTTP读文件 (“http://ziyuanpian.com/”))<br /> 正则.创建 (#资源片, 临时文本)<br /> 进入许可区 (列表许可证)<br /> .计次循环首 (正则.取匹配数量 (), A)<br />     B ＝ 超级列表框1.插入表项 (, , , , , )<br />     超级列表框1.置标题 (B, 0, 到文本 (B ＋ 1))<br />     超级列表框1.置标题 (B, 1, “http://ziyuanpian.com” ＋ 正则.取子匹配文本 (A, 1))<br />     超级列表框1.置标题 (B, 2, 文本_替换 (正则.取子匹配文本 (A, 2), , , , “ ”, “”))<br />     超级列表框1.置标题 (B, 3, “Z站”)<br /> <br />     延时 (1)<br /> .计次循环尾 ()<br /> 退出许可区 (列表许可证)<br /> 线程_取消COM库 ()<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库 ()<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 启动线程 (&资源片, , )<br /> <br /> .子程序 _超级列表框1_左键单击表项<br /> <br /> 启动线程 (&资源片内容, , )<br /> <br /> .子程序 _超级列表框2_左键单击表项<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.置标题 (B, 2, “√”)<br /> .默认<br />     超级列表框2.置标题 (B, 2, “×”)<br /> .判断结束

这样点击的结果是

随便点击一个 结果是最下面的变对号了 怎么让他点击按钮进行批量判断呢？

还有一个
.判断开始 (取文本长度 (到文本 (HTTP读文件 (新文本))) ＞ 367)

这个＞367 这个367怎么来的。。。 我取了新文本的长度 上万了呀。。。求科普

附上代码
1.zip (194.31 KB, 下载次数: 5)

2016-11-1 23:57 上传

点击文件名下载附件

草根须

.版本 2
.支持库 iext
.支持库 internet

.参数 被单击列索引, 整数型
.局部变量 新文本, 文本型
.局部变量 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, “×”)
    .判断结束

.计次循环尾 ()

冰冰块

这样就可以了。

lcy791365359

冰冰块 发表于 2016-11-2 00:18
这样就可以了。

他这个367知道怎么取出来的么  

冰冰块

lcy791365359 发表于 2016-11-2 00:21
他这个367知道怎么取出来的么

应该就是获取网页的源码 然后判断网页的数量，对比网页数据数量 来求出是否正确的吧！

冰冰块

1.rar (330.91 KB, 下载次数: 1)

2016-11-2 00:30 上传

点击文件名下载附件

冰冰块

冰冰块

1.rar (312.08 KB, 下载次数: 1)

2016-11-2 00:36 上传

点击文件名下载附件

草根须

.版本 2
.支持库 iext

    超级列表框2.置标题 (超级列表框2.现行选中项, 2, “√”)

.默认
    超级列表框2.置标题 (超级列表框2.现行选中项, 2, “×”)


  这里按照我的修改一下就好了

lcy791365359

草根须 发表于 2016-11-2 09:29
.版本 2
.支持库 iext

怎么批量呢  现在只能点击一个判断一个  想点击按钮后自动判断