[原创]将HTML替换为文字

 

'过滤HTML字符替换为文字
Public Function ReplaceToText(ByVal Html As String)
    On Error GoTo ErrLabel '打开错误陷阱
    '------------------------------------------------
    Dim i As Integer
    Dim CurPosBefore As Long
    Dim CurPosEnd As Long
    Dim ReplaceTextTMP As String
    Dim ReplaceText As String   '替换为该字符
    Html = Replace$(Html, "<br />", vbCrLf)
    Do
        ReplaceText = ""
        CurPosBefore = InStr(1, Html, "<")
        If CurPosBefore <> 0 Then
            'found < text
            CurPosEnd = InStr(CurPosBefore, Html, ">")
            If CurPosEnd <> 0 Then
                'found > text
                ReplaceTextTMP = Mid$(Html, CurPosBefore, CurPosEnd - CurPosBefore + 1)
                If Len(ReplaceTextTMP) > 3 Then
                    If Left$(ReplaceTextTMP, 4) = "<img" Then
                        ReplaceText = "[图象]"
                    End If
                End If
                Html = Replace$(Html, ReplaceTextTMP, ReplaceText)
            End If
        End If
        
        If InStr(1, Html, "<") = 0 Or InStr(1, Html, ">") = 0 Then Exit Do
    Loop While True
    Html = Replace$(Html, "&nbsp;", " ")
    ReplaceToText = Html
    '------------------------------------------------
    Exit Function
    '----------------
ErrLabel:
    '跳出错误对话框，并保存错误信息
    Call SaveErrLog("modGeneric", "ReplaceToText")
    Resume Next
End Function
a