Problema RegExp 3 valori

[jackthesnake]

Ciao,
ho una funzione

Function strLink2(strHTML)
Set objRegExp = New RegExp
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "#pop\s*((\n|.)+?)\s*"

if strHTML<>"" then
strLink2 = objRegExp.Replace(strHTML, "$1")
end if
End function


Devo fare in modo che da un testo del tipo:

#poptesto3

diventi

testo3

qualcuno mi sa controllare la funzione e dirmi dov'è sbagliata?

grazie

[imente]

ottimo lavoro...

solo una piccola imperfezione (non capisco come tu non l'abbia vista... forse non l'hai scritto tu :P)

il codice giusto è questo (in rosso la modifica)

Function strLink2(strHTML)
Set objRegExp = New RegExp
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "#pop\s*((\n|.)+?)\s*"

if strHTML<>"" then
strLink2 = objRegExp.Replace(strHTML, "$4")
end if
End function

[jackthesnake]

Sorry...

l'ho scritta io dopo essermi studiato un sacco di altre funzioni e manuali del RegExp....

Evidentemente ero molto cotto...

grazie 1000