50JB！获取网页文本，会的帮忙修改一下，取不出来

陆地的星空

如题
我想用HTTP获取网页文本，然后取出指定的内容
可是现在取不出来
如图

附件： 获取公告.rar (77.24 KB, 下载次数: 42)

2011-11-30 13:22 上传

点击文件名下载附件
用到精易模块

Are

这个挺简单的。。{:3_227:}
源码.rar (23.79 KB, 下载次数: 71)

2011-11-30 13:33 上传

点击文件名下载附件

看看吧 楼主~

hdstu

[e].版本 2.支持库 internet

.程序集 窗口程序集1

.子程序 __启动窗口_首次激活

编辑框1.内容 ＝ 取中间文本 (到文本 (HTTP读文件 (“http://nianzhouwangluo.cccpan.com/”)), “公告→”, “←公告”)

.子程序 取中间文本, 文本型, 公开
.参数 要取的文本, 文本型
.参数 首文本, 文本型
.参数 尾文本, 文本型
.局部变量 首位置, 整数型
.局部变量 末位置, 整数型

首位置 ＝ 寻找文本 (要取的文本, 首文本, , 假)
末位置 ＝ 寻找文本 (要取的文本, 尾文本, 首位置, 假)
返回 (取文本中间 (要取的文本, 首位置 ＋ 取文本长度 (首文本), 末位置 － 取文本长度 (尾文本) － 首位置 － 取文本长度 (首文本) ＋ 1))
[/e]

lucky

不错，看看

Jmp520

公告网址 打不开··

exit11

.版本 2
.支持库 internet

.子程序 公告_获取公告, 文本型, 公开, 用读HTTP文件的方式获取网络公告，要获取的公告前后分别加上：公告→公告内容←公告
.参数 公告网址, 文本型, , 要获取公告的网址
.参数 欲获取公告前文本, 文本型, , 要获取的公告文本前面文本 例：公告→
.参数 欲获取公告后文本, 文本型, , 要获取的公告文本后面文本 例：←公告


返回 (文本_取出中间文本 (到文本 (HTTP读文件 (公告网址)), 欲获取公告前文本, 欲获取公告后文本))

exit11

.版本 2
.支持库 internet

.子程序 公告_获取公告, 文本型, 公开, 用读HTTP文件的方式获取网络公告，要获取的公告前后分别加上：公告→公告内容←公告
.参数 公告网址, 文本型, , 要获取公告的网址
.参数 欲获取公告前文本, 文本型, , 要获取的公告文本前面文本 例：公告→
.参数 欲获取公告后文本, 文本型, , 要获取的公告文本后面文本 例：←公告


返回 (文本_取出中间文本 (到文本 (HTTP读文件 (公告网址)), 欲获取公告前文本, 欲获取公告后文本))

exit11

没有链接的回复也要审核？结果发重复了

小马过河

[e].版本 2

.子程序 取公告信息, 文本型, 公开, 比如：欲取全文本为“12345”,现在要取出“3”，<3>的前面为“2”，<3>的后面为“4”，
.参数 欲取全文本, 文本型, , 比如：欲取全文本为 12345
.参数 前面文本, 文本型, , 3的前面为“2”
.参数 后面文本, 文本型, , 3的后面为“4”

返回 (文本_取出中间文本 (欲取全文本, 前面文本, 后面文本))
[/e]

ilwm

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

.程序集 窗口程序集1

.子程序 __启动窗口_首次激活

延迟 (2000)
编辑框1.内容 ＝ 公告_获取公告 (“http://nianzhouwangluo.cccpan.com/”, “公告→”, “←公告”)

.子程序 公告_获取公告, 文本型, 公开, 用读HTTP文件的方式获取网络公告，要获取的公告前后分别加上：公告→公告内容←公告
.参数 公告网址, 文本型, , 要获取公告的网址
.参数 欲获取公告前文本, 文本型, , 要获取的公告文本前面文本 例：公告→
.参数 欲获取公告后文本, 文本型, , 要获取的公告文本后面文本 例：←公告

返回 (文本_取出中间文本 (到文本 (HTTP读文件 (公告网址)), 欲获取公告前文本, 欲获取公告后文本))