<html> <kopf> <titels> Textsucher (VBS) im selben Ordner </title>
<Meta http-äquiv = 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 (Ort.PathName, 2, Len (Ort.PathName) -14)
ShowFolderlist (PN)
Ende sub
Funktionshowfollist (Pfad)
'' MSGBOX -Pfad
Setzen Sie fso = createObject (scripting.filesystemObject)
Setzen Sie F = fso.getFolder (Pfad)
Setzen Sie FC = F. Files
'' ufn = uCase (fn)
Für jeden F1 in FC
filespec = path & f1.name
ReaderEneFile (Filespec)
'' uf1 = uCase (f1.name)
'' Wenn Instrument (UF1, UFN) <> 0 dann dann
'' s = s & <a href = & path & f1.name &> & f1.name & </a> <br>
'' Ende wenn
Nächste
document.write Der folgende Eintrag wurde durchsucht. Klicken Sie bitte darauf. [Zusammengestellt von Merber im Januar 2003] <br>
document.write s
Setzen Sie FC = nichts
Setzen Sie f = nichts
Setzen Sie fso = nichts
Endfunktion
Funktion ReadEntireFile (filespec)
Const forreading = 1
Dim fso, thefile, retstring
Setzen Sie fso = createObject (scripting.filesystemObject)
Setzen Sie die Datei = fso.opentextfile (filespec, Forreading, Falsch)
ufn = uCase (fn)
Tun, während theFile.atendofstream <> wahr
Retstring = theFile.readline
UF1 = uCase (Retstring)
Wenn instr (uf1, UFN) <> 0 dann
s = s & <a href = & path & f1.name &> & f1.name & </a> <br>
Ausgang tun
Ende wenn
Schleife
thefile.close
ReaTeNtireFile = s
Endfunktion
->
</Script>
</Head>
<body>
<P Align = Center> <font color =#000000 size = 6> Bitte geben Sie das Schlüsselwort ein, um nach [im Text enthalten] (</font> <font
color =#000000 size = 3> Fall ignorieren </font> <font color =#000000 size = 6>) </font> </p>
<P Align = Center> <font size = 2> <font color =#000000> [produziert von Merber
Am 5. Januar 2003] </font> </font> </p>
<P Align = Center> <Eingabename = T1> <Eingabetyp = Tastenwert = Suche! name = b1> </p>
<P Align = center> </p> </body> </html>