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

精易⌒瘋子

需要把超级列表框的网站标题所有网站的标题取出来写到对应的子表项上面。

洃铯‰感伤

1. .版本 2
   
2. .支持库 iext
   
3. .支持库 EThread
   
4. 
   
5. .子程序 取标题
   
6. .局部变量 计次, 整数型
   
7. .局部变量 返回文本, 文本型
   
8. .局部变量 网站标题, 文本型
   
9. 
   
10. .计次循环首 (超级列表框1.取表项数 (), 计次)
    
11.     返回文本 ＝ 网页_访问s (超级列表框1.取标题 (计次 － 1, 0))
    
12.     网站标题 ＝ 文本_取出中间文本 (返回文本, “<title>”, “</title>”)
    
13.     超级列表框1.置标题 (计次 － 1, 1, 网站标题)
    
14. .计次循环尾 ()
    
15. 
    
16. .子程序 _按钮1_被单击
    
17. 
    
18. 启动线程 (&取标题, , )
    

复制代码

提百万

简单，基本上都是这样的。<title>百度一下，你就知道</title>

标题 = 文本_取出中间文本(网站源码，“<title>”，"</title>“)

精易⌒瘋子

网站少还可以  这个这么多网站 这招不行

洃铯‰感伤

网址多少？    目测用正则。

Hoibben

精易⌒瘋子 发表于 2013-8-21 23:43
网站少还可以  这个这么多网站 这招不行

怎么不行？把你要取的网址发出来呗。。。

洃铯‰感伤

前面没看清楚，   沙发的办法没错。   

提百万

精易⌒瘋子 发表于 2013-8-21 23:43
网站少还可以  这个这么多网站 这招不行

怎么不行？那你想怎么，不读源码就取到他的标题？异想天开么。。

精易⌒瘋子

洃铯‰感伤 发表于 2013-8-22 00:05

有很多错误的 这应该怎么解决啊

洃铯‰感伤

精易⌒瘋子 发表于 2013-8-23 19:50
有很多错误的 这应该怎么解决啊

应该是编码问题。    把源码发过来我看看。