23. maj 2001 - 11:10Der er
1 kommentar og 1 løsning
Fjern HTML tags
Jeg har lavet denne funktion, hvad har jeg overset (den skal strippe alle HTML tags fra)
function funcRemoveHTMLtags(strMyDocument)
dim strRegExp, objRegExp, objMatch, strTemp,Match
\'## THE REGULAR EXPRESSION IN VB strRegExp = \"<(.*)>.*<\\/\\1>\"
Set objRegExp = New RegExp \' Create a regular expression. objRegExp.Pattern = strRegExp \' Set pattern. objRegExp.IgnoreCase = True \' Set case insensitivity. objRegExp.Global = True \' Set global applicability.
jeg har lavet funktionen lidt om nu, men fejlen er stadig den samme, jeg formoder det er mit regular expression det er galt med.
function funcRemove(strMyString, strMyPattern)
dim objRegExp, strOutPut
Set objRegExp = New RegExp \' Create a regular expression. objRegExp.Pattern = strMyPattern \' Set pattern. objRegExp.IgnoreCase = True \' Set case insensitivity. objRegExp.Global = True \' Set global applicability.
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
