---
title: "Regular Expressions?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/13447-regular-expressions"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "saw"
published: "2001-12-30T13:46:00.000Z"
updated: "2001-12-31T10:29:00.000Z"
replies: 8
views: 183
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/13447-regular-expressions"
---

# Regular Expressions?

## #1 — saw, 2001-12-30T13:46Z

Jag har sett någonstans här ett script(Regular Expressions) som konventera t ex [www.saw.songer.com](http://www.saw.songer.com)  till länkar. Likadant email adress osv. Nu är jag inte f-n till att hitta den.
Någon?

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

## #2 — icaaq, 2001-12-30T15:06Z

<http://script.webforum.nu/wf/Forum1/HTML/000093.html> 

 :)

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

## #3 — saw, 2001-12-30T16:46Z

Tack men i denna applikation som jag nu håller på med, så vill jag bara ha att den leta rätt på URL
Jag försökte så här: 
ParseURLs(RS("Rubrik"))
Men fick detta felmedellande:
Körningsfel i Microsoft VBScript (0x800A000D)
Inkompatibla typer: 'ParseURLs'
/Hemsidor/GlobalaForeningen/Nyheter/nyheter.asp, line 135
Hur skall jag göra?

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

## #4 — Rinaldo, 2001-12-30T17:23Z

Har du någon sorts funktion?

Annars kan du söka på "http till länkar" och du hittar bra grejer ;)

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

## #5 — saw, 2001-12-30T19:00Z

Det är det här jag försöker att koppla:

```
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")		
'objRxp.Pattern = "(\w+((-\w+)&#0124;(\.\w+))*\@[A-Za-z0-9]+((\.&#0124;-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+)"		
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
```

Några förslag?

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

## #6 — Rinaldo, 2001-12-30T19:48Z

```
Function ParseURLs(TextToParse) 
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 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 href=""http://$2"">$2</a>$3") 
'objRxp.Pattern = "(\w+((-\w+)&#0124;(\.\w+))*\@[A-Za-z0-9]+((\.&#0124;-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+)" 
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/302127

## #7 — saw, 2001-12-30T23:22Z

Suck, nix.
Så här skrev jag;

```
ParseURLs(RS("Rubrik"))
```

Och det här felmedelandet fick jag.

```
Körningsfel i Microsoft VBScript (0x800A01A8)
Objekt krävs.: 'm_objRxp'
/Hemsidor/GlobalaForeningen/Style/ParsFunktion.inc, line 308
```

Jag är nog ganska så trött, men hur skall jag göra?

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

## #8 — Rinaldo, 2001-12-31T00:04Z

ojdå... också ganska trött så jag missade en sak

```
Function ParseURLs(TextToParse) 
dim f_strText 
f_strText=TextToParse 
Set m_objRxp = New RegExp

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 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 href=""http://$2"">$2</a>$3") 
'objRxp.Pattern = "(\w+((-\w+)&#0124;(\.\w+))*\@[A-Za-z0-9]+((\.&#0124;-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+)" 
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/302129

## #9 — saw, 2001-12-31T10:29Z

Jag bugar och bockar.
Fungerar perfekt

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/13447-regular-expressions