<html> <head> <tite> Text Searcher (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)
Конец суб
Функция ShowFolderList (PATH)
'' MSGBOX PATH
Установить fso = createObject (scripting.filesystemobject)
SET F = FSO.GetFolder (PATH)
Установить fc = f.files
'' ufn = ucase (fn)
Для каждого F1 в FC
filepec = path & f1.name
Readentirefile (filepec)
'' uf1 = ucase (f1.name)
'' if instr (uf1, ufn) <> 0 тогда
's = s & <a href = & path & f1.name &> & f1.name & </a> <br>
'end end if
Следующий
Document.Write Следующая запись была найдена, пожалуйста, нажмите на нее. [Составлено Мербером в январе 2003 г.] <br>
Document.write s
Установите FC = ничего
Установите F = ничего
Установить FSO = ничего
Конечная функция
Функция readentirefile (filepec)
Const forreding = 1
Dim FSO, TheFile, RetString
Установить fso = createObject (scripting.filesystemobject)
Установите thefile = fso.opentextfile (filepec, forreding, false)
ufn = ucase (fn)
Делать, пока file.atendofstream <> true
RETSTRING = TheFile.Readline
UF1 = UCASE (ретстрация)
Если instr (uf1, ufn) <> 0, тогда
s = s & <a href = & path & f1.name &> & f1.name & </a> <br>
Выход DO
конец, если
Петля
thefile.close
Readentirefile = s
Конечная функция
->
</Script>
</Head>
<Тело>
<P align = center> <font color =#000000 size = 6> Пожалуйста, введите ключевое слово для поиска [включены в текст] (</font> <font
Color =#000000 Size = 3> Case Case </font> <font color =#000000 Size = 6>) </font> </p>
<P align = center> <font size = 2> <font color =#000000> [произведено Merber
5 января 2003 г.] </font> </font> </p>
<P align = center> <name = t1> <input type = кнопка значение = поиск! name = b1> </p>
<P align = center> </p> </body> </html>