regexp ta bort alla taggar

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

mrblondeMedlem sedan aug. 20012 349 inlägg

Trådstart14 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

VideMedlem sedan dec. 19998 577 inlägg

14 sep. 2001 09:56#2

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

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