Hi! Habe gerade erst RegEx gelernt (Friedl sei dank). Also mein Vorschlag w�re: .Pattern = "(http:[/][/])?www.([a-z]|[A-Z]|[0-9]|[/.]|[~])*"
Also: Optional http://, aber auf jeden Fall mit www. Korrekt?
CU Schmiddl
Am 29.01.2004 um 20:56 schrieb Gudula Schwingenheuer:
Hallo,
ich habe jetzt mal versucht, ein Muster aus einem String zu replacen, dass
eine URL erkennen soll, die sowohl mit http:// beginnt als auch mit www.
Nach Suchen in der Bibliothek bin ich auf u.g. Pattern-Muster gesto�en. Es
funktioniert auch, aber nur, wenn eine URL mit http:// oder eine mit www.
beginnt. Wenn beides im String vorkommt, entweder mit oder ohne http://,
wird immer letzeres genommen.
Gibts ein Muster, dass sowohl das eine als auch das andere replaced? Oder
muss ich den Code anders mit anderen bzw. unterschiedlichen Mustern
aufbauen?
<%
dim Ausgabe
Ausgabe= "Dies ist ein Link www.test.info Dies ist auch ein Link
http://www.texysst.info einfach mal testen"
Function ReplaceTheShit(strResult)
Set RegExe = New RegExp
With RegExe
.Pattern = "(http:[/][/]|www.)([a-z]|[A-Z]|[0-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
%>
lg Gudula
_______________________________________________ Coffeehouse mailing list [EMAIL PROTECTED] http://www.glengamoi.com/mailman/listinfo/coffeehouse
_______________________________________________ Coffeehouse mailing list [EMAIL PROTECTED] http://www.glengamoi.com/mailman/listinfo/coffeehouse
