Versione attuale delle 10:17, 30 ago 2023

Riempire un vettore mediante il suo Metodo ".Read()"

Se si intende riempire una variabile vettoriale con i dati presenti in un file, si potrà agevolmente ottenere questo risultato utilizzando il Metodo ".Read()" disponibile per ogni tipo di variabile vettoriale.
Tale Metodo legge nel file un numero di byte eventualmente stabilito nel 3° parametro a cominciare dal byte stabilito nel 2° parametro. Se il 2° e il 3° paramentro sono omessi, allora sarà letto l'intero file e caricato nel vettore.

Public Sub Main()

 Dim bb As Byte[]
 Dim fl As File

 fl = Open "/percorso/del/file" For Read

' Impostiamo il numero degli elementi che costituiranno la variabile vettoriale di tipo Byte[] mediante la funzione "Lof()", affinché nel vettore siano contenuti tutti i dati del file:
 bb = New Byte[](lof(fl))

bb.Read(fl)   ' ...o anche: bb.Read(fl, 0, bb.Count)
 
fl.Close

End

Uso dell'istruzione "Read"

Se si intende usare l'istruzione "Read", allora si dovrà usare un ciclo:

Public Sub Main()

 Dim bb As New Byte[]
 Dim fl As File
 Dim i As Integer
 Dim b As Byte

 fl = Open "/percorso/del/file" For Read

' Usa un ciclo "For...Next":
 For i = 0 To Lof(fl) - 1
   Read #fl, b 
   vettore.Push(b)
 Next

' ...oppure un ciclo "While...Wend" e la funzione "Eof()":
 While Not Eof(fl)
   Read #fl, b 
   vettore.Push(b)
 Wend
 
 fl.Close

End

Uso con l'istruzione "Read" del Metodo ".FromString()" del vettore di tipo Byte[]

Con "Read" si potrà usare senza ciclo una variabile di tipo stringa e il Metodo ".FromString()" del vettore:

Public Sub Main()

 Dim bb As Byte[]
 Dim fl As File
 Dim s As String 

 fl = Open "/percorso/del/file" For Read

' Legge l'intero file:
 Read #fl, s, Lof(fl)

 bb = Byte[].FromString(s)

 fl.Close

End

Caricare in un vettore di tipo "Byte[]" i dati di un file con il Metodo "File.Load()"

Per caricare in un vettore di tipo "Byte[]" i dati di un file senza fare uso di Open...For Read, si utilizzeranno il Metodo "File.Load()" e il Metodo ".FromString()" della Classe "Byte[]". ^{[Nota 1]}

Esempio:

Public Sub Main()

 Dim bb As Byte[]
 
 bb = Byte[].FromString(File.Load("/percorso/del/file"))

 Print bb.count

End

Note

[1] Vedere anche: Ottenere un vettore di tipo Byte da una Stringa