<HTML><HEAD><TITLE>同文件夾內文本搜索器(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
