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*)?>","([rn])[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


    

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!