第一天学习正则表达式取ip及地址大家看看吧刚刚学习大家不要笑

戒卜掉思恋 · 发表于 2015-1-14 01:19:59

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

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

取IP ()
标签1.标题＝ “你的ip为” ＋ ip ＋ “ 你的地址及使用宽带类型：” ＋地址
标签2.标题＝ “ 查询时间:” ＋取到的时间

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

变量名	类型	静态	数组	备注
正则	正则表达式类
局_计次	整数型
源代码	文本型
正则1	正则表达式类
局_计次1	整数型
源代码1	文本型
取北京时间	文本型

源代码＝到文本 (HTTP读文件 (“http://www.baidu.com/s?ie=utf-8& ... ;tn=90137574_hao_pg”))
正则.创建 (“;(\d+\.\d+\.\d+\.\d+)”, 源代码, )

计次循环首 (正则.取匹配数量 (), 局_计次)

ip ＝正则.取匹配文本 (局_计次)

计次循环尾 ()
源代码1 ＝到文本 (HTTP读文件 (“http://www.baidu.com/s?ie=utf-8& ... ;tn=90137574_hao_pg”))
正则1.创建 (“([\u4e00-\u9fa5]+\s[\u4e00-\u9fa5]+)\s”, 源代码1)

计次循环首 (正则1.取匹配数量 (), 局_计次1)

地址＝编码_utf8到gb2312 (正则1.取匹配文本 (局_计次1))

计次循环尾 ()
取北京时间＝到文本 (HTTP读文件 (“http://open.baidu.com/special/time/”))
取到的时间＝到文本 (到时间 (时间_时间戳转文本 (文本_取出中间文本 (取北京时间, “window.baidu_time(”, “)”))))

i支持库列表	支持库注释
internet	互联网支持库

.版本 2<br />
.支持库 internet<br />
<br />
.程序集 窗口程序集_启动窗口<br />
<br />
.子程序 __启动窗口_创建完毕<br />
<br />
取IP ()<br />
标签1.标题 ＝ “你的ip为” ＋ ip ＋ “   你的地址及使用宽带类型：” ＋ 地址<br />
标签2.标题 ＝ “      查询时间:” ＋ 取到的时间<br />
<br />
.子程序 取IP<br />
.局部变量 正则, 正则表达式类<br />
.局部变量 局_计次, 整数型<br />
.局部变量 源代码, 文本型<br />
.局部变量 正则1, 正则表达式类<br />
.局部变量 局_计次1, 整数型<br />
.局部变量 源代码1, 文本型<br />
.局部变量 取北京时间, 文本型<br />
<br />
源代码 ＝ 到文本 (HTTP读文件 (“<a href="http://www.baidu.com/s?ie=utf-8&word=ip&tn=90137574_hao_pg" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" target="_blank">http://www.baidu.com/s?ie=utf-8& ... ;tn=90137574_hao_pg</a>”))<br />
正则.创建 (“;(\d+\.\d+\.\d+\.\d+)”, 源代码, )<br />
.计次循环首 (正则.取匹配数量 (), 局_计次)<br />
    ip ＝ 正则.取匹配文本 (局_计次)<br />
<br />
.计次循环尾 ()<br />
源代码1 ＝ 到文本 (HTTP读文件 (“<a href="http://www.baidu.com/s?ie=utf-8&word=ip&tn=90137574_hao_pg" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" target="_blank">http://www.baidu.com/s?ie=utf-8& ... ;tn=90137574_hao_pg</a>”))<br />
正则1.创建 (“([\u4e00-\u9fa5]+\s[\u4e00-\u9fa5]+)\s”, 源代码1)<br />
.计次循环首 (正则1.取匹配数量 (), 局_计次1)<br />
    地址 ＝ 编码_utf8到gb2312 (正则1.取匹配文本 (局_计次1))<br />
.计次循环尾 ()<br />
取北京时间 ＝ 到文本 (HTTP读文件 (“<a href="http://open.baidu.com/special/time/" rel="nofollow" rel="nofollow" target="_blank">http://open.baidu.com/special/time/</a>”))<br />
取到的时间 ＝ 到文本 (到时间 (时间_时间戳转文本 (文本_取出中间文本 (取北京时间, “window.baidu_time(”, “)”))))