16,722
社区成员




Dim tr As TextReader
If txtDeHTMLPath.Text = "" Then
MsgBox("Please input html path.", MsgBoxStyle.Information, "Information")
Return
End If
tr = File.OpenText(txtDeHTMLPath.Text)
Dim test As String = tr.ReadToEnd()
Dim mx As Match
Dim pattern As String = "<a href=" & "*.htm title=" & "*>"
'Dim pattern As String = "<a href="
'MsgBox(pattern)
'Return
Dim i As Integer = 1
For Each mx In Regex.Matches(test, pattern, RegexOptions.Multiline + RegexOptions.Compiled)
MsgBox(mx.Groups(i).Value)
TextBox1.AppendText(mx.Groups(i).Value)
TextBox1.AppendText(vbCrLf)
i = i + 1
Next
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim yourStr As String = "<a href=""aaaa.htm"" title=""testaaaa"">aaaaa text</a>" + vbCrLf + "<a href=""bbbb.htm"" title=""testbbbb"">bbbbb text</a>"
Dim mc As MatchCollection = Regex.Matches(yourStr, "(?is)<a href=(""?)(?<url>[^"" ]+)\1 +title=(""?)(?<title>[^""]+)\2[^>]*>(?<text>[^<>]+)</a>")
For Each m As Match In mc
MessageBox.Show("url = " & m.Groups("url").Value)
MessageBox.Show("title = " & m.Groups("title").Value)
MessageBox.Show("text = " & m.Groups("text").Value)
Next
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim yourStr As String = "<a href=""aaaa.htm"" title=""testaaaa"">aaaaa text</a>" + vbCrLf + "<a href=""bbbb.htm"" title=""testbbbb"">bbbbb text</a>"
Dim mc As MatchCollection = Regex.Matches(yourStr, "<a href=(""?)(?<url>[^"" ]+)\1 +title=(""?)(?<title>[^""]+)\2")
For Each m As Match In mc
MessageBox.Show("url = " & m.Groups("url").Value)
MessageBox.Show("title = " & m.Groups("title").Value)
Next
End Sub