RegExp - kun hvis det ikke er de 3 sidste eller første tegn

hmm...

hvad om du bare lavede en replace...

altså:
<%
function removeTags(strText)
if lcase(left(strText,3)) = "<p>" then
strText = right(strText, len(strText-3))
end if

if lcase(right(strText,4)) = "</p>" then
strText = left(strText, len(strText-4))
end if

strText = replace(strText, "<p>", "<br><br>")
strText = replace(strText, "</p>", "")
strText = replace(strText, "<P>", "<br><br>")
strText = replace(strText, "</P>", "")
removeTags = strText
end function

%>

madeindk> I din kode bruger du slet ikke den RegExp som du opretter.

Men ellers ser ellebaek's kode da ud til at løse din problemstilling?

Din funktion virker ikke, den kommer med en fejl ligeså snart der indgår <p>.

Type mismatch: '[string: "<p>asfasa</p><p>glen"]'

nielle > Nej, det har du ret i. Har ikke fået det fjernet, det er fordi jeg havde på et tidspunkt så man kunne skrive link :-)

laver den lige lidt om så..
det var vidst noget med case-sensitivity og sådan... prøv dennei stedet...
<%
function removeTags(strText)
if lcase(left(strText,3)) = "<p>" then
strText = right(strText, len(strText-3))
end if

if lcase(right(strText,4)) = "</p>" then
strText = left(strText, len(strText-4))
end if

strText = replace(strText, "<p>", "<br><br>", 1, -1, vbTextCompare)
strText = replace(strText, "</p>", "", 1, -1, vbTextCompare)
removeTags = strText
end function

%>

Jeg har prøvet at kringle den sammen med denne her kode, hvorfor virker det nu ikke? Det er også en funktion og der bliver strText også defineret.

<%
Function replaceFunction(strText)

Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true

objRegExp.Pattern = "(http://(\w|\.|/|-|\?|=|&|;|~){1,}\w*)"
strText = objRegExp.Replace(strText,"<b><a href='$1' target='_blank'>$1</a></b>")
objRegExp.Pattern = "(www(\w|\.|/|-|\?|=|&|;|~){1,}\w*)"
strText = objRegExp.Replace(strText,"<b><a href='http://$1' target='_blank'>$1</a></b>")

strText = Replace(strText,":-)","<img height='15' width='15' src='/Pictures/Smileys/smiley.gif'>")
strText = Replace(strText,":)","<img height='15' width='15' src='/Pictures/Smileys/smiley.gif'>")
strText = Replace(strText,":D","<img height='15' width='15' src='/Pictures/Smileys/bigSmiley.gif'>")
strText = Replace(strText,":-D","<img height='15' width='15' src='/Pictures/Smileys/bigSmiley.gif'>")
strText = Replace(strText,";-)","<img height='15' width='15' src='/Pictures/Smileys/blinkSmiley.gif'>")
strText = Replace(strText,";)","<img height='15' width='15' src='/Pictures/Smileys/blinkSmiley.gif'>")
strText = Replace(strText,":-P","<img height='15' width='15' src='/Pictures/Smileys/tongue.gif'>")
strText = Replace(strText,":P","<img height='15' width='15' src='/Pictures/Smileys/tongue.gif'>")
strText = Replace(strText,":-p","<img height='15' width='15' src='/Pictures/Smileys/tongue.gif'>")
strText = Replace(strText,":p","<img height='15' width='15' src='/Pictures/Smileys/tongue.gif'>")
strText = Replace(strText,":-(","<img height='15' width='15' src='/Pictures/Smileys/cry.gif'>")
strText = Replace(strText,":(","<img height='15' width='15' src='/Pictures/Smileys/cry.gif'>")
strText = Replace(strText,":-O","<img height='15' width='15' src='/Pictures/Smileys/chok.gif'>")
strText = Replace(strText,":O","<img height='15' width='15' src='/Pictures/Smileys/chok.gif'>")
strText = Replace(strText,":-o","<img height='15' width='15' src='/Pictures/Smileys/chok.gif'>")
strText = Replace(strText,":o","<img height='15' width='15' src='/Pictures/Smileys/chok.gif'>")

if lcase(left(strText,3)) = "<p>" then
strText = right(strText, len(strText-3))
end if

if lcase(right(strText,4)) = "</p>" then
strText = left(strText, len(strText-4))
end if

strText = replace(strText, "<p>", "<br><br>", 1, -1, vbTextCompare)
strText = replace(strText, "</p>", "", 1, -1, vbTextCompare)

replaceFunction = strText
End Function
%>

Denne:

if lcase(right(strText,4)) = "</p>" then
strText = left(strText, len(strText-4))
end if

- skal laves om til:

if lcase(left(strText,4)) = "</p>" then
strText = right(strText, len(strText-4))
end if

- hvis det skal stemme helt overens med den måde spørgsmålet formuleres.

Den første version fjerner </p> hvis den findes i enden af en tekstlinje, hvorimod den anden fjerner det hvis det er i starten af linjen.

Har du fået kigget på det?

nielle-> ja, self :-)

Forstod det bare som at det skulle være først og sidst.

altså <p> lalalalallalalalallfmndskjnfd ksf
ds
fds
gf
d
g
fdsgfd
</p>
så skulle de fjernes :-)

Har desværre ikke fået kiggede på det endnu, da serveren jeg skal teste det på er nede pt. Men jeg vender naturligvis tilbage når jeg har fået sat det ind :-)

Hmmm?

Ellebaek og nielle, smid et svar :-)

Betyder det at du har fået det til at virke?

Jeg fandt på noget andet ;-)