Function transferhtml (ByVal Source,para)
Dim objRegExp
' Change first ' & '
If INSTR (Para, "[ampersand]") >0 Then source=replace (source, "&", "&")
If INSTR (Para, "[;]") >0 Then source=replace (source, "<", "<")
If INSTR (Para, "[]") >0 Then source=replace (source, ">", ">")
If INSTR (Para, "["] ") >0 Then source=replace (source," "" "," " ")
If INSTR (Para, "[Space]") >0 Then source=replace (Source, "", " ")
If INSTR (Para, [Enter]) >0 Then
Source=replace (Source,vbcrlf, "<br/>")
Source=replace (SOURCE,VBLF, "<br/>")
End If
If INSTR (Para, "[VbCrlf]") >0 Then
Set objregexp=new REGEXP
Objregexp.ignorecase =true
Objregexp.global=true
Objregexp.pattern= "(</?form[^n<]*>) | ( <select[^n<]*>) | (<textarea[^n<]*>) | (</?option[^n<]*>) | (</?dl[^n<]*>) | (</?dt[^n<]*>) | (</?dd[^n<]*>) | (</?th[^n<]*>) | (</?tr[^n<]*>) | (</?td[^n<]*>) | (</?tbody[^n<]*>) | (</?table[^n<]*>) | (</?hr[^n<]*>) | (</?div[^n<]*>) | (</?ul[^n<]*>) | (</?li[^n<]*>) | (</?ol[^n<]*>) | (</?h1[^n<]*>) | (</?h2[^n<]*>) | (</?h3[^n<]*>) | (</?h4[^n<]*>) | (</?h5[^n<]*>) | (</?h6[^n<]*>) | (</?p[^n<]*>)) (x20* (rn|n)) "
Source= objregexp.replace (source, "$")
Objregexp.pattern= "(rn|n)"
Source= objregexp.replace (source, "<br/>")
Source=replace (source, "Source=replace (source, "Source=replace (source, "<body>", "")
Source=replace (source, "</body>", "")
End If
If INSTR (Para, "[VbTab]") >0 Then source=replace (source,vbtab, " ")
If INSTR (Para, "[no-asp]") >0 Then
Source=replace (Source, "<" & "%", "<" & "%")
Source=replace (source, "%" & ">", "%" & ">")
End If
If INSTR (Para, "[nofollow]") >0 Then
Source=replace (source, "<a", "<a rel=" "nofollow" "")
End If
If INSTR (Para, "[nohtml]") >0 Then
Set objregexp=new REGEXP
Objregexp.ignorecase =true
Objregexp.global=true
Objregexp.pattern= "<[^>]*>"
Source= objregexp.replace (source, "")
End If
If INSTR (para, "[filename]") >0 Then
Source=replace (Source, "/", "")
Source=replace (Source, "", "")
Source=replace (Source, ":", "")
Source=replace (source, "?", "")
Source=replace (Source, "*", "")
Source=replace (Source, "" "", "")
Source=replace (Source, "<", "")
Source=replace (source, ">", "")
Source=replace (source, "|", "")
Source=replace (Source, "", "")
End If
If INSTR (Para, "[Normalname]") >0 Then
Source=replace (Source, "$", "")
Source=replace (Source, "(", "")
Source=replace (source, ")", "" "
Source=replace (Source, "*", "")
Source=replace (source, "+", "")
Source=replace (Source, ",", "")
Source=replace (Source, "[", "")
Source=replace (source, "]", "")
Source=replace (source, "{", "")
Source=replace (Source, "}", "")
Source=replace (source, "?", "")
Source=replace (Source, "", "")
Source=replace (source, "^", "")
Source=replace (source, "|", "")
Source=replace (Source, ":", "")
Source=replace (Source, "" "", "")
Source=replace (Source, "'", "")
End If
If INSTR (Para, "[textarea]") >0 Then
Source=replace (Source, "&", "&")
Source=replace (source, "%", "& #037;")
Source=replace (Source, "<", "<")
Source=replace (source, ">", ">")
End If
If INSTR (Para, "[Html-format]") >0 Then
Source=replace (Source, "&", "&")
Source=replace (Source, "<", "<")
Source=replace (source, ">", ">")
Source=replace (Source, "" "," " ")
End If
If INSTR (Para, "[Anti-html-format]") >0 Then
Source=replace (source, """, "" ")
Source=replace (source, "<", "<")
Source=replace (source, ">", ">")
Source=replace (source, "&", "&")
End If
If INSTR (Para, "[wapnohtml]") >0 Then
Source=replace (source, "<br/>", vbCrLf)
Source=replace (source, "<br>", vbCrLf)
Set objregexp=new REGEXP
Objregexp.ignorecase =true
Objregexp.global=true
Objregexp.pattern= "(<[^>]*) | ([^<]*>) "
Source= objregexp.replace (source, "")
Objregexp.pattern= "(rn|n)"
Source= objregexp.replace (source, "<br/>")
End If
If INSTR (Para, "[NBSP-BR]") >0 Then
Set objregexp=new REGEXP
Objregexp.ignorecase =true
Objregexp.global=true
Objregexp.pattern= "<$|<b$|<br$|<br/$"
Source= objregexp.replace (source, "")
Objregexp.pattern= "^br/>|^r/>|^/>|^>"
Source= objregexp.replace (source, "")
Objregexp.pattern= "<br/>"
Source= objregexp.replace (source, "<br/>")
Objregexp.pattern= "&nbsp;"
Source= objregexp.replace (source, "")
End If
If INSTR (Para, "[closehtml]") >0 Then
source=closehtml (source)
End If
Transferhtml=source
End Function