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.
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
' 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 111
Downloads 41
CodeID
DB ID