<
Bitte mal Beispiel input/Output posten.
Die Regex so wie sie ist braucht ja immer www im Match, aber Du
willst ja http:// *oder* www matchen falls ich das nicht falsch
verstanden habe.
Die Regex so wie sie jetzt ist l�sst sich �brigen noch verbessern:
(http:[/]{2})?www.([a-zA-Z0-9]|[/.]|[~])*
Regex-golf, sozusagen :-) Und die 'oder' hinten drin kann man auch
noch loswerden wenn man will, dann wirds nochmal schneller.
Gr�sse,
>
Aber irgendwie ist das nicht das Problem. Es ist nat�rlich gut, wenn man das
Muster noch verbessern k�nnte. Aber testet nochmal selbst. Die Links werden
auch erkannt, mit und ohnen http://. Aber es wird im Resultat nur der 2.
replaced.
<%
dim Ausgabe
Ausgabe= "Dies ist ein Link www.test.info Dies ist auch ein Link
www.texysstffsdafsdffd.info einfach mal testen"
Function ReplaceTheShit(strResult)
Set RegExe = New RegExp
With RegExe
.Pattern = "(http:[/]{2})?www.([a-zA-Z0-9]|[/.]|[~])*"
.IgnoreCase = True
.Global = True
End With
Set RegExeMatch = RegExe.Execute(strResult)
For Each Match in RegExeMatch
if instr(match.value,"http://";)=0 then
strOutput = RegExe.Replace(strResult, "<a href=""http://"; & Match.Value &
""" target=""_blank"">" & Match.Value &"</a>")
else
strOutput = RegExe.Replace(strResult, "<a href=""" & Match.Value & """
target=""_blank"">" & Match.Value &"</a>")
end if
next
If strOutput = "" Then
ReplaceTheShit = strResult
Else
ReplaceTheShit = strOutput
End If
Set RegExe = Nothing
End Function
dim Alttext
Alttext = "gibts nicht"
if Ausgabe <> "" then
Alttext = Replace(ReplaceTheShit(Ausgabe),vbcrlf,"<br>")
end if
Response.write Alttext
%>
Gr��e, Gudula
_______________________________________________
Coffeehouse mailing list
[EMAIL PROTECTED]
http://www.glengamoi.com/mailman/listinfo/coffeehouse
