Come leggere un file in VBS

VBS , noto anche come " Visual Basic Script , " ha causato un allarme nel 2000, dopo il " Ti amo " virus infettato 15 milioni di computer e portato giù i server in tutto il mondo . Quando Microsoft ha creato VBS , hanno utilizzato Visual Basic come un modello . VBS non è un virus , ma ha la possibilità di accedere ai file di sistema di un utente e di altre risorse del computer . È possibile utilizzare VBS per leggere il contenuto di un file inserendo poche righe di codice . Istruzioni
1

destro del mouse sul desktop e selezionare " Nuovo ". Selezionare " File di testo " dalla lista a discesa. Windows verrà creato un nuovo file di testo e visualizzare la relativa icona sul desktop
2

Aggiungere il seguente codice al documento : .

Dim objFSObject , strFile , strFileContents , strCurrentLine , arrLineCollection < br

CONST ForReading > = 1

'Crea File System Object

objFSObject = CreateObject ( " Scripting.FileSystemObject " ) per

Le prime due righe creano variabili . La terza riga crea un oggetto del file system
3

Aggiungi questo codice sotto il codice nel passaggio 2 : .

StrFile = " C : \\ Cartella \\ somefile.txt "

sostituire "C : \\ Cartella \\ somefile " con il percorso di un file di testo sul disco rigido . Ad esempio, per utilizzare un file denominato " test.txt" situato nella cartella " Temp" sul disco "C" , aggiungere la seguente riga :

strFile = " C : \\ temp \\ test.txt"
4

Aggiungi questo codice sotto il codice nel passaggio 3 : .

strFileContents = objFSObject.OpenTextFile ( strFile , ForReading ) ReadAll

arrLineCollection = Split ( strFileContents , vbCrLf ) per

la prima riga si legge il file e lo memorizza in " strFileContents . " La seconda riga crea una collezione ( array) e memorizza ogni riga del file come un elemento dell'array . Per esempio, se il file di input ha tre linee , l'array avrà tre elementi
5

Aggiungi questo codice sotto il codice nel passaggio 4 : .

Ogni strCurrentLine in arrLineCollection

wscript.echo " linea di corrente = " & strCurrentLine

Avanti

objFSObject.Close

Questo codice loop blocco attraverso la matrice e visualizza ogni riga .
Pagina 6

Fare clic su " File " e selezionare "Salva con nome " per aprire la finestra " Salva con nome" finestra .
7

Tipo " vbReadTest1.vbs " nel campo "Nome del file " casella di testo e fare clic su " Salva ". Notepad creerà un file VBS e salvarlo sul desktop .
8

Individuare il file sul desktop e fare doppio clic su di esso . Il codice VBS leggerà il file di input e di visualizzarne il contenuto .

• Come passare variabili da Visual Basic in Access Query 
• Come aggiornare una query in Access VBA