http://

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>")

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

Mvh,

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>")

nån som kan hjälpa :o

nån som kan hjälpa mig :x

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

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]

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.

------------------
Mostly Harmless

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+)|(\.\w+))*\@[A-Za-z0-9]+((\.|-)[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

Vad funkar inte?

------------------
MVH

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>")

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

------------------
Mostly Harmless

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

nån som kan hjälpa >(

Blir det en länk av det hela?

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

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?

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

------------------
ASP är bäst fuck the rest!!!

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,

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