[aspdecoffeehouse] RE: Suchergebnis hervorheben....

[J�rg Schwalenberg]

Hallo Claudius,

du weist doch das ich immer f�r Anregungen dankbar bin !!

Danke, werde das mal so umsetzen.

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 12:17 PM
Subject: [aspdecoffeehouse] RE: Suchergebnis hervorheben....


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