'=================================================
' Process name: removehtml (StrText)
' Function: Place HTML
' Parameter: StrText: Action Object
'=================================================
Public Function removehtml (strText)
Dim RegEx
Set RegEx = New RegExp
Regex.pattern = "<[^>]*>"
Regex.global = True
removehtml = Regex.Replace (StrText, "")
End Function
function HTMLEncode (fstring)
If not IsNull (fstring) Then
fstring = replace (fstring, ">", ">")
fstring = replace (fstring, "<", "<")
fstring = Replace (fstring, CHR (), " ")
fstring = Replace (fstring, CHR (9), " ")
fstring = Replace (fstring, CHR (), """)
fstring = Replace (fstring, CHR (), "& #39;")
fstring = Replace (fstring, CHR (13), "")
fstring = Replace (fstring, CHR (a) & CHR (a), "</P><P>")
fstring = Replace (fstring, CHR (), "<BR>")
fstring = Replace (fstring, "<sup>", "<sup>")
fstring = Replace (fstring, "</sup>", "</sup>")
HTMLEncode = fstring
End If
End Function
function Encodetotxt (fstring)
If not IsNull (fstring) Then
fstring = replace (fstring, ">", ">")
fstring = replace (fstring, "<", "<")
fstring = Replace (fstring, "&nbsp;", CHR (9))
fstring = Replace (fstring, "&nbsp;", CHR (9))
fstring = Replace (fstring, """, CHR (34))
fstring = Replace (fstring, "& #39;", CHR (39))
fstring = Replace (fstring, "", CHR (13))
fstring = Replace (fstring, "</P><P>", CHR (Ten) & CHR (10))
' fstring = Replace (fstring, "<BR>", CHR (10))
fstring = Replace (fstring, "<sup>", "<sup>")
fstring = Replace (fstring, "</sup>", "</sup>")
End If
Encodetotxt = fstring
End Function
function Encodetotext (fstring)
If not IsNull (fstring) Then
fstring = replace (fstring, ">", ">")
fstring = replace (fstring, "<", "<")
fstring = Replace (fstring, "&nbsp;", CHR (9))
fstring = Replace (fstring, "&nbsp;", CHR (9))
fstring = Replace (fstring, """, CHR (34))
fstring = Replace (fstring, "& #39;", CHR (39))
fstring = Replace (fstring, "", CHR (13))
fstring = Replace (fstring, "</P><P>", CHR (Ten) & CHR (10))
fstring = Replace (fstring, "<BR>", CHR (10))
fstring = Replace (fstring, "<sup>", "<sup>")
fstring = Replace (fstring, "</sup>", "</sup>")
End If
Encodetotext = fstring
End Function