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

Views 126

Downloads 54

CodeID
DB ID