[aspdecoffeehouse] RE: Suchergebnis hervorheben....

[Claudius Ceteras]

Hall�le,

Dein Code kann - das Problem betreffend - auch nicht mehrals ein
einfaches replace...

Claudius

> 
> 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/aspdecoffee
house.asp


| [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