我试图搜索示例,但似乎没有任何工作。 所以我使用HtmlAgilityPack,我想在两个特定标签之间获取内部文本。
示例:
<br>Terms of Service<br></br>Developers<br>
我想获取innertext,其中第一个<br>
和<br>
进入label1,第二个</br>
和<br>
进入label2
就像
Label1.text =&#34;服务条款&#34;
Label2.text =&#34;开发人员&#34;
我如何实现/做/得到这个? P.S;我对HtmlAgilityPack并不熟悉,显示如何做到这一点的代码会做得更好。 : - )
由于
答案 0 :(得分:0)
这有点脏,但应该有用。
Imports System.Text.RegularExpressions
Dim mystring As String = "<br>Terms of Service<br></br>Developers<br>"
Dim pattern1 As String = "(?<=<br>)(.*?)(?=<br>)"
Dim pattern2 As String = "(?<=</br>)(.*)(?=<br>)"
Dim m1 As MatchCollection = Regex.Matches(mystring, pattern1)
Dim m2 As MatchCollection = Regex.Matches(mystring, pattern2)
MsgBox(m1(0).ToString)
MsgBox(m2(0).ToString)
答案 1 :(得分:0)
简短的回答是HAP不适合完成任务。我的笔记如下:
Imports HtmlAgilityPack
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim mystring As String = "<BR>Terms of Service<BR></BR>Developers<BR>"
Dim myDoc As HtmlAgilityPack.HtmlDocument = New HtmlAgilityPack.HtmlDocument
myDoc.LoadHtml(mystring)
' here we notice HAP immediately discards the junk tag </br>
MsgBox(myDoc.DocumentNode.OuterHtml)
' Below we notice that HAP did not close the BR tag because it only
' attempts to close
' certain nested tags associated with tables ( th, tr, td) and lists
' ( li ).
' if this was a supported tag that HAP could fix, the fixed output
' would be as follows:
' <br>Terms of Service<br></br>Developers<br></br></br>
' this string would be parsed as if the last tag closes the first
' and each set of
' inner tags close themselves without any text between them.
' This means even if you changed BR to TD, or some other tag HAP
' fixes nesting on, it
' still would not help to parse this correctly.
' Also HAP does not appear to support XHTML in this .net 2.0 version.
myDoc.OptionFixNestedTags = True
MsgBox(myDoc.DocumentNode.OuterHtml)
' here we put the BR tag into a collection. as it iterates through
' the tags we notice there is no inner text on the BR tag, presumably
' because of two reasons.
' 1. HAP will not close a BR.
' 2. It does not fix your broken nested tags as you expect or required.
Dim myBR As HtmlNodeCollection = myDoc.DocumentNode.SelectNodes("//BR")
If Not myBR Is Nothing Then
For Each br In myBR
MsgBox(br.InnerText)
Next
End If
End Sub
End Class