antar att det här är en baggis. Jag har sökt och hittat lite script som gör det här, men jag har inte lyckats kopplat ihop det med min lilla databas.
Så här ser det ut:
Function ChangeLinks(text)
Set objRE = New regexp
objRE.Global = True
objRE.IgnoreCase = True
objRE.Pattern = "(www.[^ ]*[a-z])|(http://[^ ]*[a-z])"
text = objRE.Replace(text,"<a href=""$1$2"" target=""_blank"">$1$2</a>")
ChangeLinks = text
Set objRE = Nothing
End Function
I min guestbook.asp ser det bland annat ut så här:
Jag kommer inte fram till din sida, så jag kan inte se hur det ser ut. Men du kan ju alltid prova att byta plats på replacen och kallet till funktionen.
jepp... märkte det... det finns ett färdigt script på wF som gör exakt det du önskar att få ut som resultat... prova bara sök på RegExp och länk så lovar jag att du hittar ett regulärt uttryck som är perfekt för det du önskar.
kollade lite nämare på ditt uttryck... och enligt mig så borde den skriva ut även vid www.
Måste varit min funktion som var mindre bra. Hittade den här när jag säkte på regExp!
Function convertLink(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, "<a href=""mailto" & mDelimit & ":$1"">$1</a>")
'Matchar på mailadresser (mönstret är lite kryptiskt, men det handlar om att matcha på något@något.toppdomän, där "något" är giltiga adresstecken.
'Stoppar dessutom in chr(0) (mDelimit) i ersättningen, så att de utbytta adresserna inte hittas av nedanstående matchning
re.Pattern = "(http://|https://|ftp://|mailto:)(\S)(\S+)"
strText = re.Replace(strText, "<a href=""$1$2" & mDelimit & "$3"" target=""_blank"">$2" & mDelimit & "$3</a>")
'Matchar på vad som helst som föregås av en protokoll-spec.
'Stoppar in chr(0) efter första tecknet i själva adressen, så redan utbytta webbadresser inte hittas av nedanstående matchning
re.Pattern = "(www\.(\S)(\S+))"
strText = re.Replace(strText, "<a href=""http://$1"" target=""_blank"">$1</a>")
'Matchar alla webbadresser som börjar på "www".
strText = Replace(strText, mDelimit, "")
'Rensar bort alla chr(0).
convertLink=strText
End Function
jag har en annan fråga också..
gå in på http://otech.ath.cx/linksystem och klicka på "Uppdatera kategorierna". Välj där en kategori... och markera allting i textrutan.. varför läggs det till masssssa mellanslag efter textern där i? :l Kan man styra sånt?
