Nwlapcug.com


Come cercare dati in un File con VB Script

Come cercare dati in un File con VB Script


Imparare a cercare dati in un file utilizzando VB Script può farti più dinamico dell'applicazione di scripting. VB Script è molto simile a Visual Basic, quindi se avete qualche esperienza in VB non avrete un problema lavorare con VB Script. Nello Script di Visual Basic è possibile manipolare file simili per altri linguaggi di programmazione quali creazione, aggiunta, rimozione di dati e lettura dei file. Per leggere e cercare dati in un file è possibile utilizzare la "scripting. FileSystemObject". Dopo aver letto i dati, quindi è possibile cercare qualsiasi cosa utilizzando i dati in memoria.

Istruzioni

1

Avviare Blocco note e digitare "dati nel mio file" e premere "Invio". Digitare "1" e premere "Invio". Digitare "2" e premere "Invio". Digitare "3" e premere "Invio". Digitare "4" e premere "Invio". Digitare "5" e premere "Invio". Premere "Ctrl" e "S" per salvare il file. Salvarlo in "C:\Temp" come "ReadFile." Chiudere il file.

2

Avviare Blocco note e digitare quanto segue per definire la variabile "FileSystemObject" e aprire il file è stato creato il primo passo per la lettura:

Impostare fsoObj = CreateObject("Scripting.FileSystemObject")
Impostare rdFile = fsoObj.OpenTextFile ("C:\Temp\readFile.txt", ForReading)

3

Creare le variabili che si utilizzerà per cercare il file:

Const ForReading = 1
Dim lineNum
Dim myLineArray()

4

Scorrere i dati del file e riempire la matrice con i propri dati:

Io = 0
Fare fino a rdFile.AtEndOfStream
ReDim Preserve myLineArray(i)
myLineArray(i) = rdFile.ReadLine
i = i + 1
Loop
rdFile.Close

5

Aggiungere il seguente "per... Loop"per cercare i dati della matrice per il numero"4"e visualizzare un messaggio quando relativo trovato:

lineNum = 0
Per ogni strLine in myLineArray
Se (strLine = "4") quindi

WScript.Echo "You have found " & strLine & " in line " & lineNum & "."

Fine se
lineNum = lineNum + 1
Successivo

6

Premere "Ctrl" e "S" per lanciare la finestra di dialogo "Salva con nome". Digitare "vbScriptFile.vbs" accanto a "Nome File". Salvarlo in "C:\Temp" e chiudere il file. Passare alla "C:\Temp" e fare doppio clic su "vbScriptFile.vbs" per eseguire il programma.