Remove html text

[Sljs]

I need to remove html text from a make table in access 2007. My table name is "Bad Actors Comments Column" and the column where the html text resides is "FirstOfADD_TEXT. Does anyone have VBA code to remove the html text?

thanks,

 

[jdraw]

I found this recently. I did not write it.
You can try it.

Function StripHTML(sHtml As String) As String

    Dim RegEx As Object
    On Error GoTo StripHTML_Error

    Set RegEx = CreateObject("vbscript.regexp")
    Dim sInput As String
    Dim sOut As String
    sInput = sHtml

    sInput = Replace(sInput, " \ x0D \ x0A", Chr(10))
    sInput = Replace(sInput, "\x00?", Chr(10))

    'replace HTML breaks and end of paragraphs with line breaks
    sInput = Replace(sInput, "</P>", Chr(10) & Chr(10))
    sInput = Replace(sInput, " < BR > ", Chr(10))

    'replace bullets with dashes
    sInput = Replace(sInput, " < li > ", " - ")

    'add back all of the special characters
    sInput = Replace(sInput, "–", "–")
    sInput = Replace(sInput, "—", "—")
    sInput = Replace(sInput, "¡", "¡")
    sInput = Replace(sInput, "¿", "¿")
    sInput = Replace(sInput, """, "")
    sInput = Replace(sInput, "“", " ")
    sInput = Replace(sInput, "”", " ")
    sInput = Replace(sInput, "", "'")
    sInput = Replace(sInput, "‘", "'")
    sInput = Replace(sInput, "’", "’")
    sInput = Replace(sInput, "«", "«")
    sInput = Replace(sInput, "»", "»")
    sInput = Replace(sInput, " ", " ")
    sInput = Replace(sInput, "&", " & ")
    sInput = Replace(sInput, "¢", "¢")
    sInput = Replace(sInput, "©", "©")
    sInput = Replace(sInput, "÷", "÷")
    sInput = Replace(sInput, ">", " > ")
    sInput = Replace(sInput, "<", " < ")
    sInput = Replace(sInput, "µ", "µ")
    sInput = Replace(sInput, "·", "·")
    sInput = Replace(sInput, "¶", "¶")
    sInput = Replace(sInput, "±", "±")
    sInput = Replace(sInput, "€", "€")
    sInput = Replace(sInput, "£", "£")
    sInput = Replace(sInput, "®", "®")
    sInput = Replace(sInput, "§", "§")
    sInput = Replace(sInput, "™", "™")
    sInput = Replace(sInput, "¥", "¥")
    sInput = Replace(sInput, "á", "á")
    sInput = Replace(sInput, "Á", "Á")
    sInput = Replace(sInput, "à", "à")
    sInput = Replace(sInput, "À", "À")
    sInput = Replace(sInput, "â", "â")
    sInput = Replace(sInput, "Â", "Â")
    sInput = Replace(sInput, "å", "å")
    sInput = Replace(sInput, "Å", "Å")
    sInput = Replace(sInput, "ã", "ã")
    sInput = Replace(sInput, "Ã", "Ã")
    sInput = Replace(sInput, "ä", "ä")
    sInput = Replace(sInput, "Ä", "Ä")
    sInput = Replace(sInput, "æ", "æ")
    sInput = Replace(sInput, "Æ", "Æ")
    sInput = Replace(sInput, "ç", "ç")
    sInput = Replace(sInput, "Ç", "Ç")
    sInput = Replace(sInput, "é", "é")
    sInput = Replace(sInput, "É", "É")
    sInput = Replace(sInput, "è", "è")
    sInput = Replace(sInput, "È", "È")
    sInput = Replace(sInput, "ê", "ê")
    sInput = Replace(sInput, "Ê", "Ê")
    sInput = Replace(sInput, "ë", "ë")
    sInput = Replace(sInput, "Ë", "Ë")
    sInput = Replace(sInput, "í", "í")
    sInput = Replace(sInput, "Í", "Í")
    sInput = Replace(sInput, "ì", "ì")
    sInput = Replace(sInput, "Ì", "Ì")
    sInput = Replace(sInput, "î", "î")
    sInput = Replace(sInput, "Î", "Î")
    sInput = Replace(sInput, "ï", "ï")
    sInput = Replace(sInput, "Ï", "Ï")
    sInput = Replace(sInput, "ñ", "ñ")
    sInput = Replace(sInput, "Ñ", "Ñ")
    sInput = Replace(sInput, "ó", "ó")
    sInput = Replace(sInput, "Ó", "Ó")
    sInput = Replace(sInput, "ò", "ò")
    sInput = Replace(sInput, "Ò", "Ò")
    sInput = Replace(sInput, "ô", "ô")
    sInput = Replace(sInput, "Ô", "Ô")
    sInput = Replace(sInput, "ø", "ø")
    sInput = Replace(sInput, "Ø", "Ø")
    sInput = Replace(sInput, "õ", "õ")
    sInput = Replace(sInput, "Õ", "Õ")
    sInput = Replace(sInput, "ö", "ö")
    sInput = Replace(sInput, "Ö", "Ö")
    sInput = Replace(sInput, "ß", "ß")
    sInput = Replace(sInput, "ú", "ú")
    sInput = Replace(sInput, "Ú", "Ú")
    sInput = Replace(sInput, "ù", "ù")
    sInput = Replace(sInput, "Ù", "Ù")
    sInput = Replace(sInput, "û", "û")
    sInput = Replace(sInput, "Û", "Û")
    sInput = Replace(sInput, "ü", "ü")
    sInput = Replace(sInput, "Ü", "Ü")
    sInput = Replace(sInput, "ÿ", "ÿ")
    sInput = Replace(sInput, "", "´")
    sInput = Replace(sInput, "", "`")

    'replace all the remaining HTML Tags
    With RegEx
        .Global = True
        .IgnoreCase = True
        .Multiline = True
        .Pattern = "<[^>]+>"    'Regular Expression for HTML Tags."

    End With
    sOut = RegEx.Replace(sInput, "")
    StripHTML = sOut
    Set RegEx = Nothing

    On Error GoTo 0
    Exit Function

StripHTML_Error:

    MsgBox "Error " & Err.number & " (" & Err.Description & ") in procedure StripHTML "

End Function

Good luck

 

[Sljs]

This looks like it may work but I dont know how to point it to my table and column. Would you know what i need to do so it know where the html text is at?

 

[TJPoorman]

If you want to permanently replace the text in your table, you could create an UPDATE query utilizing this function.
If you only want to view it temporarily you would utilize a SELECT query