|
分享例程
界面截图: |
|
备注说明: |
又是一个屌丝站
此站找不到图啊。。。只能拿这个提醒一下蟋蟀大师该做桌面壁纸了= = |
这个网站很坑爹啊
表面看起来做军事的。。。。。
仔细一看居然有图库。。。。
那继续猥琐一下= =
[e]
.版本 2
.子程序 www_xiami001_com, 狼友数据类, 公开, -2
.参数 地址, 文本型
.局部变量 r, 文本型
.局部变量 z, 正则表达式类
.局部变量 i, 整数型
.局部变量 bl, 狼友数据类
r = 到文本 (网页_访问 (地址))
z.创建 (“<title>(.*) - www.xiami001.com 虾米军事图库</title>”, r)
bl.标题 = z.取子匹配文本 (1, 1)
z.创建 (“<dl><dt><dd>(.*)<dd>.*<dd>.*<dd><dd><div></div><div></div><dd><dd>\d</dd></dl>”, r)
清除数组 (bl.地址)
.计次循环首 (z.取匹配数量 (), i)
加入成员 (bl.地址, z.取子匹配文本 (i, 1))
.计次循环尾 ()
返回 (bl)
[/e]
.版本 2
.数据类型 狼友数据类, 公开
.成员 标题, 文本型
.成员 地址, 文本型, , "1"
= =
不是我太猥琐,只是这网站太伟大。。。。。
调用历程:
[e]
.版本 2
.支持库 spec
.子程序 __启动窗口_创建完毕
.局部变量 x, 狼友数据类
x = tu_39yst_com (取剪辑板文本 ())
调试输出 (x.地址)
[/e]
|
|