---
title: "Reg Exp scripts bugg"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/13011-reg-exp-scripts-bugg"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "erka"
published: "2001-12-05T07:36:00.000Z"
updated: "2002-07-25T08:28:57.000Z"
replies: 6
views: 194
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/13011-reg-exp-scripts-bugg"
---

# Reg Exp scripts bugg

## #1 — erka, 2001-12-05T07:36Z

Hej denna kod:

```
Function FixaTecken(strtext)
	Dim mDelimit, 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, "<a href=""mailto" & mDelimit & ":$1"">$1</a>")
	re.pattern = "(http://&#0124;https://&#0124;ftp://&#0124;mailto:)(\S)(\S+)"
	strtext = re.Replace(strtext, "<a href=""$1$2" & mDelimit & "$3"" Target='_blank'>$2" & mDelimit & "$3</a>")
	re.Pattern = "(www\.(\S)(\S+))"
	strtext = Re.Replace(strtext, "<a href=""http://$1"" target='_blank'>$1</a>")
	strtext = Replace(strtext, mDelimit, "")
	strtext = Replace(strtext, vbcrlf, "<br>")
	Response.Write strText
End Function
```

Hittade jag någonstanns här på wf och har upptäckt en liten bugg. Tror den var skriven av emission eller vide. Om man avslutar en text med en länk och sen en punkt och kör funktionen på den så kommer punkten med i länken. Eftersom jag inte kan reg. exp så tänkte jag hära om någon vet hur man kan komma förbi detta.

Tacksam

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

## #2 — emission, 2001-12-05T08:41Z

re.pattern = "(http://&#0124;https://&#0124;ftp://&#0124;mailto:)(\\S)(\[^\\s\\.\]+)"

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

## #3 — erka, 2001-12-05T08:44Z

fint! ska genast prova men antar att det gör det eftersom du skrev det ;)

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

## #4 — erka, 2001-12-05T08:50Z

Hmmm

denna kod:

```

Function FixaTecken(strtext)
	Dim mDelimit, re
	mDelimit = Chr(0)
	Set re = New RegExp
	re.global = True
	re.IgnoreCase = true
	re.pattern = "(\w+((-\w+)&#0124;(\.\w+))*\@[A-Za-z0-9]+((\.&#0124;-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+)"
	strtext = re.replace(strtext, "<a href=""mailto" & mDelimit & ":$1"">$1</a>")
	re.pattern = "(http://&#0124;https://&#0124;ftp://&#0124;mailto:)(\S)(\S+)"
	're.pattern = "(http://&#0124;https://&#0124;ftp://&#0124;mailto:)(\S)([^\s\.]+)"
	strtext = re.Replace(strtext, "<a href=""$1$2" & mDelimit & "$3"" Target='_blank'>$2" & mDelimit & "$3</a>")
	re.Pattern = "(www\.(\S)(\S+))"
	strtext = Re.Replace(strtext, "<a href=""http://$1"" target='_blank'>$1</a>")
	strtext = Replace(strtext, mDelimit, "")
	strtext = Replace(strtext, vbcrlf, "<br>")
	Response.Write strText
End Function
```

Bryter följande text stycke (vid länkarna):
3-A has two web sites that you can look at for more information. [www.3-a.org/](http://www.3-a.org/)  and zeus.ia.net/\~aaasansb/

efter www på första och efter zeus på andra. Är det för de inte har skrivit in http:// vid den andra länken. Hlet idiot säkert kanske det inte går att göra då.

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

## #5 — emission, 2001-12-05T08:52Z

Jag är ett pucko.. återkommer

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

## #6 — erka, 2001-12-05T08:58Z

he he, ok :e

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

## #7 — erka, 2002-07-25T08:28Z

Hittade det här inlägget igen, emission du har inte kommit på någon lösning ? eller någon annan kanske

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/13011-reg-exp-scripts-bugg