emission's wF-kod

Tjenahej!
Jag använder emissions förträffliga mönster som finns i funktionen ParseURLs. Funkar ju som den ska, men nu till mitt problem.

Jag sitter och skriver lite funktioner för att de-parsa de redan parsade URLerna.

Jag försöker alltså få bort alla <a href=", </a>, osv. Fastnar hela tiden, alltid är det något som fattas. :l

Någon som vet hur jag ska gå tillväga?

Här kommer emission's funktion, som har samma mönster som min.

Public Function ParseURLs(TextToParse,LinkTarget)
	dim f_strText
	f_strText=TextToParse
	
	m_objRxp.Pattern="(^|[^""])(http://|https://|ftp://|mailto:|file://|telnet://|gopher://)([\w/#~:.,?+=&%@!\-]*?)([\s.:?\-]*[^\w/#~:.,?+=&%@!\-]|$)"
	f_strText=m_objRxp.Replace(f_strText,"$1<a target=""" & LinkTarget & """ href=""$2$3"">$2$3</a>$4")
	
	m_objRxp.Pattern="(^&#0124;[^\w/>])(www\.[\w/#~:.,?+=&%@!\-]*?)([\s.:?\-]*[^\w/#~:.,?+=&%@!\-]&#0124;$)"
	f_strText=m_objRxp.Replace(f_strText,"$1<a target=""" & LinkTarget & """ href=""http://$2"">$2</a>$3")
	m_objRxp.Pattern="(^&#0124;[^:>\w])([\w\.]*@[\w\.\-]*\.\w{2,3})(\b&#0124;$)"
	f_strText=m_objRxp.Replace(f_strText,"$1<a href=""mailto:$2"">$2</a>")
	
	ParseURLs=f_strText
End Function

------------------
SPiN, bjorne.w@telia.com

-- En ask vet jag stånda - den Yggdrasil heter, ett väldigt träd överöst av vita sanden. --