---
title: "emission's wF-kod"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/13575-emission-s-wf-kod"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "SPiN"
published: "2002-01-05T17:08:00.000Z"
updated: "2002-01-05T17:08:00.000Z"
replies: 0
views: 146
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/13575-emission-s-wf-kod"
---

# emission's wF-kod

## #1 — SPiN, 2002-01-05T17:08Z

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="(^&#0124;[^""])(http://&#0124;https://&#0124;ftp://&#0124;mailto:&#0124;file://&#0124;telnet://&#0124;gopher://)([\w/#~:.,?+=&%@!\-]*?)([\s.:?\-]*[^\w/#~:.,?+=&%@!\-]&#0124;$)"
	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
```

Permalänk: https://www.webforum.nu/p/13575

---

Tråden på webben: https://www.webforum.nu/amne/asp/13575-emission-s-wf-kod