Stimmt, ich Obertrottel ;-) Danke Schmiddl. Gr��e, Gudula ----- Original Message ----- From: "Michael Schmidt" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Friday, January 30, 2004 11:08 AM Subject: Re: [Coffeehouse] RegEx: URL erkennen und ersetzen
Ja, nu... Du setzt ja in der for...next-Schleife die Variable strOutput immer neu, ausgehend von dem �bergebenen strResult, d.h. das Ersetzen vom ersten Durchlauf kommt gar nicht durch. Warum eigentlich Regex-Replace? Funzt auch so: For Each Match in RegExeMatch if instr(match.value,"http://";)=0 then strResult = Replace(strResult, Match.Value, "<a href=""http://"; & Match.Value & """ target=""_blank"">" & Match.Value &"</a>") else strResult = Replace(strResult, Match.Value, "<a href=""" & Match.Value & """ target=""_blank"">" & Match.Value &"</a>") end if Next CU Schmiddl Am 30.01.2004 um 10:53 schrieb Schwingenheuer: > < > 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 > _______________________________________________ Coffeehouse mailing list [EMAIL PROTECTED] http://www.glengamoi.com/mailman/listinfo/coffeehouse _______________________________________________ Coffeehouse mailing list [EMAIL PROTECTED] http://www.glengamoi.com/mailman/listinfo/coffeehouse
