---
title: "Ta bort querystrings regexp"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/170241-ta-bort-querystrings-regexp"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "sifix"
published: "2008-03-26T12:06:56.000Z"
updated: "2008-03-26T13:12:07.000Z"
replies: 4
views: 518
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/170241-ta-bort-querystrings-regexp"
---
# Ta bort querystrings regexp
## #1 — sifix, 2008-03-26T12:06Z
Finns det nåt sätt att ta bort querystrings så att
```
http://www.ensida.se?id=345
```
blir
```
www.ensida.se
```
när man kör denna?
```
Function convertLink(ByVal strText)
Dim mDelimit
Dim re
mDelimit = Chr(0)
Set re = New RegExp
re.Global = True
re.IgnoreCase = true
re.pattern = "\[url=([^]]+)](.+?)\[/url]"
strText = re.replace(strText, "$2")
re.Pattern = "(\w+((-\w+)|(\.\w+))*\@[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+)"
strText = re.Replace(strText, "$1")
re.Pattern = "(^|\s)(http://|https://|ftp://|mailto:)(\S)(\S+)"
strText = re.Replace(strText, "$1$3" & mDelimit & "$4")
re.Pattern = "(^|\s)(www\.(\S)(\S+))"
strText = re.Replace(strText, "$1$2")
strText = Replace(strText, mDelimit, "")
convertLink=strText
End Function
```
Permalänk: https://www.webforum.nu/p/170241
## #2 — voigtann1, 2008-03-26T12:19Z
Ersätt:
```
re.Pattern = "(^|\s)(http://|https://|ftp://|mailto:)(\S)(\S+)"
strText = re.Replace(strText, "$1$3" & mDelimit & "$4")
re.Pattern = "(^|\s)(www\.(\S)(\S+))"
strText = re.Replace(strText, "$1$2")
```
med:
```
re.Pattern = "\b(http://|https://|ftp://|mailto:)(\S+)(\?\S+)\b"
strText = re.Replace(strText, "$1$2")
re.Pattern = "\b(www\.[^\s\?]+)(\?\S+)?\b"
strText = re.Replace(strText, "$1")
```
Permalänk: https://www.webforum.nu/p/2093800
## #3 — sifix, 2008-03-26T12:44Z
Funkar med
```
www.ensida.se?id=345
```
men skriver man
```
http://www.ensida.se?id=345
```
så blir det så här
```
www.ensida.se" target="_blank">http://www.ensida.se>
```
Permalänk: https://www.webforum.nu/p/2093814
## #4 — voigtann1, 2008-03-26T13:01Z
```
re.Pattern = "(^|\s)(www\.[^\s\?]+)(\?[^\s]+)?(?=$|\W)"
strText = re.Replace(strText, "$1$2")
```
istället för:
```
re.Pattern = "\b(www\.[^\s\?]+)(\?\S+)?\b"
strText = re.Replace(strText, "$1")
```
Permalänk: https://www.webforum.nu/p/2093819
## #5 — sifix, 2008-03-26T13:12Z
Tackar, nu funkar det.
Så här blev det till slut.
```
Function convertLink(ByVal strText)
Dim mDelimit
Dim re
mDelimit = Chr(0)
Set re = New RegExp
re.Global = True
re.IgnoreCase = true
re.Pattern = "(\w+((-\w+)|(\.\w+))*\@[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+)"
strText = re.Replace(strText, "$1")
re.Pattern = "\b(http://|https://|ftp://|mailto:)(\S+)(\?\S+)\b"
strText = re.Replace(strText, "$2")
re.Pattern = "(^|\s)(www\.[^\s\?]+)(\?[^\s]+)?(?=$|\W)"
strText = re.Replace(strText, "$2")
strText = Replace(strText, mDelimit, "")
convertLink=strText
End Function
```
Permalänk: https://www.webforum.nu/p/2093821
---
Tråden på webben: https://www.webforum.nu/amne/asp/170241-ta-bort-querystrings-regexp