http://

19 svar · 218 visningar · startad av urban 14 jan. 2002

urbanMedlem sedan nov. 2001124 inlägg

Frågan14 jan. 2002 16:09#1

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

@ndersMedlem sedan juni 200032 967 inlägg

14 jan. 2002 16:13#2

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

Mvh,

urbanMedlem sedan nov. 2001124 inlägg

14 jan. 2002 16:22#3

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

urbanMedlem sedan nov. 2001124 inlägg

14 jan. 2002 17:33#4

nån som kan hjälpa :o

urbanMedlem sedan nov. 2001124 inlägg

14 jan. 2002 19:02#5

nån som kan hjälpa mig :x

urbanMedlem sedan nov. 2001124 inlägg

15 jan. 2002 08:23#6

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

urbanMedlem sedan nov. 2001124 inlägg

15 jan. 2002 15:16#7

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]

VideMedlem sedan dec. 19998 577 inlägg

15 jan. 2002 15:21#8

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

urbanMedlem sedan nov. 2001124 inlägg

15 jan. 2002 15:47#9

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

RinaldoMedlem sedan mars 20014 214 inlägg

15 jan. 2002 17:11#10

Vad funkar inte?

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

urbanMedlem sedan nov. 2001124 inlägg

15 jan. 2002 17:22#11

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

VideMedlem sedan dec. 19998 577 inlägg

15 jan. 2002 18:20#12

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

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

urbanMedlem sedan nov. 2001124 inlägg

15 jan. 2002 18:27#13

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

urbanMedlem sedan nov. 2001124 inlägg

16 jan. 2002 11:23#14

nån som kan hjälpa >(

@ndersMedlem sedan juni 200032 967 inlägg

16 jan. 2002 11:28#15

Blir det en länk av det hela?

urbanMedlem sedan nov. 2001124 inlägg

16 jan. 2002 13:49#16

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

@ndersMedlem sedan juni 200032 967 inlägg

16 jan. 2002 13:52#17

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?

jboy_87Medlem sedan aug. 20011 099 inlägg

16 jan. 2002 13:52#18

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

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

@ndersMedlem sedan juni 200032 967 inlägg

16 jan. 2002 13:53#19

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,

urbanMedlem sedan nov. 2001124 inlägg

16 jan. 2002 13:58#20

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