Søgning af tekst indeni html

Function fncTextChange(strText,str2)
  strTekst = Trim(strText)
  fncTextChange = Replace(fncTextChange,str2,"<b>" & str2 & "</b>")
End Function

Hvad med at gøre det på denne måde...
Så kalder du den med:
<%=fncTextChange(datafelt,ordet)%>

og den skal selvfølgelig se sådan her ud:
Function fncTextChange(strText,str2)
  strTekst = Trim(strText)
  fncTextChange = Replace(strText,str2,"<b>" & str2 & "</b>")
End Function

Ikke helt!
Hvis jeg f.eks har en tekst med html der ser sådan ud:
"<p><strong>Tarzan is a strong man.</strong></p>"
Og brugeren har søgt på ordet "strong", har jeg brug for en metode der kan markere "ordet" strong, og ikke strong indeni <>. Metoden skal returnere tekststrengen med html indtakt, bare med en markering af det søgte ord.

function highlight(myWords,streng)
    if instr(myWords, " ") and left(myWords,1) <> Chr(34) and right(myWords,1) <> Chr(34) then
        myarray = split(myWords, " ")
        for each item in myarray
        streng = replace(streng,item,"<font color=#FFFFFF style=""BACKGROUND-COLOR:#083C73"">" & item & "</font>")
        next
        myarray = ""
    else
        streng = replace(streng,replace(myWords,"""",""),"<font color=#FFFFFF style=""BACKGROUND-COLOR:#083C73"">" & replace(myWords,"""","") & "</font>")
    end if
Response.Write streng
end function


fra: http://www.eksperten.dk/spm/308320

og så ændre du bare i dette:
function highlight(myWords,streng)
    if instr(myWords, " ") and left(myWords,1) <> Chr(34) and right(myWords,1) <> Chr(34) then
        myarray = split(myWords, " ")
        for each item in myarray
        streng = replace(streng,item,"<b>" & item & "</b>")
        next
        myarray = ""
    else
        streng = replace(streng,replace(myWords,"""",""),"<b>" & replace(myWords,"""","") & "</b>")
    end if
Response.Write streng
end function

Vi nærmer os ;o)
Den markerer bare i ovenstående tilfælde den første forekomst af strong, hvilket er indeni <>.

Her kommer noget, der bare virker:

Function RegExpReplace(strInput, strPattern, strReplace)           
' Use <?> to indicate the match you wish to replace             
' Create and setup several variables:                           
Dim regEx, Match, Matches, Position, strReturn                   
Position = 1                                                     
strReturn = ""                                                   
' Set up the regular expression:                                 
Set regEx = New RegExp                                           
regEx.Pattern = strPattern                                       
regEx.IgnoreCase = True                                         
regEx.Global = True                                             

' Get all the matches for it:                                   
Set Matches = regEx.Execute(strInput)                           
' Go through the Matches collection                             
' and build the output string:                                   
For Each Match in Matches                                       
strReturn=strReturn & Mid(strInput, Position,                 
Match.FirstIndex+1-Position)                                       
strReturn=strReturn & Replace(strReplace, "<?>", Match.Value) 
Position = Len(Match.Value) + Match.FirstIndex + 1             
Next                                                             
' Add any text after the last match                             
strReturn = strReturn & Mid(strInput, Position, Len(strInput))   
RegExpReplace = strReturn                                       
End Function   

og så lige kaldet:

strHTML = RegExpReplace(strHTML, "(?![^<]+>)" +
          strSearch + "(?![^<]+>)", strReplace)

strReplace bruger jeg til at fremhæve teksten med rød med blå baggrund.

Henrik

KANON ;O)
De gyldne palmer tilfalder h(heldige)n(nørd)teknik
Tak ska du ha

Takker

Nød lærer jo som sagt nøgen kvinde at spinne. Det RegExp er sgu da smart. Jeg vil nu ikke tage æren for især den sidste
RegExpReplace(strHTML, "(?![^<]+>)" +
          strSearch + "(?![^<]+>)", strReplace)

men selv en blind høne som mig kan træde i en lort. God fornøjelse
med den.