något fel?

7 svar · 223 visningar · startad av justine 4 maj 2001

justineMedlem sedan maj 200167 inlägg

Trådstart4 maj 2001 12:18#1

följande funktion har jag inte gjort själv och vet därför inte riktigt varför den inte fungerar eftersom den efter påstående skulle göra det...

function fixLink(strFoo)
strFoo = Replace(strFoo, "([^\s]*)@[^\s]*)", "<a href=""mailto:$1@$2"">$1@$2</a>")
strFoo = Replace(strFoo, "\shttp://([^\s]*)", " <a href=""http://$1"">http://$1</a>")
fixLink = strFoo
end function

JAreMANNENMedlem sedan aug. 20002 272 inlägg

4 maj 2001 12:27#2

Vad får du för felmeddelande?

justineMedlem sedan maj 200167 inlägg

4 maj 2001 12:30#3

det fungerar bara inte. alls.

(ursäkta, jag visste inte hur man skrev koden för att det skulle bli liten. jag vet nu...)

@ndersMedlem sedan juni 200032 967 inlägg

4 maj 2001 12:40#4

du försöker göra en regexp-replace utan regexp.

mönstret du anger tolkas i vanliga replace som en vanlig sträng. därför händer liksom inget.

kolla in vides del 11 av asp-skolan, den hittar du här, och där får du lära dig massor om regular expressions.

justineMedlem sedan maj 200167 inlägg

4 maj 2001 12:50#5

hmmm. oj.
tja. jag hade skrivit av den fel. men jag förstår ju inte mycket av allt det där ändå...

function fixLink(strFoo)	
strFoo = RegExpReplace(strFoo, "([^\s]*)@([^\s]*)", "<a href=""mailto:$1@$2"">$1@$2</a>")
strFoo = RegExpReplace(strFoo, "\shttp://([^\s]*)", " <a href=""http://$1"">http://$1</a>")
fixLink = strFoo
end function

SPiNMedlem sedan mars 20007 896 inlägg

4 maj 2001 13:05#6

Njää, den ser lite skum ut. Prova följande:

Function fixLink(strFoo)
     set rx = new RegExp
     rx.Global = False
     rx.IgnoreCase = True
     rx.Pattern = "http://\w"
     strFoo = rx.Replace(strFoo, "<a href=""http://$1"">http://$1</a>")
     rx.Pattern = "([^\s]*)@([^\s]*)"
     strFoo = rx.Replace(strFoo, "<a href=""mailto:$1@$2"">$1@$2</a>")
     fixLink = strFoo
End Function

Vet inte om den funkar, har inte sysslat med så mycket RegExps i ASP...
Men prova

justineMedlem sedan maj 200167 inlägg

4 maj 2001 13:26#7

tja... det fungade lite. det hände iallafall något. men riktigt rätt var det inte.

justineMedlem sedan maj 200167 inlägg

4 maj 2001 13:41#8

sådär. nu har jag fått igång så den gör om http://... till en länk, men på email-adressen blir det:
"justine@swipnet.se">href="mailto:justine@swipnet.se">justine@swipnet.se"

Function fixLink(strFoo)     
set rx = new RegExp
dim rx     
rx.Global = True     
rx.IgnoreCase = True     
rx.Pattern = "\shttp://([^\s]*)"     
strFoo = rx.Replace(strFoo, " <a href=""http://$1"">http://$1</a> ")     
rx.Pattern = "([^\s]*)@([^\s]*)"     
strFoo = rx.Replace(strFoo, "<a href=""mailto:$1@$2"">$1@$2</a>")     
fixLink = strFoo
End Function