|
分類:[ASP.NET (VB)]
ASP初心者です。 質問のなかに何か問題発言があったら、お許しください。
ページ内検索文字と一致する文字をすべて変色する。 検索文字の変更:英文字(小文字⇔大文字⇔半角⇔全角) 日本語(ひらがな⇔カタガナ) 以下のように書いてあるんですが、一個目の結果はうまく表示しますが、 2個目の処理を追加すると表示できなくなっています。
ASP初心者ですので、ご診断をお願いします。
strWk = objTS.ReadALL
Do While strStart<>0 strStart = InStr(strMoji, strWk, "<") If strMoji<>1 and strStart<>0 then strWkA = Replace(Mid(strWk,strMoji+1,strStart-strEnd-1),strSearchA,"<B><font color='Lime'>" & strSearchA & "</font></B>") 'Response.write(strWkA) strStart = InStr(strMoji, strWkA, "<") strWkB = Replace(Mid(strWkA,strMoji+1,strStart-strEnd-1),strSearchB,"<B><font color='Purple'>" & strSearchB & "</font></B>") 'Response.write(strWkB) strStart = InStr(strMoji, strWkB, "<") strWkC = Replace(Mid(strWkB,strMoji+1,strStart-strEnd-1),strSearchC,"<B><font color='Teal'>" & strSearchC & "</font></B>") strStart = InStr(strMoji, strWkC, "<") Response.write(Replace(Mid(strWkC,strMoji+1,strStart-strEnd-1),strSearchD,"<B><font color='RED'>" & strSearchD & "</font></B>")) End if IF strStart<>0 Then strEnd = InStr(strStart, strWkC, ">") Response.write(Mid(strWkC,strStart,strEnd-strStart+1)) End if strMoji = strEnd
Loop
|