rubrica3

gestione lettura file con due diversi formati

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

Private Sub clientela2_Click()
Dim dato As String * 100
numero = 2
Open "clientela2.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