how to highlight in three colours? have code but

gilgalbiblewheel · October 2nd, 2004, 12:07 AM

There is something wrong in this. I couldn't figure it out.

I have three: Keyword, Keywordb, Keywordc
I had inserted: strSearchFor, two, three (same function)

Code:

<SCRIPT LANGUAGE="VBSCRIPT" RUNAT="SERVER">
Function stringReplace(strSearchWithin,strSearchFor,two,three)
Dim lngStartingPosition
Dim lngFoundPosition
Dim strReplaced
'Set the start position
lngStartingPosition=1
lngFoundPosition=InStr(lngStartingPosition,strSearchWithin,strSearchFor,1)
lngFoundPosition=InStr(lngStartingPosition,strSearchWithin,two,1)
lngFoundPosition=InStr(lngStartingPosition,strSearchWithin,three,1)
do while lngFoundPosition > 0
'found
strReplaced=strReplaced & Mid(strSearchWithin,lngStartingPosition,lngFoundPosition-lngStartingPosition) & "" & "<b>" & mid(strSearchWithin,lngFoundPosition,len(strSearchFor)) & "</b>" & ""

strReplaced=strReplaced & Mid(strSearchWithin,lngStartingPosition,lngFoundPosition-lngStartingPosition) & "" & "<b>" & mid(strSearchWithin,lngFoundPosition,len(two)) & "</b>" & ""

strReplaced=strReplaced & Mid(strSearchWithin,lngStartingPosition,lngFoundPosition-lngStartingPosition) & "" & "<b>" & mid(strSearchWithin,lngFoundPosition,len(three)) & "</b>" & ""


lngStartingPosition=lngFoundPosition+len(strSearchFor)
lngStartingPosition=lngFoundPosition+len(two)
lngStartingPosition=lngFoundPosition+len(three)


lngFoundPosition=InStr(lngStartingPosition,strSearchWithin,strSearchFor,1)
lngFoundPosition=InStr(lngStartingPosition,strSearchWithin,two,1)
lngFoundPosition=InStr(lngStartingPosition,strSearchWithin,three,1)
Loop
stringReplace=strReplaced & Mid(strSearchWithin,lngStartingPosition) 'catch the last one
End Function
</SCRIPT>

<%

strSearchWithin=RS("res_text_data")
strSearchFor=Keyword
two=Keywordb
three=Keywordc
Response.Write stringReplace(strSearchWithin,strSearchFor,two,three)
%>

happygv · October 2nd, 2004, 07:58 AM

Hi there,

Quote:

quote:There is something wrong in this. I couldn't figure it out.

So you want someone to find what is wrong? hmmm, that is tough.
How about explaining on what is "there is something wrong in this".
It is better to explain what you are trying to accomplish and what is that you are
stuck up with / trying to figure out, than expecting someone to go through the code and
analyse what it does and then find what is the clue that is being given to us here.

Cheers!

_________________________
- Vijay G
Strive for Perfection

gilgalbiblewheel · October 2nd, 2004, 11:01 AM

what I'm getting is a repetition of "res_text_data" three times after a word is highlighted:

[u]Now after these things</u>, in the reign of Artaxerxes king[u]Now after these things[u], in the reign of Artaxerxes king of Pe[u]Now after these things</u>, in the reign of Artaxerxes king of Persia, Ezra the son of Seraiah, the son of Azariah, the son of Hilkiah,

I had forgotten to include the Dim in the previous posting:

Code:

<%Dim strSearchWithin,strSearchFor,two,three%>

gilgalbiblewheel · October 2nd, 2004, 11:04 AM

Ok it would also help to mention you that the three keywords are:
Ezra, Artaxerxes, king. So when you see those words there is a repetition of the text.