.版本 2
.支持库 spec
.子程序 查看回复, 文本型
.局部变量 a, 文本型
.局部变量 b, 整数型
.局部变量 c, 文本型
.局部变量 i, 整数型
.局部变量 次数, 整数型
.局部变量 s, 整数型
.局部变量 右边, 文本型
'
http://bbs.houdao.com/apps.php?q=article&uid=16594133&see=post&ptable=24&page=1a ＝ 奔放_HTTP读文本 (“
http://bbs.houdao.com/apps.php?q=article&uid=” ＋ 编辑框1.内容 ＋ “&see=post&ptable=24&page=1”)
c ＝ 文本_取出中间文本 (a, #a, #b)
.计次循环首 (到整数 (c), i)
b ＝ b ＋ 1
.如果 (到整数 (c) ≥ b)
a ＝ 奔放_HTTP读文本 (“
http://bbs.houdao.com/apps.php?q=article&uid=” ＋ 编辑框1.内容 ＋ “&see=post&ptable=24&page=” ＋ 到文本 (b))
s ＝ 次数
次数 ＝ 文本_取出现次数 (a, “[CF穿越火线]”)
次数 ＝ s ＋ 次数
.否则
.如果结束
.如果真 (寻找文本 (a, 删首尾空 (“<p>” ＋ 编辑框3.内容), , 假) ≠ -1)
右边 ＝ 文本_取右边 (a, “<p>” ＋ 编辑框3.内容)
次数 ＝ 次数 － 文本_取出现次数 (右边, “CF穿越火线]”) － 1
调试输出 (“找到了” ＋ 到文本 (次数))
跳出循环 ()
.如果真结束
.计次循环尾 ()
按钮1.禁止 ＝ 假
编辑框2.加入文本 (“该会员本月CF版块回复数约为：” ＋ 到文本 (次数) ＋ #换行符)
编辑框2.加入文本 (“本月回复共计：” ＋ 到文本 (b) ＋ “ 页” ＋ #换行符)
返回 (到文本 (次数))
每次算的都不一样 不准 蛋疼
