[aspdecoffeehouse] RE: Suchergebnis hervorheben....

[Claudius Ceteras]

Hi J�rg,

Bist Du f�r Optimierungsvorschl�ge zu haben?

Folgenden Block (der �brigens deinem String ein Space vorne hinh�ngt...
Aber f�r HTML ist das ja egal...):

> 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

Kann man ersetzen mit (Kein Space mehr vorne dran und viiiieeeel
schneller ;-)):

if (textcut=true) and (LEN(strfarbe) >laenge) Then
      strfarbe = left(strfarbe, InStrRev(strFarbe," ",laenge)-1)
End if


Gruss,

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>



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