主頁 > 知識庫 > 同文件夾內(nèi)文本搜索器(vbs)

同文件夾內(nèi)文本搜索器(vbs)
熱門標(biāo)簽：縣域地圖標(biāo)注打印店 鳳臺百度地圖標(biāo)注店 個人可以辦理400電話么 萊西電子地圖標(biāo)注 武夷山旅游地圖標(biāo)注 修改地圖標(biāo)注 金昌電話機(jī)器人價格 怎么在地圖標(biāo)注自己 外呼系統(tǒng)API接口
HTML>HEAD>TITLE>同文件夾內(nèi)文本搜索器(vbs)/TITLE>
META http-equiv=Content-Type content="text/html; charset=gb2312">
SCRIPT language=vbscript id=clientEventHandlersVBS>
!--
Dim fso, f, f1, fc,fn,s,uf1,ufn
Sub B1_onclick
fn=T1.value ''
pn=mid(location.pathname,2,len(location.pathname)-14)
ShowFolderList(pn)
End Sub

Function ShowFolderList(path)
''msgbox path
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(path)
Set fc = f.Files
'' ufn=ucase(fn)
For Each f1 in fc
filespec= path f1.name
ReadEntireFile(filespec)
'' uf1=ucase(f1.name)
'' if instr(uf1,ufn) > 0 then
'' s=s "a href=" path f1.name ">" f1.name "/a>br>"
'' end if
Next
document.write "已搜索到以下條目，請單擊之。[墨伯編制 于2003年元月]br>"
document.write s
set fc=nothing
set f=nothing
set fso=nothing
End Function

Function ReadEntireFile(filespec)
Const ForReading = 1
Dim fso, theFile, retstring
Set fso = CreateObject("Scripting.FileSystemObject")
Set theFile = fso.OpenTextFile(filespec, ForReading, False)
ufn=ucase(fn)
Do While theFile.AtEndOfStream> True
retstring = theFile.ReadLine
uf1=ucase(retstring)
if instr(uf1,ufn) > 0 then
s=s "a href=" path f1.name ">" f1.name "/a>br>"
exit do
end if
Loop
theFile.Close
ReadEntireFile = s
End Function

-->
/SCRIPT>
/HEAD>
BODY>
P align=center>FONT color=#000000 size=6>請輸入要搜索[在正文中包含]的關(guān)鍵詞(/FONT>FONT
color=#000000 size=3>忽略大小寫/FONT>FONT color=#000000 size=6>)/FONT> /P>
P align=center>FONT size=2>FONT color=#000000>[墨伯編制
于2003年1月5日]/FONT>nbsp;/FONT> /P>
P align=center>INPUT name=T1>INPUT type=button value=搜索！ name=B1>/P>
P align=center>nbsp;/P>/BODY>/HTML>

標(biāo)簽：赤峰 涼山 上海 清遠(yuǎn) 邢臺 通遼 楚雄 南京

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《同文件夾內(nèi)文本搜索器(vbs)》，本文關(guān)鍵詞  同,文件夾,內(nèi),文本,搜索器,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請?zhí)峁┫嚓P(guān)信息告之我們，我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《同文件夾內(nèi)文本搜索器(vbs)》相關(guān)的同類信息！
  • 本頁收集關(guān)于同文件夾內(nèi)文本搜索器(vbs)的相關(guān)信息資訊供網(wǎng)民參考！
    • 推薦文章