Home Hardware Networking Programmazione Software Domanda Sistemi
Conoscenza Informatica >> Programmazione >> Nozioni di base di Visual Programming >> .

Come cercare i dati in un file con VB Script

Imparare a cercare i dati in un file utilizzando VB Script può farti scripting applicazione più dinamico . VB Script è molto simile al Visual Basic, quindi se avete qualche esperienza in VB non avrete problemi a lavorare con VB Script . In VB Script è possibile manipolare file simili ad altri linguaggi di programmazione come la creazione , l'aggiunta , la rimozione dei dati e la lettura di file . Per leggere e ricercare dati in un file, è possibile utilizzare il " Scripting.FileSystemObject . " Una volta che si leggono i dati , allora è possibile cercare qualsiasi cosa utilizzando i dati in memoria. Istruzioni
1

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