Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何提取网页标题


  共有1621人关注过本帖树形打印复制链接

主题：[求助]如何提取网页标题
帅哥哟，离线，有人找我吗？
188802386
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：629 积分：4915 威望：0 精华：0 注册：2014/2/25 15:50:00 		[求助]如何提取网页标题  发帖心情 Post By：2016/11/8 17:04:00 [只看该作者]

<!doctype html>
<html>
<head><title>-首页</title>
<meta name="keywords" content="-首页"/>
<meta name="description" content="-首页" />
<meta charset="utf-8">
<meta name="viewport" content="width=device-width, initial-scale=1.0, maximum-scale=1.0, user-scalable=0" />


请问如何通过网址提取到红色文字内容
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107813 积分：548416 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/11/8 17:34:00 [只看该作者]

https://www.baidu.com/baidu?word=%E8%8E%B7%E5%8F%96html+title&ie=utf-8&tn=myie2dg&ch=6

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=32808

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=49278
 回到顶部
帅哥哟，离线，有人找我吗？
188802386
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：629 积分：4915 威望：0 精华：0 注册：2014/2/25 15:50:00 		  发帖心情 Post By：2016/11/8 17:46:00 [只看该作者] 

' Updates the title bar with the current document title.
Private Sub webBrowser1_DocumentTitleChanged( _
    ByVal sender As Object, ByVal e As EventArgs) _
    Handles webBrowser1.DocumentTitleChanged

    Me.Text = webBrowser1.DocumentTitle

End Sub

但不会呀，麻烦编译一下
Dim page As Integer
Dim web As new windows.forms.webbrowser
web.ScriptErrorsSuppressed = True
For page = 232621561 To 232621562
    Dim txb1 As String = "http://weidian.eallcn.com/" & page
    web.Navigate(txb1)
Do Until web.ReadyState = 4
    Application.DoEvents
Loop
Dim idxx = 1

txb1 = instance.DocumentTitle
output.show(txb1)
For Each dl As object In web.Document.getElementsByTagName("head") 
output.show(DL)
Dim dll =  dl.GetAttribute("title")
    'If dl.GetAttribute("classname") = "title"  Then
       ' Dim dll = dl.Innertext
        If dll > "" Then
output.show(txb1)
output.show(DL)
        End If
'End If
    Next
Next
web.Dispose()
GC.Collect()
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107813 积分：548416 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/11/8 18:00:00 [只看该作者]

Dim page As Integer
Dim web As new windows.forms.webbrowser
web.ScriptErrorsSuppressed = True
For page = 232621561 To 232621562
    Dim txb1 As String = "http://weidian.eallcn.com/" & page
    web.Navigate(txb1)
    Do Until web.ReadyState = 4
        Application.DoEvents
    Loop
    output.show( web.Document.getElementsByTagName("title")(0).InnerText)
Next
web.Dispose()
GC.Collect()
 回到顶部
帅哥哟，离线，有人找我吗？
ztmdnzc
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：501 积分：4167 威望：0 精华：0 注册：2013/1/18 13:34:00 		  发帖心情 Post By：2017/6/7 19:49:00 [只看该作者]

web.Dispose()
GC.Collect()

 

蓝老师：以上两句代码是什么意思？以前没见过。谢谢！

 
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/6/7 20:24:00 [只看该作者]

 web.Dispose()   '把web对象注销

 GC.Collect() '把内存资源回收
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07031 秒, 4 次数据查询