第1个回答 推荐于2017-09-16
贡献我的源码了、、好评啊亲
把下面的源码复制进去:
---------------------------------------------------------------
.版本 2
.子程序 取指定文本, 文本型, 公开
.参数 被搜寻的文本, 文本型
.参数 欲寻找的文本头, 文本型, , 不包含此文本
.参数 欲寻找的文本尾, 文本型, , 不包含此文本
.局部变量 a, 整数型
.局部变量 b, 整数型
.局部变量 取得文本, 文本型
a = 寻找文本 (被搜寻的文本, 欲寻找的文本头, , 假)
a = a + 取文本长度 (欲寻找的文本头)
b = 寻找文本 (被搜寻的文本, 欲寻找的文本尾, , 假)
取得文本 = 取文本中间 (被搜寻的文本, a, b - a)
返回 (取得文本)
---------------------------------------------------------------
参数1你把整个网页的源码转换为文本给他就行了
参数2是你要找的文本的前一段字符,查找后不包含在内的
参数3是你要找的文本的后面的一段字符,查找后不包含在内
使用方法:直接调用 取指定文本(,,)
他会返回你要找的文字的本回答被提问者和网友采纳
第2个回答 推荐于2017-09-14
.版本 2
.支持库 internet
.支持库 spec
.子程序 __启动窗口_创建完毕
.局部变量 网页标题, 文本型
.局部变量 网页内容, 文本型
网页内容 = 到文本 (HTTP读文件 (“这里输入网址”)) ' 注意 网页如果是UTF-8编码 你还得转码
网页标题 = 采集_取总文本 (网页内容, “<title>”, “</title>”)
调试输出 (网页标题)
.子程序 采集_取总文本, 文本型
.参数 总文本, 文本型
.参数 文本头, 文本型
.参数 文本尾, 文本型
.局部变量 位置1, 整数型
.局部变量 位置2, 整数型
位置1 = 寻找文本 (总文本, 文本头, , 真)
位置2 = 寻找文本 (总文本, 文本尾, 位置1 + 取文本长度 (文本头), 真)
.如果真 (位置2 > 位置1)
返回 (取文本中间 (总文本, 位置1 + 取文本长度 (文本头), 位置2 - 取文本长度 (文本头) - 位置1))
.如果真结束
返回 (“”)
第3个回答 2012-11-22
http读取文件 用正则表达式匹配
第4个回答 2012-11-22
用gongyaya123所说的也行,自己写个取文本中间。