Visual Basic Italia

Gli operatori logici in Visual Basic Net? Li trovi su Opentraining.it Visual Basic Italia

Guide e Tutorials:indexed

Studio sui file binari (Seconda parte) - lettura e scrittura di tipi di dati definiti dall'utente

Come già si è visto nel corso dell'articolo precedente i file binari sono speciali formati di file per poter essere utilizzati.
Il formato infatti non prevede un codice ASCII che quindi necessita di un'interpretazione da parte dell'applicazione.
I procedimenti di lettura e di scrittura di valori numerici e testuali all'interno di questo tipo di file dovrebbe essere ormai chiara.
In realtà questi file vengono utilizzati per immagazzinare ed archiviare più che altro immagini, suoni, ed altri formati di dimensioni piuttosto ingombranti.
In particolare l'uso di file binari nel processo di memorizzazione dei dati è importante nel caso in cui si abbia a che fare con tipi di dati definiti dall'utente.
Per chiarire il concetto di tipo definito dall'utente, leggere l'articolo Le API: approfondimenti sul concetto di struttura: tipi definiti dall'utente.
S'immagini di avere una struttura da noi creata del tipo:

Private Type Clienti
Nome As String
Cognome As String
Ditta As String
Codice As Long
End Type

e di voler costruire una matrice che contiene tutti i dati (nome, cognome, ditta, codice) per ogni cliente. Chiamiamo tale matrice matrClienti:

Private matrClienti As Clienti()

attraverso i file binari è molto semplice andare a salvare ogni elemento della matrice. Dopo aver inserito la struttura e la dichiarazione della matrice nelle dichiarazioni generali del modulo di codice, è necessario definire gli elementi della matrice ossia i clienti. Nella routine Form_Load ridimensioniamo la matrice in modo che contenga due elementi ossia due clienti:

ReDim matrClienti(1 To 2)

Adesso ci possiamo occupare del primo cliente. Definiamone i dati:

With matrClienti(1)
.Nome = "Antonio"
.Cognome = "Ferrari"
.Ditta = "XXX S.r.l"
.Codice = "1031985"
End With

il secondo cliente invece è caratterizzato dalle seguenti informazioni:

With matrClienti(2)
.Nome = "Fausto"
.Cognome = "Minardi"
.Ditta = "YYY S.n.c"
.Codice = "1039458"
End With

e richiamiamo la routine che ci consente di salvare i dati in un file binario:

Salva

Adesso nella routine Salva dichiariamo le variabili che interverranno nel codice ossia il numero di file numeroFile, un contatore i che scorre tutti i clienti e il totale dei clienti considerati numeroClienti che al momento del salvataggio sappiamo essere due, ma ci è sconosciuto nel momento dell'apertura del file binario:

Dim numeroFile As Integer, i, numeroClienti As Long

come visto nell'articolo precedente adesso è necessario aprire il file binario per accesso binario con le modalità già analizzate in precedenza:

numeroFile = FreeFile
Open "C:\Documenti\clienti.bin" For Binary Access _
Write Lock Read Write As #numeroFile

assegnamo a numeroClienti il massimo valore della matrice tramite la funzione UBound seguita dal nome della matrice. Essendo composta da due elementi, numeroClienti sarà proprio due. Fatto ciò possiamo salvare questo valore nel file binario. Tale operazione è fondamentale al momento dell'apertura del file per individuare il numero di dati che è necessario recuperare:

numeroFile = FreeFile
numeroClienti = UBound(matrClienti)
Put #numeroFile, , numeroClienti

adesso per ogni cliente (qui finalmente usiamo la variabile i che rappresenta un contatore che scorre i vari clienti) salviamone le caratteristiche individuate dai tipi di dati da noi definiti nella struttura:

For i = 1 To numeroClienti
Put #numeroFile, , matrClienti(i)
Next i

e finalmente chiudiamo il file e la sottoprocedura:

Close #numeroFile
End Sub

Ora ci dobbiamo occupare di recuperare i dati in lettura. Per far ciò aggiungiamo un pulsante denominato Command1 al piano. Il ragionamento è molto semplice: prima di tutto si recupera il numero di clienti salvati sul file (nel nostro caso 2, ma ancora in teoria questa informazione non si conosce). In secondo luogo per ogni cliente recuperiamo le variabili nome, cognome, ditta e codice e ripopoliamo la matrice.
Innanzitutto dichiariamo le variabili ed apriamo il file in lettura:

Private Sub Command1_Click()
Dim numeroFile As Integer, numeroClienti As Long
numeroFile = FreeFile
Open "C:\Documenti\clienti.bin" For Binary Access _
Read Lock Read Write As #numeroFile

recuperiamo come già detto il numero totale di clienti:

Get numeroFile, , numeroClienti

e per finire, se numeroClienti è un valore maggiore di 0 (ossia sono stati salvati i dati di almeno un cliente), ridimensioniamo la matrice e ripopoliamola con i dati relativi.
Infine chiudiamo il file e la sottoprocedura:

If numeroClienti > 0 Then
ReDim matrClienti(1 To numeroClienti)
For i = 1 To numeroClienti
Get #numeroFile, , matrClienti(i)
Next i
End If
Close #numeroFile
Stop
End Sub

Come mai è stata inserita l'istruzione Stop? Perchè è necessaria per sospendere l'esecuzione dell'applicazione per permettere di dare un'occhiata alle variabili del progetto.
Proviamo infatti ad avviare l'applicazione: nella sottoprocedura Form_Load vengono definite le variabili, nella sottoprocedura Salva invece esse vengono salvate nel file binario. Una volta cliccato il pulsante le variabili vengono recuperate, l'applicazione si blocca e viene evidenziato in giallo l'istruzione Stop. Adesso proviamo ad aprire la finestra di visualizzazione delle variabili, scegliendo dal menu Visualizza di Visual Basic l'opzione Finestra Variabili Locali come mostrato sotto:

Al di sotto dell'area di progettazione comparirà una finestra nella quale è possibile tenere sott'occhio le variabili del progetto.
Espandere il nodo in corrispondenza di Me e cercare nella lista che compare il nome matrClienti:

Espandere anche questo nodo: si vedrà che tutte le variabili sono ritornate al loro posto all'interno della matrice corrispondente dopo essere passate all'interno del file binario:

Archivio:ndexed
Lezioni	Commenta questa lezione	Invia la tua guida	Avviso per le nuove lezioni	Proponi un argomento