怎么获取webbrowser控件中选定部分中的所有文字标题和链接？多谢
如何获取webbrowser控件中选定部分中的所有文字标题和链接？谢谢!
我用webbrowser控件下了一个网页回来，选[定其上的一些带链接的文本，如何能只获取这些选定的文本及其链接呢？谢谢各位，100分奉上。
------解决方案--------------------
http://www.vipcn.com/InfoView/Article_200505.html
http://blog.****.net/cathyeagle/archive/2004/09/03/93984.aspx
http://topic.****.net/t/20010427/20/107544.html
------解决方案--------------------
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.WebBrowser1.Url = New System.Uri( "http://www.****.net ", System.UriKind.Absolute)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'网页加载完成后执行正规则表达式验证
test()
End Sub
' ' ' <summary>
' ' ' 获取网页内的连接
' ' ' </summary>
Public Sub test()
Dim getReader As System.IO.StreamReader = New System.IO.StreamReader(Me.WebBrowser1.DocumentStream, System.Text.Encoding.GetEncoding(Me.WebBrowser1.Document.Encoding))
Dim doc As String = getReader.ReadToEnd()
Dim temp As String = " "
' <a href= "http://www.baidu.com "> ceshi </a>
Dim f As New System.Text.RegularExpressions.Regex( " <a href=(? <body> [\s\S]*?) </a\> ")
Dim sum As Integer = f.Matches(doc).Count
Dim col As System.Text.RegularExpressions.MatchCollection = f.Matches(doc)
For i As Integer = 0 To col.Count - 1
Me.RichTextBox1.Text += col.Item(i).Groups(0).ToString + ChrW(13)
Next
End Sub
------解决方案--------------------
获取所有文字和连接以后,
去和ctrl+c获取选中部分的文字进行匹配.找出相应的链接
------解决方案--------------------
顶
我用webbrowser控件下了一个网页回来，选[定其上的一些带链接的文本，如何能只获取这些选定的文本及其链接呢？谢谢各位，100分奉上。
------解决方案--------------------
http://www.vipcn.com/InfoView/Article_200505.html
http://blog.****.net/cathyeagle/archive/2004/09/03/93984.aspx
http://topic.****.net/t/20010427/20/107544.html
------解决方案--------------------
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.WebBrowser1.Url = New System.Uri( "http://www.****.net ", System.UriKind.Absolute)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'网页加载完成后执行正规则表达式验证
test()
End Sub
' ' ' <summary>
' ' ' 获取网页内的连接
' ' ' </summary>
Public Sub test()
Dim getReader As System.IO.StreamReader = New System.IO.StreamReader(Me.WebBrowser1.DocumentStream, System.Text.Encoding.GetEncoding(Me.WebBrowser1.Document.Encoding))
Dim doc As String = getReader.ReadToEnd()
Dim temp As String = " "
' <a href= "http://www.baidu.com "> ceshi </a>
Dim f As New System.Text.RegularExpressions.Regex( " <a href=(? <body> [\s\S]*?) </a\> ")
Dim sum As Integer = f.Matches(doc).Count
Dim col As System.Text.RegularExpressions.MatchCollection = f.Matches(doc)
For i As Integer = 0 To col.Count - 1
Me.RichTextBox1.Text += col.Item(i).Groups(0).ToString + ChrW(13)
Next
End Sub
------解决方案--------------------
获取所有文字和连接以后,
去和ctrl+c获取选中部分的文字进行匹配.找出相应的链接
------解决方案--------------------
顶