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
