VB6 过滤HTML

' 过滤HTML字符替换为文字
Private   Function  ReplaceToText(ByVal Html  As   String )
     Dim  i  As   Integer
     Dim  CurPosBefore  As   Long
     Dim  CurPosEnd  As   Long
     Dim  ReplaceTextTMP  As   String
     Dim  ReplaceText  As   String     ' 替换为该字符
    
     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
     Loop   While   InStr ( 1 , Html,  " < " )  <>   0
    Html  =   Replace (Html,  " &nbsp; " ,  "   " )
    ReplaceToText  =  Html
End Function