---
title: "Skriva om Regexp?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/186153-skriva-om-regexp"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Inferis"
published: "2011-02-22T16:29:15.000Z"
updated: "2011-03-06T20:49:51.000Z"
replies: 2
views: 1201
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/186153-skriva-om-regexp"
---

# Skriva om Regexp?

## #1 — Inferis, 2011-02-22T16:29Z

Försöker skriva om följande kod till asp, men det går inte så bra.
Är det någon som vill hjälpa mig?

```
<?php
function toLink($text){
        $text = html_entity_decode($text);
        $text = " ".$text;
        $text = eregi_replace('(((f|ht){1}tp://)[-a-zA-Z0-9@:%_\+.~#?&//=]+)',
                '<a href="\\1">\\1</a>', $text);
        $text = eregi_replace('(((f|ht){1}tps://)[-a-zA-Z0-9@:%_\+.~#?&//=]+)',
                '<a href="\\1">\\1</a>', $text);
        $text = eregi_replace('([[:space:]()[{}])([url]www.[-a-zA-Z0-9@:%_\+.~#?&//=]+[/url])',
        '\\1<a href="http://\\2">\\2</a>', $text);
        $text = eregi_replace('([_\.0-9a-z-]+@([0-9a-z][0-9a-z-]+\.)+[a-z]{2,3})',
        '<a href="mailto:\\1">\\1</a>', $text);
        return $text;
}
?>
```

Mitt försök:

```
Function toLink(text)
    Set regExp = New regexp
    regExp.Global = true
    regExp.IgnoreCase = true
        text = html_entity_decode(text)
        text = " ".text
        text = eregi_replace('(((f|ht){1}tp://)[-a-zA-Z0-9@:%_\+.~#?&//=]+)',
                '<a href="\\1">\\1</a>', text);
        text = eregi_replace('(((f|ht){1}tps://)[-a-zA-Z0-9@:%_\+.~#?&//=]+)',
                '<a href="\\1">\\1</a>', text);
        text = eregi_replace('([[:space:]()[{}])([url]www.[-a-zA-Z0-9@:%_\+.~#?&//=]+[/url])',
        '\\1<a href="http://\\2">\\2</a>', text);
        text = eregi_replace('([_\.0-9a-z-]+@([0-9a-z][0-9a-z-]+\.)+[a-z]{2,3})',
        '<a href="mailto:\\1">\\1</a>', text);

    Set RegExp = Nothing
    makeTags = text
End Function
```

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

## #2 — voigtann1, 2011-02-22T20:00Z

Vad skall din metod ha för namn? makeTags eller toLink?

något i stil med:

```
Function toLink(text)
	Dim myRegExp

	text = Server.HTMLEncode(text)

	Set myRegExp = New RegExp

	myRegExp.IgnoreCase = True
	myRegExp.Global = True

	'URL Replace
	myRegExp.Pattern = "(\b(f|ht)tps?://[-a-zA-Z0-9@:%_\+.~#?&//=]+\b)"
	text = myRegExp.Replace(text, "<a href=""$1"">$1</a>")

	'Email Replace
	myRegExp.Pattern = "(\b[A-Z0-9._%+-]+@[A-Z0-9.-]+\.[A-Z]{2,6}\b)"
	text = myRegExp.Replace(text, "<a href=""mailto:$1"">$1</a>")

	Set RegExp = Nothing

	toLink = text

End Function
```

Borde vara det du är ute efter, e-post och url:er (http,ftp,ftps,https)

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

## #3 — Inferis, 2011-03-06T20:49Z

Tack! Du är en ängel!

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/186153-skriva-om-regexp