Marker søgeordet i teksten

Her er et bud. Det skal testes grundigt, for hvad der sker hvis der er < og > uregelmæssige steder:

<%

strTekst = "<img src=""billede.gif"">gif"

strTekst = HighlightIt(strTekst, "gif")

Response.Write(strTekst)


Function HighlightIt(strInput, strFind)
    if InStr(1, strInput, "<") then
        arrAll = Split(strInput, "<")
        strSep = ""
        for i = 0 to Ubound(arrAll)
            if InStr(1, arrAll(i), ">") then
                arrTemp = Split(arrAll(i), ">")
                HighlightIt = HighlightIt & strSep & arrTemp(0) & ">" & Replace(arrTemp(1), strFind, "<b><font color=""red"">" & strFind & "</font></b>")
            else
                HighlightIt = HighlightIt & strSep & arrAll(i)
            end if
            strSep = "<"
        next
        HighlightIt = Replace(HighlightIt, "<>", "")
    else
        HighlightIt = strInput
    end if
end Function

%>

Det ser meget fornuftigt ud, men hvordan får jeg den integreret i min kode?

Dim strS, strT
If Request.QueryString("search") <> "" Then
strS = Request.QueryString("search")
End If
strT = rsAlleMembers("diverse")
strReplace = Replace("" & strT & "", "" & strS & "","<b><font style=""background-color: #FF0000"" color=""#FFFFFF"">" & strS & "</font></b>")

Jeg vil sige du skal over i "regular expresions" i stedet. Prøv at tage et kik i den kategori. Evt stille ?'et derinde:
http://www.eksperten.dk/spm/Programmering/RegExp/

Denne opgave er dog lide mere advanceret end mine RegExp evner rækker til :o)

Dim strS, strT
If Request.QueryString("search") <> "" Then
strS = Request.QueryString("search")
End If
strT = rsAlleMembers("diverse")
strReplace = HighlightIt(strT, strS)



Function HighlightIt(strInput, strFind)
    if InStr(1, strInput, "<") then
        arrAll = Split(strInput, "<")
        strSep = ""
        for i = 0 to Ubound(arrAll)
            if InStr(1, arrAll(i), ">") then
                arrTemp = Split(arrAll(i), ">")
                HighlightIt = HighlightIt & strSep & arrTemp(0) & ">" & Replace(arrTemp(1), strFind, "<b><font color=""red"">" & strFind & "</font></b>")
            else
                HighlightIt = HighlightIt & strSep & arrAll(i)
            end if
            strSep = "<"
        next
        HighlightIt = Replace(HighlightIt, "<>", "")
    else
        HighlightIt = strInput
    end if
end Function


MEN der bliver et problem med store og små bogstaver, hvis du søger efter Hej, så vil hej blive ersteattet med Hej.

Der kan laves mere ved det, men jeg har ikke tid nu

RegExp lyder som en god ide, det vil også kræver MEGET færre resourcer. Jeg kan bare ikke klare det.

Takker, det er alletiders, det er fint til det jeg skal bruge det til.
Du får point

Tak