获取两个标签之间的内部文本，并获得输出到两个标签 - VB.NET - HtmlAgilityPack

Question

我试图搜索的例子和很多，但似乎没有任何工作。 所以我使用HtmlAgilityPack，我想获取两个特定标签之间的内部文本。

实施例：

<br>Terms of Service<br></br>Developers<br> 

我想获得的innerText其中第一<br>和<br>到label1和第二</br>和<br>成LABEL2

这将是象

Label1.text = “服务条款”
Label2.text =“Developers”

我如何实现/做/得到这个？ P.s;我对HtmlAgilityPack并不熟悉，显示如何做到这一点的代码会更好。 :-)

谢谢

Answer 1

这是有点脏，但应该工作。

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) 

Answer 2

简而言之，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