<%
' 以前寫全文檢索程式的時候寫的.
' 原創 by 飛鳥@dev-club.com
' email: [email protected]
' ie5.5 指令碼引擎 required
dim patern
dim found
dim str
dim result
patern="(a)|(b)"
str=" a dog fall in love with a cat. can you believe?"
result=""
call getmatchtext(str,result,false)
response.write result
sub getmatchtext(byref str,byref result,isneedtrunc)
'on error resume next
dim regex, match, matches
dim tstr
set regex = new regexp ' 建立正規表示式。
regex.pattern = (patern) ' 設定模式。
regex.ignorecase = true ' 設定是否區分字元大小寫。
regex.global = true ' 設定全域性可用性。
set matches = regex.execute(str) ' 執行搜尋。
if err.number<>0 then
response.write "錯誤1：" & err.description
err.clear
exit sub
end if
if matches.count <>0 then
dim startindex
dim mymatchvalue
startindex=1
for each match in matches
if (instr(str,match.value)>0) then
if instr(str,match.value)-50 >0 then
startindex=instr(str,match.value)-50
else
startindex=1
end if
mymatchvalue=match.value
exit for
end if
next
if isneedtrunc then
result= (mid(str,startindex,strlength(mymatchvalue)+100))
else
result= (str)
end if
for each match in matches
if not(instr(result,"" & match.value & "")>0) then
result=replace(result,match.value,"" & match.value & "" )
end if
next
found=true
else
found=false
end if
set regex=nothing
end sub
%>
SecureCRT 關鍵字高亮顯示
grep命令紅色高亮關鍵字 1.左邊側欄 session manage 右鍵sessions properties current color scheme 點選edit 3 點選bold 並將foreground 設為紅色 點選ok 4 重啟securecrt,grep命令需要加 color 引數...
WPF搜尋關鍵字高亮顯示
目標 在wpf中，對lucene.net進行全文檢索後的結果中包含的關鍵字進行高亮顯示。檢索結果中的關鍵字高亮顯示，在網頁中顯示是很簡單的，lucene中加標籤樣式就可以了，可是在wpf中就不行了。我在wpf中用gridcontrol顯示搜尋結果列表，gridcontrol的模板裡用textbloc...
搜尋功能，關鍵字高亮顯示
如下，直接呼叫即可 搜尋關鍵字高亮 param view param value param keys 由key.spilt 分割獲得 param context public static void setuptextview textview view,final string value,st...
高亮顯示關鍵字例項 替換搜尋關鍵字例項
票房第一的審死官，主演 周星馳，梅豔芳票房第二的家有喜事，主演 周星馳，張國榮票房第三的鹿鼎記，主演 周星馳，林青霞票房第四的武狀元蘇乞兒，主演 周星馳，張敏票房第五的鹿鼎記2，主演 周星馳，林青霞 在這一年，香港電影票房前五的作品都由周星馳主演。而在之後周星馳的導演歲月裡，票房也是一度創造了神話。...
lucene查詢後關鍵字高亮顯示
query為查詢條件組合 htmlformatter htmlformatter new htmlformatter highlighter highlighter new highlighter htmlformatter,new queryscorer query highlighter.set...