关于网页寻找文本

laosijishare

搞了一天了也没搞定这个网页获取指定文字，取中间文本，请大神帮忙看下

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

精易Web浏览器1.浏览网页 (“http://baijiahao.baidu.com/s?id=1638210619884552695”)
处理事件 ()
循环判断首 ()
程序_延时 (1000)
调试输出 (“加载中....”)
循环判断尾 (精易Web浏览器1.是否加载完成 () ＝ 假)
时钟1.时钟周期 ＝ 1000

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

变量名	类 型	静态	数组	备 注
填表	普通填表
普通填表	普通填表
局_文本	文本型

普通填表.初始化 (精易Web浏览器1.取窗口句柄 ())
调试输出 (“下一步取网页文本”)
局_文本 ＝ 普通填表.网页_取文本 ()
写到文件 (取运行目录 () ＋ “\myQQ.txt”, 到字节集 (局_文本))
调试输出 (“已拿到网页文本，即将进入判断”)
如果真 (寻找文本 (局_文本, “对于这长风暴的引发者居然是”, , 假) ≠ 1)
时钟1.时钟周期 ＝ 0
调试输出 (“进入判断了”)
局_文本 ＝ 文本_取出中间文本 (局_文本, “对于这长”, “居然是”)
编辑框_存放处.加入文本 (局_文本 ＋ #换行符 )
写到文件 (取运行目录 () ＋ “\myQQ.txt”, 到字节集 (编辑框_存放处.内容))
调试输出 (“结束了”)

i支持库列表	支持库注释
wke	精易web浏览器
spec	特殊功能支持库

.版本 2<br /> .支持库 wke<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集1<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 精易Web浏览器1.浏览网页 (“<a href="http://baijiahao.baidu.com/s?id=1638210619884552695" rel="nofollow" rel="nofollow" target="_blank">http://baijiahao.baidu.com/s?id=1638210619884552695</a>”)<br /> 处理事件 ()<br /> .循环判断首 ()<br />     程序_延时 (1000)<br />     调试输出 (“加载中....”)<br /> .循环判断尾 (精易Web浏览器1.是否加载完成 () ＝ 假)<br /> <br /> 时钟1.时钟周期 ＝ 1000<br /> <br /> .子程序 _时钟1_周期事件<br /> .局部变量 填表, 普通填表<br /> .局部变量 普通填表, 普通填表<br /> .局部变量 局_文本, 文本型<br /> <br /> <br /> 普通填表.初始化 (精易Web浏览器1.取窗口句柄 ())<br /> 调试输出 (“下一步取网页文本”)<br /> 局_文本 ＝ 普通填表.网页_取文本 ()<br /> 写到文件 (取运行目录 () ＋ “\myQQ.txt”, 到字节集 (局_文本))<br /> 调试输出 (“已拿到网页文本，即将进入判断”)<br /> .如果真 (寻找文本 (局_文本, “对于这长风暴的引发者居然是”, , 假) ≠ 1)<br /> <br />     时钟1.时钟周期 ＝ 0<br />     调试输出 (“进入判断了”)<br />     局_文本 ＝ 文本_取出中间文本 (局_文本, “对于这长”, “居然是”)<br />     编辑框_存放处.加入文本 (局_文本 ＋ #换行符)<br />     写到文件 (取运行目录 () ＋ “\myQQ.txt”, 到字节集 (编辑框_存放处.内容))<br /> <br /> <br /> <br /> .如果真结束<br /> 调试输出 (“结束了”)

1754006998

普通填表.初始化 (精易Web浏览器1.取窗口句柄 ())

laosijishare

我改过了，但是取到的是网页源码是乱码？帮忙看下是否有问题？



版本 2
.支持库 wke
.支持库 spec

局_文本 ＝ 精易Web浏览器1.取网页源码 ()
调试输出 (局_文本)
.如果真 (寻找文本 (局_文本, “对于这长风暴的引发者居然是”, , 假) ≠ 1)

    时钟1.时钟周期 ＝ 0
    调试输出 (“进入判断了”)
    局_文本 ＝ 文本_取出中间文本 (局_文本, “对于这长”, “居然是”)
    编辑框_存放处.加入文本 (局_文本 ＋ #换行符)
    写到文件 (取运行目录 () ＋ “\myQQ.txt”, 到字节集 (编辑框_存放处.内容))
.如果真结束
调试输出 (“结束了”)


补充内容 (2019-7-5 23:34):
其他没动，取了关键性的这部分来

laosijishare

需要转码，搞定了，谢谢