html格式处理

    Function HTMLcode(ByVal fString)
        fString = Replace(fString, ">", ">")
        fString = Replace(fString, "<", "<")

        fString = Replace(fString, Chr(32), " ")
        fString = Replace(fString, Chr(9), " ")
        fString = Replace(fString, Chr(34), "'")
        fString = Replace(fString, Chr(39), "'")
        fString = Replace(fString, Chr(13), "")
        fString = Replace(fString, " ", " ")
        fString = Replace(fString, Chr(10), "
 ")
        HTMLcode = fString
    End Function