archiviazione

per vedere archi1.ppt

trasferimento di dati codificati nel programma verso file esterrno e loro richiamo e visualizzazione
si devono predisporre due file (creati con notes) clienti1 e clienti2 registrati con estensione .dat
e memorizzati nella cartella nella quale si trova anche il programma che li utilizza( o anche in altra
cartella alla quale si fara riferimento nel codice....fnome = "clienti1.dat" oppure C:/cartella/clienti1.dat)

Option Explicit
Public fnumero As Integer
Public fnome As String
Public numero As Integer

Private Sub aprifile_Click()
Dim x As Integer
x = TextBox1.Text 'inserire numero del file sul quale registrare
Select Case x 'richiamare procedura per aprire file indicato dal numero x
Case 1
Call aprire1(x)
Case 2
Call aprire2(x)
End Select

End Sub

Private Sub cancella1_Click() 'cancella numero inserito
TextBox1.Text = ""
TextBox1.SetFocus
End Sub



Public Sub aprire1(x As Integer)
fnumero = x
fnome = "clienti1.dat" 'nome del file precedentemente preparato, anche se vuoto
Open fnome For Output As #fnumero 'apertura del file e trasmissione dati
Print #fnumero, "rossi"
Print #fnumero, "verdi"
Print #fnumero, "bianchi"
Print #fnumero, "zanella"
Print #fnumero, "puccini"
Print #fnumero, "manzoni"
Close #fnumero
End Sub



Public Sub aprire2(x As Integer)
fnumero = x
fnome = "clienti2.dat"
Open fnome For Output As #fnumero
Print #fnumero, "primo"
Print #fnumero, "secondo"
Print #fnumero, " terzo"
Print #fnumero, "quarto"
Print #fnumero, "quinto"
Print #fnumero, " sesto"
Close #fnumero
End Sub




Private Sub CommandButton2_Click()
Dim x As Integer
x = TextBox2.Text 'inserire numero del file da leggere
Select Case x
Case 1
Call visualizza1(x)
Case 2
Call visualizza2(x)
End Select
End Sub

Private Sub cancella2_Click()
TextBox2.Text = ""
TextBox2.SetFocus
End Sub

Private Sub cancellatutto_Click()
ListBox1.Clear
End Sub


Public Sub visualizza1(x As Integer)
Dim dato As String
numero = TextBox2.Text
Open "clienti1.dat" For Input As numero 'visualizza dati richiamati da file
While Not EOF(numero)
Input #numero, dato
ListBox1.AddItem (dato)
Wend
ListBox1.AddItem ("--------")
Close #numero
End Sub

Public Sub visualizza2(x As Integer)
Dim dato As String
numero = TextBox2.Text
Open "clienti2.dat" For Input As numero
While Not EOF(numero)
Input #numero, dato
ListBox1.AddItem (dato)
Wend
ListBox1.AddItem ("--------")
Close #numero
End Sub

per esempio con tre file scrittura e lettura