前端之家收集整理的这篇文章主要介绍了
VB.NET 获取HTML中的文字,
前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
''' <summary>
''' 去除HTML标记
''' </summary>
''' <param name="strHtml">包括HTML的源码 </param>
''' <returns>已经去除后的文字</returns>
Public Shared Function GetStrfromHTML(ByVal strHtml As String) As String
Dim aryReg As String() = {"<script[^>]*?>.*?</script>","<(\/\s*)?!?((\w+:)?\w+)(\w+(\s*=?\s*(([""'])(\\[""'tbnr]|[^\7])*?\7|\w+)|.{0})|\s)*?(\/\s*)?>","([\r\n])[\s]+","&(quot|#34);","&(amp|#38);","&(lt|#60);",_
"&(gt|#62);","&(nbsp|#160);","&(iexcl|#161);","&(cent|#162);","&(pound|#163);","&(copy|#169);",_
"&#(\d+);","-->","<!--.*\n"}
'chr(161),'chr(162),'chr(163),'chr(169),Dim aryRep As String() = {"","","""","&","<",_
">"," ","¡","¢","£","©",_
"",vbCr & vbLf,""}
Dim newReg As String = aryReg(0)
Dim strOutput As String = strHtml
For i As Integer = 0 To aryReg.Length - 1
Dim regex As New Regex(aryReg(i),RegexOptions.IgnoreCase)
strOutput = regex.Replace(strOutput,aryRep(i))
Next
strOutput.Replace("<","")
strOutput.Replace(">","")
strOutput.Replace(vbCr & vbLf,"")
Return strOutput
End Function