[aspdecoffeehouse] RE: Suchergebnis hervorheben....

[J�rg Schwalenberg]

Hi,

vielleicht kannst Du Dir hier was entnehmen, das habe ich f�r eine
Suchmaschine gemacht. L�uft auch problemlos.

<SCRIPT LANGUAGE=VBSCRIPT RUNAT=SERVER>
' Beginn UDEX Highlight Keywords
' Diese Extension hinterlegt das gefundene Keyword
' mit einem farbigen Background.
' Weiterhin k�nnen Sie die Anzeige des Textes begrenzen.

if Session("udexfarbe")="" then
Session("udexfarbe")=Request.Form("search")
End if

Function udexback(strfarbe)
Dim udrep, Items, I, textcut, bereich, x, textback, searchfield, laenge
textcut=true
textback=true
searchfield=true
laenge=500

strfarbe = Server.HTMLEncode(strfarbe)
strfarbe = replace(strfarbe, vbcrlf,"")
strfarbe = replace(strfarbe, vbtab,"")
strfarbe = replace(strfarbe,"&#196;","�")
strfarbe = replace(strfarbe,"&#214;","�")
strfarbe = replace(strfarbe,"&#220;","�")
strfarbe = replace(strfarbe,"&#228;","�")
strfarbe = replace(strfarbe,"&#246;","�")
strfarbe = replace(strfarbe,"&#252;","�")
strfarbe = replace(strfarbe,"&#223;","�")
if textcut=true then
if (LEN(strfarbe) >laenge) Then
    strfarbe = left(strfarbe, laenge)


      bereich = split(strfarbe, " ")
      strfarbe = ""
      for x = 0 to Ubound(bereich) - 1
        strfarbe = strfarbe & " " & bereich(x)
      next
End if
End if
if textback =true and searchfield=true then
strsearch=Session("udexfarbe")
udrep=Split(strsearch," ")
Items=UBound(udrep)
 For I=0 to Items

 strfarbe=Replace(strfarbe,udrep(I),"<span class=""udexcolor"">" & udrep(I)
& "</span>",1, -1, vbTextCompare)


if textcut=true then
udexback=strfarbe & "  ...."
else
udexback=strfarbe
End if
Next
End if
if textback=false then
if textcut=true then
udexback=strfarbe & "  ...."
else
udexback=strfarbe
End if
End if

if searchfield=false then
if textcut=true then
udexback=strfarbe & "  ...."
else
udexback=strfarbe
End if
End if



End Function

</SCRIPT>


J�rg Schwalenberg
_______________________________
Extensions and Basics for Macromedia
"Dreamweaver Ultradev"
..............................................................
www.ultradevextensions.de
www.udex.de
[EMAIL PROTECTED]
_______________________________
----- Original Message -----
From: "Claudius Ceteras" <[EMAIL PROTECTED]>
To: "AspGerman Kaffeehaus" <[EMAIL PROTECTED]>
Sent: Tuesday, January 22, 2002 11:29 AM
Subject: [aspdecoffeehouse] RE: Suchergebnis hervorheben....


>
> In einer Liste geben ich auf quick 'n dirty Suchtreffer folgenderma�en
> hervor:
>
> <%response.write replace(RS("e_Titel"),Such,"<font
> color=""#FF0000"">"&Such&"</font>")%>
>
> Jetzt kommen 2 Probleme auf mich zu: In der neuen Datenbank werden die
> Artikel nicht mehr ausschlie�lich in Gro�buchstaben erfa�t, sondern
> gro�/kleingeschrieben.

Das w�re kein Problem... Replace kann man mit dem compare-Parameter dazu
bewegen in beliebiger gross/kleinschreibung zu ersetzen...

> Weiters werden k�nftig HTML-Formatierungen hinzukommen.

Das ist schon eher problematisch...

>
> Wer hat eine Idee, wie man das statt der bisherigen Replace-L�sung
> hervorheben k�nnte?
>
> Stefan.

Man kann da wahrscheinlich was mit Regular Expressions machen...

Hebst Du nur einzelne Worte hervor oder auch beliebige satzfragmente?

Claudius


| [aspdecoffeehouse] als [EMAIL PROTECTED] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp


| [aspdecoffeehouse] als archive@jab.org subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp