rubrica2

gestione file con record lunghezza variabile
file da usare clientela.dat (numero 1)
possibile modificare i dati intervenemdo sul codice

per vedere elenco2.ppt

Private Sub aprifile_Click()
fnumero = 1
fnome = "clientela.dat"
Open fnome For Output As #fnumero
Print #fnumero, "grassi", "mario", "via padova", "1234", "verona", "1234"
Print #fnumero, "rossini", "aldo", "via padova", "1264", "verona", "12"
Print #fnumero, "bassi", "maria", "via padova", "1244", "verona", "12"
Print #fnumero, "verdi", "marco", "via padova", "1234", "verona", "12"
Print #fnumero, "basso", "luigi", "via padova", "1534", "verona", "12"
Print #fnumero, "zanella", "anna", "via padova", "1734", "verona", "12"
Print #fnumero, "pascoli", "carla", "via padova", "1834", "verona", "12"
Print #fnumero, "manzoni", "elisa", "via padova", "1934", "verona", "12"
Close #fnumero
End Sub


Private Sub CommandButton2_Click()
Dim dato As String * 100
numero = 1
Open "clientela.dat" For Input As numero
While Not EOF(numero)
Input #numero, dato
ListBox1.AddItem (dato)
Wend
ListBox1.AddItem ("--------")
Close #numero
End Sub


Private Sub cancellare_Click()
ListBox1.Clear
End Sub

per esempio di sola lettura con formati diversi