摘要：
'过滤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 CurPosEnd = InStr(CurPosBefore, Html, "")
If CurPosEnd 阅读全文
