HTML2Str

Sppecial version to convert HTML to string.
Uses RemoveHTML, then after that it converts all HTML characters (or remove them) into readable human string.
Possible needs work.

CodeFunctionName

What is this?

Public

Not Tested

Original Work

Function HTML2Str(HTMLBlock)
    ' Build function to convert html encoded text into actual characters, using ...
    ' Converts the block into regular test string
    '    Can be used to show to end user the content of a page
    '
    '        Needs RemoveHTML()        http://BoldCodes.com/?DevID=NA2DRXEEIZ
    '        Or    RemoveHTMLTags()    http://BoldCodes.com/?DevID=QDGMGTUVQO
    Rett                        = HTMLBlock
    Rett                        = RemoveHTML(Rett)

    ReplaceCharList        = "":                        ReplaceWith = "":                    Rett = Replace(Rett, ReplaceCharList, ReplaceWith)
    ReplaceCharList        = " ":                ReplaceWith = " ":                Rett = Replace(Rett, ReplaceCharList, ReplaceWith)
    ReplaceCharList        = " ":                ReplaceWith = " ":                Rett = Replace(Rett, ReplaceCharList, ReplaceWith)
    ReplaceCharList        = " ":                    ReplaceWith = "":                    Rett = Replace(Rett, ReplaceCharList, ReplaceWith)
    ReplaceCharList        = "!":                ReplaceWith = "!":                Rett = Replace(Rett, ReplaceCharList, ReplaceWith)
    ReplaceCharList        = vbcrlf:                ReplaceWith = "":                    Rett = Replace(Rett, ReplaceCharList, ReplaceWith)
    ReplaceCharList        = vbcr:                    ReplaceWith = "":                    Rett = Replace(Rett, ReplaceCharList, ReplaceWith)
    ReplaceCharList        = vblf:                    ReplaceWith = "":                    Rett = Replace(Rett, ReplaceCharList, ReplaceWith)
    ReplaceCharList        = "(":                ReplaceWith = "(":                Rett = Replace(Rett, ReplaceCharList, ReplaceWith)
    ReplaceCharList        = ")":                ReplaceWith = ")":                Rett = Replace(Rett, ReplaceCharList, ReplaceWith)
    ReplaceCharList        = "(":                    ReplaceWith = "":                    Rett = Replace(Rett, ReplaceCharList, ReplaceWith)
    ReplaceCharList        = ")":                    ReplaceWith = "":                    Rett = Replace(Rett, ReplaceCharList, ReplaceWith)
    ReplaceCharList        = "":                        ReplaceWith = "":                    Rett = Replace(Rett, ReplaceCharList, ReplaceWith)
    ReplaceCharList        = "":                        ReplaceWith = "":                    Rett = Replace(Rett, ReplaceCharList, ReplaceWith)
    ReplaceCharList        = "":                        ReplaceWith = "":                    Rett = Replace(Rett, ReplaceCharList, ReplaceWith)
    ReplaceCharList        = "":                        ReplaceWith = "":                    Rett = Replace(Rett, ReplaceCharList, ReplaceWith)
    ReplaceCharList        = "":                        ReplaceWith = "":                    Rett = Replace(Rett, ReplaceCharList, ReplaceWith)
    ReplaceCharList        = "":                        ReplaceWith = "":                    Rett = Replace(Rett, ReplaceCharList, ReplaceWith)
    ReplaceCharList        = "":                        ReplaceWith = "":                    Rett = Replace(Rett, ReplaceCharList, ReplaceWith)

    HTML2Str                    = Rett
End Function

HTMLBlock