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.

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