Markering af søgeresultater

Fremhævningen kan godt gøres med en regexp. Den er bedst hvis resultatet skal vises i samme case som originalt.

Visning af den del af teksten der er interessant, kunne gøres ved at hente fx 200 tegn - 100 før og 100 efter teksten (det kan gøres direkte på databasen) - og så søge til næste mellemrum så teksten starter med et helt ord, og derefter foretage en regexp.replace på teksten for at fremhæve.

Det var også noget i den stil, jeg tænkte på. Men det bliver lidt tricky, at få den til at ramme 100 tegn. Hvis søgeordet er på 30 tegn, og der kun er 20 tegn før første forekomst, skal de resterende 50 tegn hentes efter søgeordet (hvis der er så mange).

Man kunne kigge på positionen i forhold til hvor lang teksten er. Hvis hittet ligger for sent i teksten - mindre end fx 50-(len(ordet)/2) fra slut - henter man de sidste 100. Og det samme hvis den ligger for tidligt i teksten.

Du skal kun beregne start position af hele teksten du skal bruge, og groft tage 100 tegn herfra og frem.

Jeg tror, jeg dropper det med tegnene. Så vil jeg bare highlighte de fundne ord. Men følgende erstatter store bogstaver med små, hvis søgeordet er skrevet med småt (og omvendt). Hvorfor?

Function HighLightResults(strToReplace, strSearchWord)
    Set regEx = new RegExp
    regEx.Pattern = strSearchWord
    regEx.IgnoreCase = true
    regEx.Global = true
    Set Matches = regEx.Execute(strToReplace)
    For Each Match in Matches
        HighLightResults = regEX.Replace(strToReplace, "<b>" & Match.Value & "</b>")
    Next
End Function

Fordi den selv be'r om det ;-)

Function HighLightResults(strToReplace, strSearchWord)
    Set regEx = new RegExp
    regEx.Pattern = "(" & strSearchWord & ")"
    regEx.IgnoreCase = true
    regEx.Global = true
    HighLightResults = regEX.Replace(strToReplace, "<b>$1</b>")
End Function

Nå ja, det kan jeg da godt se nu.

Du kan også bruge denne kode til at fremhæve det du har søgt på:
<%= Replace(rs("tekst"), request("soegning"),"<span style='background-color: #FFFF00'><b>" & request("soegning") & "</b></span>") %>

Jeg havde da rent glemt dette spørgsmål. Vil du ikke have dine points, mortrr?

Jow da, gerne.
Tak som byder.