Huhu... Folgende Funktion habe ich hier aus der Liste mal gespeichert (von Roman?? weiss ich leider nicht mehr), funktioniert aber.
Function ReplaceTheShit(ByRef strQuery,strResult) Set RegExe = New RegExp With RegExe .Pattern = strQuery .IgnoreCase = True .Global = True End With Set RegExeMatch = RegExe.Execute(strResult) For Each Match in RegExeMatch strOutput = RegExe.Replace(strResult, "<strong>" & Match.Value & "</strong>") Auswahl = match.value Next If strOutput = "" Then ReplaceTheShit = strResult Else ReplaceTheShit = strOutput End If Set RegExe = Nothing end function Der Suchbegriff ist ja case senitive. Gr��e, Gudula ----- Original Message ----- From: "J�rg L�gering" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Monday, March 31, 2003 10:35 PM Subject: [Coffeehouse] Suche / Markieren Hallo zusammen, ich habe ein Suchfeld auf der Seite und �bergebe den Suchbegriff auf eine andere Seite wo dieser Begriff in der Datenbank gesucht wird. Funktioniert einwandfrei nur ich h�tte noch gerne die Sachen (Suchbegriff) auf der Seite Markiert ( unterlegt ). Wie kann ich da vorgehen das die Suchw�rter Markiert werden. Gru� J�rg ~~~~~~~~~~~~~~~~~~~~~~~~~~~sponsored by United Planet~~~~~~~~~~~~~~~~~ Kaffeepause im United Planet Communityserver ... http://www.intrexx.com/communityserver _______________________________________________ Coffeehouse mailing list [EMAIL PROTECTED] http://www.glengamoi.com/mailman/listinfo/coffeehouse ~~~~~~~~~~~~~~~~~~~~~~~~~~~sponsored by United Planet~~~~~~~~~~~~~~~~~ Kaffeepause im United Planet Communityserver ... http://www.intrexx.com/communityserver _______________________________________________ Coffeehouse mailing list [EMAIL PROTECTED] http://www.glengamoi.com/mailman/listinfo/coffeehouse
