666666666666666

感谢楼主66666

3Q6666666666

学习一下json处理

.版本 2
.支持库 iext

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕
.局部变量 解码xx, 文本型
.局部变量 筛选, 正则表达式类
.局部变量 局_计数, 整数型
.局部变量 索引, 整数型

编码_UTF8解码 (网页_访问_对象 (“http://m.medsci.cn/wh.asp”, 0, , , , , , , , , , , , , , , , , ), 解码xx)
筛选.创建 (#匹配正则, 解码xx, , , , )
.计次循环首 (筛选.取匹配数量 (), 局_计数)
    索引 ＝ 超级列表框1.插入表项 (, , , , , )
    超级列表框1.置标题 (索引, 0, 筛选.取子匹配文本 (局_计数, 1, ))
    超级列表框1.置标题 (索引, 1, 筛选.取子匹配文本 (局_计数, 2, ))
    超级列表框1.置标题 (索引, 2, 筛选.取子匹配文本 (局_计数, 3, ))
    超级列表框1.置标题 (索引, 3, 筛选.取子匹配文本 (局_计数, 4, ))
    超级列表框1.置标题 (索引, 4, 筛选.取子匹配文本 (局_计数, 5, ))
    超级列表框1.置标题 (索引, 5, 筛选.取子匹配文本 (局_计数, 6, ))
.计次循环尾 ()



下面是正则
<tr style="border-left:1px solid #F00;border-top:1px solid black"><td style="border: 1px solid black;">(.*?)</td><td style="border: 1px solid black;">(.*?)</td><td style="border: 1px solid black;">(.*?)</td><td style="border: 1px solid black;">(.*?)</td><td style="border: 1px solid black;">(.*?)</td><td style="border: 1px solid black;">(.*?)</td></tr>

不错，学习了！！

感谢楼主66666

感谢楼主6666

谢谢楼主分享，下载学习！！！！