Jag har just börjat lära mig Reg Exp

2 svar · 149 visningar · startad av Rinaldo 5 nov. 2001

RinaldoMedlem sedan mars 20014 214 inlägg

Frågan5 nov. 2001 22:43#1

.., och lyckades knåpa ihop denna lilla länk sak. Vill bara fråga med er som kan mer om RegExp vad som inte är bra osv.

<%
strString = "http://www.spray.se/ asdsadasdasd"

 Set objRegExp = New RegExp
   objRegExp.Global = True
   objRegExp.Ignorecase = True
   objRegExp.Pattern = "(http://\w.*\s)"
 strString = objRegExp.Replace(strString,"<a href=$1>$1</a>")
 Response.write strString

%>

Hur ska man göra om man vill få det att funka med redbrytning?

------------------
Den som inte vet att tiga vet inte att tala

RinaldoMedlem sedan mars 20014 214 inlägg

5 nov. 2001 23:14#2

Testade använda emmisions mönster lite...
Varför funkar inte detta:

<%
Function URLlify(texttoURLify)
dim strString
strString = texttoURLlify
 Set objRegExp = New RegExp
   objRegExp.Global = True
   objRegExp.Ignorecase = True
    objRegExp.Pattern = "(^&#0124;[^""])(http://&#0124;https://&#0124;ftp://&#0124;mailto:&#0124;file://&#0124;telnet://&#0124;gopher://)([\w/#~:.,?+=&%@!\-]*?)([\s.:?\-]*[^\w/#~:.,?+=&%@!\-]&#0124;$)"
  strString = objRegExp.Replace(strString,"$1<a target=""" & LinkTarget & """ href=""$2$3"" class=""link"">$2$3</a>$4")
    objRegExp.Pattern = "(^&#0124;[^\w/>])(www\.[\w/#~:.,?+=&%@!\-]*?)([\s.:?\-]*[^\w/#~:.,?+=&%@!\-]&#0124;$)"
  strString = ObjRegExp.Replace(strString,"$1<a target=""" & LinkTarget & """ href=""http://$2"" class=""link"">$2</a>$3")
    objRegExp.Pattern = "(\w+((-\w+)&#0124;(\.\w+))*\@[A-Za-z0-9]+((\.&#0124;-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+)"
  strString = ObjRegExp.Replace(strString,"$1<a href=""mailto:$2"">$2</a>")
 URLlify=strString
end function
%>

<%=URLlify("http://www.spray.se asdasd")%>

Ingeting visas

------------------
Den som inte vet att tiga vet inte att tala

PatrikBMedlem sedan mars 20002 836 inlägg

6 nov. 2001 01:08#3

strString = texttoURLlify

ska nog vara:

strString = texttoURLify

du fick ett l för mycket ....

cya,
PatrikB

------------------
'## -- second place is the first looser -- ##'