lancio Blocco note e digitare " Si tratta di dati nel mio file " e premere " Invio ". Tipo " 1 " e premere " Invio". Tipo " 2 " e premere " Invio ". Tipo " 3 " e premere " Invio". Tipo " 4 " e premere " Invio ". tipo " 5 " e premere " Invio". Premere il tasto " Ctrl " e "S" per salvare il file . Salva in " C : \\ Temp" come " . ReadFile.txt " Chiudere il file
2
lancio Blocco note e digitare il seguente per definire la variabile " FileSystemObject " e aprire il file creato passo . uno per la lettura :
fsoObj = CreateObject ( " Scripting.FileSystemObject " ) Set rdFile = fsoObj.OpenTextFile ( " C : \\ Temp \\ readFile.txt " , ForReading ) economici
3
Creare le variabili che si intende utilizzare per cercare il file :
Const ForReading = 1Dim lineNumDim myLineArray ( ) economici 4
Loop attraverso i dati del file e riempire la matrice con i suoi dati :
i = 0Do Fino rdFile.AtEndOfStreamRedim Preserve myLineArray ( i) myLineArray ( i) = rdFile.ReadLinei = i + 1LooprdFile.Close
5
Aggiungere il seguente " per ... loop " per cercare i dati nella matrice per numero " 4 " e visualizza un messaggio quando la sua trovata:
lineNum = 0For Ogni strLine in myLineArrayIf ( strLine = " 4 " ) thenWScript.Echo " Hai trovato "& strLine e " in linea " e lineNum &" . "End iflineNum = lineNum + 1successivo
6
Premere" Ctrl "e " S " per lanciare il " Salva con nome" finestra di dialogo. Tipo " vbScriptFile.vbs " vicino a " . File Name" Salva in " C : \\ Temp" e chiudere il file . Passare a "C : \\ Temp" . Ed doppio clic su " vbScriptFile.vbs " per eseguire il programma
Programmazione © www.354353.com