regexp ta bort alla taggar

2 svar · 224 visningar · startad av mrblonde 14 sep. 2001

mrblondeMedlem sedan aug. 20012 349 inlägg

Frågan14 sep. 2001 09:29#1

Jag behöver en function som tar bort alla taggar ur en sträng, men låter texten vara kvar.
hittade den här:

str = "<b>Text</b>"
	Set RE = New RegExp
	RE.IgnoreCase = true
	RE.Global = true
	RE.pattern = "<(\w+)[^>]*?>(.*?)</\1>"
	str = RE.Replace(str, "$2")

Men den klarar inte <img> taggar. Den verkar bara klara taggar med avslut.

Den jag behöver skall klara att ta bort taggarna, även om de inte har en slut tagg

Det är säkert jätteenklet och så, så in med koden snälla :)

------------------
National Blonde Day!
"Yeah, bam, bam, bam, bam, bam. I told 'em not to touch the alarm"

VideMedlem sedan dec. 19998 577 inlägg

14 sep. 2001 09:56#2

RE.pattern = "<(\w+)[^>]*?>"
str = RE.Replace(str, "")

------------------
Jag invecklar utvecklande

mrblondeMedlem sedan aug. 20012 349 inlägg

14 sep. 2001 10:03#3

hittade en stor function på www.4guysfromrolla.com

function ClearHTMLTags(strHTML, intWorkFlow)
dim regEx, strTagLess

strTagless = strHTML
set regEx = New RegExp
regEx.IgnoreCase = True
regEx.Global = True
if intWorkFlow <> 1 then
regEx.Pattern = "<[^>]*>"
strTagLess = regEx.Replace(strTagLess, "")
end if
if intWorkFlow > 0 and intWorkFlow < 3 then
regEx.Pattern = "[<]"
strTagLess = regEx.Replace(strTagLess, "<")

regEx.Pattern = "\[\>\]"
strTagLess = regEx.Replace(strTagLess, "\>")

end if
set regEx = nothing
ClearHTMLTags = strTagLess
end function

------------------
National Blonde Day!
"Yeah, bam, bam, bam, bam, bam. I told 'em not to touch the alarm"