|
发表于 2019-2-28 18:25:03
|
显示全部楼层
山东省济南市
- .版本 2
- .支持库 iext
- .支持库 spec
- .子程序 cha询
- .局部变量 号码, 文本型, , "0"
- .局部变量 i, 整数型
- .局部变量 索引, 整数型
- .局部变量 返回文本, 文本型
- .局部变量 归属地, 文本型
- .局部变量 正则, 正则表达式类
- .局部变量 文本, 文本型
- 号码 = 分割文本 (编辑框1.内容, #换行符, )
- .计次循环首 (取数组成员数 (号码), i)
- 索引 = 超级列表框1.插入表项 (-1, 到文本 (i), , , , )
- 返回文本 = 网页_访问S (“http://www.ip138.com:8080/search.asp?action=mobile&mobile=” + 号码 [i], , , , , , , , , , , , , , , , , )
- 延时 (200)
- ' 调试输出 (返回文本)
- 正则.创建 (#常量1, 返回文本, , , , )
- 调试输出 (正则.取匹配数量 ())
- 超级列表框1.置标题 (索引, 1, 号码 [i])
- 超级列表框1.置标题 (索引, 2, 正则.取子匹配文本 (i, 1))
- 超级列表框1.置标题 (索引, 3, 正则.取子匹配文本 (i, 2))
- 超级列表框1.保证显示 (超级列表框1.取表项数 () - 1)
- .计次循环尾 ()
复制代码 |
|