Come leggere informazioni da un file di testo

Fedele alle sue radici BASIC, VBA ti consente di eseguire input di file da file sequenziali. Ciò significa che puoi aprire e leggere un file di testo sequenziale, caricando le informazioni dal file in variabili stringa. I passaggi sono semplici. Devi solo aprire il file, ottenere l’input e quindi chiudere il file. Il codice seguente è un esempio comune di lettura da un file sequenziale:

 

Dim Raw As String
Dim NumValues As Integer, J As Integer
Dim UserVals() As String
Open "MyFile.Dat" For Input As #1
Line Input #1, Raw
NumValues = Val(Raw)
ReDim UserVals(NumValues)
For J = 1 to NumValues
    Line Input #1, UserVals(J)
Next J
Close #1

 

 

In questo esempio è necessario notare che si presuppone che la prima riga letta dal file di testo (MyFile.Dat) contenga un valore che indica quanti elementi devono essere letti dal file.

Se sei tra quelli che hanno file di dati in cui la riga 1 non contiene un valore che indica quanti elementi devono essere letti dal file, racchiudi il codice di lettura ed elaborazione in un ciclo While…Wend, in questo modo:

 

While Not EOF(1)
    Line Input #1, Record
    '... utilizza la variabile stringa Record
Wend

 

 

Tags: , , , , , , ,

Ti è stato utile?