HZKpath使用禄体验

边缘浪子 · 发表于 2022-4-17 22:50:02

最近在论坛无意中发现[size=15.8173px]HZKpath这一个模块[size=11.863pt]，觉得很惊喜[size=11.863pt]，关注这一个好久了，论坛上一直没看到相关的例程，带着惊喜的心情加入了群，在群主大大(tony坤少)[size=15.8173px]和(Giiunoo[size=15.8173px])的无私帮助下，终于会使用一部份功能了，尤其是群主为了解决多线程，头发都白了不少

，最终也在他废寝忘食的精神下解决了，他他一个大大赞，废话不多说了，下面上源码：

模块使用 HZKpath 传送门：测试网址：http://www.beqege.com/28678/
使用表达式：//div[@id="list"]/dl/dd/a/@@text&@href[||]
QQ图片20220417224752.png

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

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

' 标签5.标题＝ “解析中请稍等”
启动线程 (&解析结果, , )

子程序名	返回值类型	公开	备注
解析结果

变量名	类型	静态	数组	备注
i	整数型
文本结果	文本型		0
Xpath	类_HZKpath
索引	整数型
res	文本型		0

超级列表框1.全部删除 ()
Xpath.初始化_解析文本 (编辑框2.内容)
Xpath.表达式_置表达式解析 (编辑框3.内容, 文本结果)
调试输出 (取数组成员数 (文本结果))

计次循环首 (取数组成员数 (文本结果), i)

res ＝分割文本 (文本结果 [i], “||”, )

索引＝超级列表框1.插入表项 (, , , , , )

超级列表框1.置标题 (索引, 0, 到文本 (索引))

超级列表框1.置标题 (索引, 1, res [1])

超级列表框1.置标题 (索引, 2, “http://www.beqege.com/” ＋ res [2])

超级列表框1.刷新显示 ()

计次循环尾 ()
' 标签5.标题＝ “解析完成，共计： ” ＋到文本 (取数组成员数 (文本结果)) ＋ “ 个结果”

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

启动线程 (&读取网页, , )
' 标签5.标题＝ “网页读取中请稍等”

子程序名	返回值类型	公开	备注
读取网页

编辑框2.内容＝ HZKpath_解析URL (编辑框1.内容)
' 标签5.标题＝ “网页读取完成，可以开始解析了”

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

如果 (_启动窗口.总在最前)

按钮3.标题＝ “置顶窗口”

_启动窗口.总在最前＝假

按钮3.标题＝ “取消置顶”

_启动窗口.总在最前＝真

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

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

.版本 2<br />
.支持库 EThread<br />
.支持库 iext<br />
.支持库 spec<br />
<br />
.程序集 窗口程序集_启动窗口<br />
<br />
.子程序 _按钮1_被单击<br />
<br />
' 标签5.标题 ＝ “解析中请稍等”<br />
启动线程 (&解析结果, , )<br />
<br />
.子程序 解析结果<br />
.局部变量 i, 整数型<br />
.局部变量 文本结果, 文本型, , "0"<br />
.局部变量 Xpath, 类_HZKpath<br />
.局部变量 索引, 整数型<br />
.局部变量 res, 文本型, , "0"<br />
<br />
超级列表框1.全部删除 ()<br />
Xpath.初始化_解析文本 (编辑框2.内容)<br />
Xpath.表达式_置表达式解析 (编辑框3.内容, 文本结果)<br />
调试输出 (取数组成员数 (文本结果))<br />
.计次循环首 (取数组成员数 (文本结果), i)<br />
    res ＝ 分割文本 (文本结果 <i>, “||”, )<br />
<br />
    索引 ＝ 超级列表框1.插入表项 (, , , , , )<br />
    超级列表框1.置标题 (索引, 0, 到文本 (索引))<br />
    超级列表框1.置标题 (索引, 1, res [1])<br />
    超级列表框1.置标题 (索引, 2, “http://www.beqege.com/” ＋ res [2])<br />
    超级列表框1.刷新显示 ()<br />
.计次循环尾 ()<br />
' 标签5.标题 ＝ “解析完成，共计： ” ＋ 到文本 (取数组成员数 (文本结果)) ＋ “ 个结果”<br />
<br />
.子程序 _按钮2_被单击<br />
<br />
启动线程 (&读取网页, , )<br />
' 标签5.标题 ＝ “网页读取中请稍等”<br />
<br />
.子程序 读取网页<br />
<br />
编辑框2.内容 ＝ HZKpath_解析URL (编辑框1.内容)<br />
' 标签5.标题 ＝ “网页读取完成，可以开始解析了”<br />
<br />
.子程序 _按钮3_被单击<br />
<br />
.如果 (_启动窗口.总在最前)<br />
    按钮3.标题 ＝ “置顶窗口”<br />
    _启动窗口.总在最前 ＝ 假<br />
<br />
.否则<br />
    按钮3.标题 ＝ “取消置顶”<br />
    _启动窗口.总在最前 ＝ 真<br />
.如果结束<br />
<br />
<br />
.子程序 __启动窗口_创建完毕

HZKpath官方调试工具V2.5.e (163.93 KB, 下载次数: 30)