Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Spustite program Poznámkový blok a napíšte " To sú dáta v mojom súbore " a stlačte " Enter . " Typ " 1 " a stlačte " Enter . " Typ " 2 " a stlačte " Enter . " Typ " 3 " a stlačte " Enter . " Type " 4 " a stlačte " Enter . " typ " 5 " a stlačte " Enter . " Stlačte tlačidlo " Ctrl " a " S " pre uloženie súboru . Uložte ho do : " . ReadFile.txt " " C \\ Temp " ako Zatvorte súbor
2
Spustite program Poznámkový blok a zadajte nasledovné definovať " FileSystemObject " premenné a otvorte súbor , ktorý ste vytvorili krok . jeden pre čítanie :
Set fsoObj = CreateObject ( " Scripting.FileSystemObject " ) Set rdFile = fsoObj.OpenTextFile ( " C : \\ Temp \\ readFile.txt " , ForReading )
3
Vytvorte premenné , ktoré budete používať pre vyhľadávanie na súbor :
Const ForReading = 1Dim lineNumDim myLineArray ( )
4
Loop v dátach súboru a vyplniť polia s údajmi :
i = 0Do Do rdFile.AtEndOfStreamRedim Zachovať myLineArray ( i ) myLineArray ( i ) = rdFile.ReadLinei = i + 1LooprdFile.Close
5
Pridajte nasledujúce " pre ... Loop " vyhľadávať dáta v poli pre číslo " 4 " a zobrazí správu , keď jeho nájdené:
LineNum = 0For Každý strLine v myLineArrayIf ( strLine = " 4 " ) thenWScript.Echo " našli ste " a strLine a " v súlade " a LineNum & " . " Koniec iflineNum = LineNum + 1Next
6
Stlačte tlačidlo " Ctrl " a " S " spustiť " Uložiť ako " dialógové okno . " . File Name " zadajte " vbScriptFile.vbs " vedľa Uložte ho do " C : \\ Temp " a zatvorte súbor . Prejdite na " C : \\ Temp " a dvakrát kliknite na " vbScriptFile.vbs " na spustenie programu
.