我刚刚写的源码
.版本 2
.支持库 HtmlView
编辑框9.内容 = 网页_取网页源码 (超文本浏览框1.地址)
编辑框12.内容 = 文本_取出中间文本 (编辑框9.内容, “复制此楼地址” + #引号 + “>沙发”, “<!--评分-->”)
编辑框10.内容 = 文本_取出中间文本 (编辑框12.内容, “帖子右侧(广告/动漫表情)”, “/>”)
read = 文本_取出中间文本 (编辑框12.内容, “subject_”, “></div>”)
编辑框13.内容 = 编辑框13.内容 + read + “>”
编辑框11.内容 = 文本_取出中间文本 (编辑框12.内容, 编辑框13.内容, “</div>”)
编辑框2.内容 = “”
.计次循环首 (取文本长度 (编辑框11.内容), i)
.如果真 (取反 (取代码 (取文本中间 (编辑框11.内容, i, 1), ) ≥ 1 且 取代码 (取文本中间 (编辑框11.内容, i, 1), ) ≤ 255))
加入成员 (w, 取文本中间 (编辑框11.内容, i, 1))
.如果真结束
.计次循环尾 ()
输出调试文本 (取数组成员数 (w))
.变量循环首 (1, 取数组成员数 (w), 2, i)
编辑框16.内容 = 编辑框16.内容 + 字符 (取代码 (w
, )) + 字符 (取代码 (w [i + 1], ))
.变量循环尾 ()
编辑框16.内容 = 编辑框16.内容 + “楼主留言:可以”
第一次分割 = 分割文本 (编辑框16.内容, , )
第二次分割 = 分割文本 (第一次分割 [1], “楼主留言:”, )
编辑框17.内容 = 第二次分割 [1]
编辑框18.内容 = 第二次分割 [2]
[ 此帖被老屌丝在2013-09-19 18:33重新编辑 ]