用的是文本操作 建议使用彗星HTTP应用模块 我拿百度的做例子 网页标题的格式是<title>标题</title>我们取标题 找2个title去中间就行了
.版本 2
.局部变量 返回文本, 文本型
.局部变量 位置1, 整数型, , , <title>的位置
.局部变量 位置2, 整数型, , , </title>的位置
返回文本 = 彗星HTTP读文本 (“www.baidu.com”)
位置1 = 寻找文本 (返回文本, “<title>”, , 真) + 7 ' 加7是因为<title>占了7个字符
位置2 = 寻找文本 (返回文本, “</title>”, 位置1, 真)
信息框 (取文本中间 (返回文本, 位置1, 位置2 - 位置1), 0, ) ' 位置2-位置1就是标题占的字符了
不要模块的方法:
.版本 2
.支持库 internet
.子程序 _按钮1_被单击
.局部变量 a, 整数型
.局部变量 b, 整数型
.局部变量 网页文本, 文本型
网页文本 = 到文本 (HTTP读文件 (“http://www.jdw8.com”))
a = 寻找文本 (网页文本, “<title>”, , 真) + 7
b = 寻找文本 (网页文本, “</title>”, a, 真)
信息框 (取文本中间 (网页文本, a, b - a), 0, )
参考资料: http://www.jdw8.com