新人求助

dzhuqi

一键获取一个网站的网页源码（比如htp://xxx.....） 提起其中一段文本 比如这段

1. <!-- Free Shadowsocks Section -->
   
2.     <section id="free">
   
3.         <div class="container">
   
4.             <div class="row">
   
5.                 <div class="col-lg-12 text-center">
   
6.                     <h3>实验帐号</h3>
   
7.                     <hr class="star-primary">
   
8.                 </div>
   
9.             </div>
   
10.             <div class="row">
    
11.                 <div class="col-lg-4 text-center">
    
12.                     <h4>A服务器地址:usa.iss.tf</h4>
    
13.                     <h4>端口:23456</h4>
    
14. <h4>A密码:79696433</h4>
    
15.                     <h4>加密方式:aes-256-cfb</h4>
    
16.                     <h4>状态:<font color="green">正常</font></h4>
    
17.                     <h4><font color="red">注意：每6小时更换一次密码</font></h4>
    
18.                 </div>

复制代码

精易求精丶

这样的吗

大兔崽子

<h4>A服务器地址:(.*?)</h4>\s*<h4>端口:(.*?)</h4>\s*<h4>A密码:(.*?)</h4>\s*<h4>加密方式:(.*?)</h4>

冯古屋

晕。。。你这个之前不已经求助过了吗？
你要是什么都不会，就好好学习下基础知识
要么定制区，花点钱，自然有人帮你写的滴水不漏。

Demigod

担心大哥哥~正则不太会用，用最普遍易懂的源码给你，很容易套用的。

  

子程序名	返回值类型	公开	备 注
文本_取出中间文本	文本型		精易模块比如：欲取全文本为“12345”,现在要取出“3”，<3>的前面为“2”，<3>的后面为“4”，
参数名	类 型	参考	可空	数组	备 注
欲取全文本	文本型				比如：欲取全文本为 12345
前面文本	文本型				3的前面为“2”，引号直接用 #引号，如："[color=#引号red#引号]"
后面文本	文本型				3的后面为“4”，引号直接用 #引号，如："[color=#引号red#引号]"
起始搜寻位置	整数型				可空,这里是指搜寻 参数二 前面文本 的开始位置
是否不区分大小写	逻辑型				为真不区分大小写，为假区分。

变量名	类 型	静态	数组	备 注
局_前面文本位置	整数型
局_后面文本位置	整数型
局_前面文本	文本型
局_后面文本	文本型

局_前面文本 ＝ 子文本替换 (前面文本, “#引号”, #引号, , , 真)
局_后面文本 ＝ 子文本替换 (后面文本, “#引号”, #引号, , , 真)
局_前面文本位置 ＝ 寻找文本 (欲取全文本, 局_前面文本, 起始搜寻位置, 是否不区分大小写)
如果真 (局_前面文本位置 ≠ -1)
局_前面文本位置 ＝ 局_前面文本位置 ＋ 取文本长度 (局_前面文本)
局_后面文本位置 ＝ 寻找文本 (欲取全文本, 局_后面文本, 局_前面文本位置, 是否不区分大小写)
如果真 (局_前面文本位置 ＝ -1 或 局_后面文本位置 ＝ -1)
返回 (“”)
返回 (取文本中间 (欲取全文本, 局_前面文本位置, 局_后面文本位置 － 局_前面文本位置))

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

' 担心你不会正则，所以用这个普遍的方法
编辑框_实验帐号.内容 ＝ 文本_取出中间文本 (编辑框1.内容, “”, “”)
编辑框2.内容 ＝ 文本_取出中间文本 (编辑框1.内容, “A服务器地址:”, “”)
编辑框3.内容 ＝ 文本_取出中间文本 (编辑框1.内容, “端口:”, “”)
编辑框4.内容 ＝ 文本_取出中间文本 (编辑框1.内容, “加密方式:”, “”)
编辑框5.内容 ＝ 文本_取出中间文本 (编辑框1.内容, “[color=”]”, “[/color][/b]”)

.版本 2<br /> <br /> .子程序 文本_取出中间文本, 文本型, 公开, 精易模块比如：欲取全文本为“12345”,现在要取出“3”，<3>的前面为“2”，<3>的后面为“4”，<br /> .参数 欲取全文本, 文本型, , 比如：欲取全文本为 12345<br /> .参数 前面文本, 文本型, , 3的前面为“2”，引号直接用 #引号，如："[color=#引号red#引号]"<br /> .参数 后面文本, 文本型, , 3的后面为“4”，引号直接用 #引号，如："[color=#引号red#引号]"<br /> .参数 起始搜寻位置, 整数型, 可空, 可空,这里是指搜寻 参数二 前面文本 的开始位置<br /> .参数 是否不区分大小写, 逻辑型, 可空, 为真不区分大小写，为假区分。<br /> .局部变量 局_前面文本位置, 整数型<br /> .局部变量 局_后面文本位置, 整数型<br /> .局部变量 局_前面文本, 文本型<br /> .局部变量 局_后面文本, 文本型<br /> <br /> 局_前面文本 ＝ 子文本替换 (前面文本, “#引号”, #引号, , , 真)<br /> 局_后面文本 ＝ 子文本替换 (后面文本, “#引号”, #引号, , , 真)<br /> 局_前面文本位置 ＝ 寻找文本 (欲取全文本, 局_前面文本, 起始搜寻位置, 是否不区分大小写)<br /> .如果真 (局_前面文本位置 ≠ -1)<br />     局_前面文本位置 ＝ 局_前面文本位置 ＋ 取文本长度 (局_前面文本)<br /> .如果真结束<br /> 局_后面文本位置 ＝ 寻找文本 (欲取全文本, 局_后面文本, 局_前面文本位置, 是否不区分大小写)<br /> .如果真 (局_前面文本位置 ＝ -1 或 局_后面文本位置 ＝ -1)<br />     返回 (“”)<br /> .如果真结束<br /> 返回 (取文本中间 (欲取全文本, 局_前面文本位置, 局_后面文本位置 － 局_前面文本位置))<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> ' 担心你不会正则，所以用这个普遍的方法<br /> 编辑框_实验帐号.内容 ＝ 文本_取出中间文本 (编辑框1.内容, “<strong>”, “</strong>”)<br /> 编辑框2.内容 ＝ 文本_取出中间文本 (编辑框1.内容, “<strong>A服务器地址:”, “</strong>”)<br /> 编辑框3.内容 ＝ 文本_取出中间文本 (编辑框1.内容, “<strong>端口:”, “</strong>”)<br /> 编辑框4.内容 ＝ 文本_取出中间文本 (编辑框1.内容, “<strong>加密方式:”, “</strong>”)<br /> 编辑框5.内容 ＝ 文本_取出中间文本 (编辑框1.内容, “<strong>[color=”]”, “</font></strong>”)

纯源码： 实用-提起其中一段文本.rar (2.14 KB, 下载次数: 1)

2016-9-30 11:50 上传

点击文件名下载附件

dzhuqi

之前是自己问题的失误。没有 说明清楚，大神不要怪

dzhuqi

再次感谢 冯古屋 在他原来的代码的基础上 我已经解决问题了。版主可以关闭这帖了

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1

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

变量名	类 型	静态	数组	备 注
网页_取网页源码	文本型
正则	正则表达式类

网页_取网页源码 ＝ 到文本 (彗星HTTP读文本 (“。”, , , , , , , , ))
正则.创建 (“A服务器地址:(.*?)[\s\S]*?端口:(.*?)[\s\S]*?A密码:(.*?)[\s\S]*?加密方式:(.*?)”, 网页_取网页源码, , , , )
如果真 (正则.取匹配数量 () ＝ 1)
编辑框1.内容 ＝ 正则.取子匹配文本 (1, 1, )
编辑框2.内容 ＝ 正则.取子匹配文本 (1, 2, )
编辑框3.内容 ＝ 正则.取子匹配文本 (1, 3, )
编辑框4.内容 ＝ 正则.取子匹配文本 (1, 4, )

i支持库列表	支持库注释
CometHttp	(未知支持库)

.版本 2<br /> .支持库 CometHttp<br /> <br /> .程序集 窗口程序集1<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 网页_取网页源码, 文本型<br /> .局部变量 正则, 正则表达式类<br /> <br /> 网页_取网页源码 ＝ 到文本 (彗星HTTP读文本 (“。”, , , , , , , , ))<br /> 正则.创建 (“<strong>A服务器地址:(.*?)</strong>[\s\S]*?<strong>端口:(.*?)</strong>[\s\S]*?<strong>A密码:(.*?)</strong>[\s\S]*?<strong>加密方式:(.*?)</strong>”, 网页_取网页源码, , , , )<br /> .如果真 (正则.取匹配数量 () ＝ 1)<br />     编辑框1.内容 ＝ 正则.取子匹配文本 (1, 1, )<br />     编辑框2.内容 ＝ 正则.取子匹配文本 (1, 2, )<br />     编辑框3.内容 ＝ 正则.取子匹配文本 (1, 3, )<br />     编辑框4.内容 ＝ 正则.取子匹配文本 (1, 4, )<br /> .如果真结束