超级列表框取第一项网站的标题

精易⌒瘋子

洃铯‰感伤 发表于 2013-8-23 19:55
应该是编码问题。    把源码发过来我看看。

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

.子程序 取标题
.局部变量 计次, 整数型
.局部变量 返回文本, 文本型
.局部变量 网站标题, 文本型

.计次循环首 (超级列表框1.取表项数 (), 计次)
返回文本 ＝ 到文本 (编码_Utf8到Ansi (HTTP读文件 (超级列表框1.取标题 (计次 － 1, 0))))
网站标题 ＝ 文本_取出中间文本 (返回文本, “<title>”, “</title>”)
超级列表框1.置标题 (计次 － 1, 1, 网站标题)
.计次循环尾 ()

[/e]

洃铯‰感伤

[e]
.版本 2

.子程序 取标题
.局部变量 计次, 整数型
.局部变量 返回文本, 文本型
.局部变量 网站标题, 文本型

.计次循环首 (超级列表框1.取表项数 (), 计次)
    返回文本 ＝ 网页_访问s (超级列表框1.取标题 (计次 － 1, 0))
    网站标题 ＝ 文本_取出中间文本 (返回文本, “<title>”, “</title>”)
    超级列表框1.置标题 (计次 － 1, 1, 网站标题)
.计次循环尾 ()
[/e]


编码_Utf8到Ansi (HTTP读文件 (超级列表框1.取标题 (计次 － 1, 0)))   这个问题，不是所有的都是这种编码的


上面的代码还不行的话就要判断是什么编码再用什么解码了。