---
title: "http://"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/13801-http"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "urban"
published: "2002-01-14T16:09:00.000Z"
updated: "2002-01-16T13:58:00.000Z"
replies: 19
views: 226
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/13801-http"
---

# http://

## #1 — urban, 2002-01-14T16:09Z

hur gör jag det här för att det ska funka som en länk??

```
message = Replace(message,"http://","<a href='http://'>http://</a>")
message = Replace(message,"ftp://","<a href='ftp://'>ftp://</a>")
```

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

## #2 — @nders, 2002-01-14T16:13Z

Kika på emissions RegExp-funktion: <http://cgi.webforum.nu/wf/Forum11/HTML/001475.html> 

Mvh,

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

## #3 — urban, 2002-01-14T16:22Z

tackar varför går det inte och göra så här???

```
strText = re.Replace(strText, "<font face=""Arial"" size=""2""><font color=""#0000FF""><a href=""mailto" & mDelimit & ":$1"">$1</a></font>")
```

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

## #4 — urban, 2002-01-14T17:33Z

nån som kan hjälpa :o

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

## #5 — urban, 2002-01-14T19:02Z

nån som kan hjälpa mig :x

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

## #6 — urban, 2002-01-15T08:23Z

vad är det som e fel på koden?????

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

## #7 — urban, 2002-01-15T15:16Z

nån som vet

```
strText = re.Replace(strText, "<font face=""Arial"" size=""2""><font color=""#0000FF""><a href=""mailto" & mDelimit & ":$1"">$1</a></font>")
```

\[Redigerat av urban den 15 jan 2002\]

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

## #8 — Vide, 2002-01-15T15:21Z

Tja, varför skulle det inte gå?
Det är onöjligt för mig att se om det är fel eftersom du inte visar något pattern.

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

## #9 — urban, 2002-01-15T15:47Z

så ser hela ut:

```
Function GetUrl(ByVal strText)
Dim mDelimit
Dim 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, "<font face='Arial' size='2'><font color='#0000FF'><a target=""_blank"" href=""mailto" & mDelimit & ":$1"">$1</font></a>")

re.Pattern = "(http://&#0124;https://&#0124;ftp://&#0124;mailto:)(\S)(\S+)"
strText = re.Replace(strText, "<a target=""_blank"" href=""$1$2" & mDelimit & "$3"">$2" & mDelimit & "$3</a>")

re.Pattern = "(www\.(\S)(\S+))"
strText = re.Replace(strText, "<a target=""_blank"" href=""http://$1"">$1</a>")
strText = Replace(strText, mDelimit, "")

GetUrl=strText

End Function
```

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

## #10 — Rinaldo, 2002-01-15T17:11Z

Vad funkar inte?

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

## #11 — urban, 2002-01-15T17:22Z

det här funkar inte :)

```
strText = re.Replace(strText, "<font face=""Arial"" size=""2""><font color=""#0000FF""><a href=""mailto" & mDelimit & ":$1"">$1</a></font>")
```

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

## #12 — Vide, 2002-01-15T18:20Z

... och på vilket sätt fungerar det inte?

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

## #13 — urban, 2002-01-15T18:27Z

asså ändras inte font och storlek på text!!!!

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

## #14 — urban, 2002-01-16T11:23Z

nån som kan hjälpa \>(

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

## #15 — @nders, 2002-01-16T11:28Z

Blir det en länk av det hela?

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

## #16 — urban, 2002-01-16T13:49Z

japp det blir länk fast med storlek 1 och Arial och svart färg :(

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

## #17 — @nders, 2002-01-16T13:52Z

Har du tittat på den resulterande HTML-koden då? Ser den inte ut som den borde på stället där du kört replace?

Har du något stylesheet som styr över?

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

## #18 — jboy_87, 2002-01-16T13:52Z

det e kanske darför att du includerat nån css fil!!!!

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

## #19 — @nders, 2002-01-16T13:53Z

Du ska inte heller ha två \<font\>-taggar där.

```
strText = re.Replace(strText, "<font face=""Arial"" size=""2"" color=""#0000FF""><a href=""mailto" & mDelimit & ":$1"">$1</a></font>")
```

mvh,

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

## #20 — urban, 2002-01-16T13:58Z

jag tog bort stil.css :-) det funkar jipii

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/13801-http