你过来看一下

新月才子2

  

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

变量名	类 型	静态	数组	备 注
源码	文本型
中间	文本型
数组	文本型		0
新数组	文本型		0
i	整数型

超文本浏览框1.地址 ＝ 编辑框1.内容
源码 ＝ 编码_Utf8到Ansi (HTTP读文件 (“https://www.haoshudi.com/” ＋ 编辑框2.内容 ＋ “.htm”))
如果 (寻找文本 (源码, “该页面无法显示”, , 假) ＝ -1)
中间 ＝ 文本_取出中间文本 (源码, “”, “”, , 真)
文本_取中间_批量_正则方式 (中间, “>”, “<”, 数组, , , , , , )
数组_去重复 (数组, )
计次循环首 (取数组成员数 (数组), i)
如果真 (删首尾空 (数组 [i]) ≠ “” 且 删首尾空 (数组 [i]) ≠ “测吉凶” 且 删首尾空 (数组 [i]) ≠ “上报纠错” 且 删首尾空 (数组 [i]) ≠ 字符 (10) 且 删首尾空 (数组 [i]) ≠ #换行符 )
加入成员 (新数组, 数组 [i])

计次循环尾 ()
如果真 (取数组成员数 (新数组) ＝ 13)
标签1.标题 ＝ 新数组 [1] ＋ “:” ＋ 新数组 [2] ＋ #换行符 ＋ 新数组 [3] ＋ “:” ＋ 新数组 [4] ＋ 新数组 [5] ＋ #换行符 ＋ 新数组 [6] ＋ “:” ＋ 新数组 [7] ＋ #换行符 ＋ 新数组 [8] ＋ “:” ＋ 新数组 [9] ＋ #换行符 ＋ 新数组 [10] ＋ “:” ＋ 新数组 [11] ＋ #换行符 ＋ 新数组 [12] ＋ “:” ＋ 新数组 [13]

信息框 (“手机号码错误”, 0, , )

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

超文本浏览框1.执行命令 ( #刷新 )

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

超文本浏览框1.执行命令 ( #前进 )

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

超文本浏览框1.执行命令 ( #后退 )

子程序名	返回值类型	公开	备 注
_超文本浏览框1_即将打开新窗口	逻辑型

超文本浏览框1.地址 ＝ 超文本浏览框1.状态条文本
返回 (假)

i支持库列表	支持库注释
HtmlView	超文本浏览框支持库
internet	互联网支持库

.版本 2<br /> .支持库 HtmlView<br /> .支持库 internet<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 源码, 文本型<br /> .局部变量 中间, 文本型<br /> .局部变量 数组, 文本型, , "0"<br /> .局部变量 新数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> 超文本浏览框1.地址 ＝ 编辑框1.内容<br /> 源码 ＝ 编码_Utf8到Ansi (HTTP读文件 (“<a href="https://www.haoshudi.com/" rel="nofollow" rel="nofollow" target="_blank">https://www.haoshudi.com/</a>” ＋ 编辑框2.内容 ＋ “.htm”))<br /> .如果 (寻找文本 (源码, “该页面无法显示”, , 假) ＝ -1)<br />     中间 ＝ 文本_取出中间文本 (源码, “”, “”, , 真)<br />     文本_取中间_批量_正则方式 (中间, “>”, “<”, 数组, , , , , , )<br />     数组_去重复 (数组, )<br />     .计次循环首 (取数组成员数 (数组), i)<br />         .如果真 (删首尾空 (数组 <i>) ≠ “” 且 删首尾空 (数组 <i>) ≠ “测吉凶” 且 删首尾空 (数组 <i>) ≠ “上报纠错” 且 删首尾空 (数组 <i>) ≠ 字符 (10) 且 删首尾空 (数组 <i>) ≠ #换行符)<br />             加入成员 (新数组, 数组 <i>)<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     .如果真 (取数组成员数 (新数组) ＝ 13)<br />         标签1.标题 ＝ 新数组 [1] ＋ “:” ＋ 新数组 [2] ＋ #换行符 ＋ 新数组 [3] ＋ “:” ＋ 新数组 [4] ＋ 新数组 [5] ＋ #换行符 ＋ 新数组 [6] ＋ “:” ＋ 新数组 [7] ＋ #换行符 ＋ 新数组 [8] ＋ “:” ＋ 新数组 [9] ＋ #换行符 ＋ 新数组 [10] ＋ “:” ＋ 新数组 [11] ＋ #换行符 ＋ 新数组 [12] ＋ “:” ＋ 新数组 [13]<br />     .如果真结束<br /> <br /> .否则<br />     信息框 (“手机号码错误”, 0, , )<br /> .如果结束<br /> <br /> <br /> .子程序 _按钮_刷新_被单击<br /> <br /> 超文本浏览框1.执行命令 (#刷新)<br /> <br /> .子程序 _按钮_前进_被单击<br /> <br /> 超文本浏览框1.执行命令 (#前进)<br /> <br /> .子程序 _按钮_后退_被单击<br /> <br /> 超文本浏览框1.执行命令 (#后退)<br /> <br /> .子程序 _超文本浏览框1_即将打开新窗口, 逻辑型<br /> <br /> 超文本浏览框1.地址 ＝ 超文本浏览框1.状态条文本<br /> 返回 (假)

@土八路
成品代码 你复制一下 , 有用到@时髦猪
作品

新月才子2

Suky 发表于 2024-7-28 19:43
你人还怪好的叻

随便啊 , 答应人家了

新月才子2

sanyue 发表于 2024-7-28 20:32
哈哈哈哈  你人还怪好的呢

随便啊 , 答应人家了

sanyue

哈哈哈哈  你人还怪好的呢

新月才子2

Suky 发表于 2024-7-28 19:43
你人还怪好的叻

........

Suky

Suky

你人还怪好的叻