Hi, ich hab' mir heute ne kleine Prozedur geschrieben die vorkommende Suchbegriffe in den Ergebnissen der Anfrage farblich hervorhebt, in etwa wie bei Heise:
http://www.heise.de/newsticker/search.shtml?T=heise Nur habe ich ein Problem bei dem ich im Moment keinen L�sungsansatz finde... suche ich zum Beispiel nach Webcam/webcam/WeBcaM werden alle W�rter gefunden und markiert die Webcam oder webcam hei�en/beinhalten. Lautet der String allerdings WeBCaM oder WebCam f�llt er durch... Hat jemand eine Idee? Nachfolgend noch der Code, Gru� - Thomas Function QueryMarker(ByRef strQuery,strResult) If instr(Lcase(strResult),Lcase(strQuery)) Then If instr(strResult,strQuery) Then strOutput = Replace(strResult,strQuery,"<span class=""search_result"">" & strQuery & "</span>") Else If instr(strResult,Lcase(strQuery)) Then strOutput = Replace(strResult,Lcase(strQuery),"<span class=""search_result"">" & Lcase(strQuery) & "</span>") ElseIf instr(strResult,Ucase(strQuery)) Then strOutput = Replace(strResult,Ucase(strQuery),"<span class=""search_result"">" & Ucase(strQuery) & "</span>") Else intLengthQuery = len(strQuery) intLengthTitle = len(strResult) For i = 0 To intLengthQuery strTest = Ucase(Left(strQuery,i)) & Lcase(Right(strQuery,intLengthQuery-i)) If instr(strResult,strTest) Then strOutput = Replace(strResult,strTest,"<span class=""search_result"">" & strTest & "</span>") Exit For End If Next End If End If End If If strOutput = "" Then QueryMarker = strResult Else QueryMarker = strOutput End If End Function | [aspgerman] als [email protected] subscribed | http://www.aspgerman.com/archiv/aspgerman/ = Listenarchiv | Sie k�nnen sich unter folgender URL an- und abmelden: | http://www.aspgerman.com/aspgerman/listen/anmelden/aspgerman.asp
