rubrica1

gestione archivio con registrazione (Ouptut) di dati codificati nel programma e loro rilettura (Input)

per attivare elenco1.ppt
creare form con 5 pulsanti,3 label, 1 listbox1 (modificare testo e nomi come da codice e immagine)

predisporre nella cartela ove si trova il programma, due file creati con notes, anche vuoti, registrati come
elenco1.dat , elenco2.dat:
saranno aperti per la registrazione dei dati codificati nel programma (e modificabili da utente)
indicando il numero e il nome :es.Open fnomeFor Output As #numero
e saranno richiamati per la visualizzazione con lo stesso numero e nome :es.Open "elenco1.dat" For Input As numero

Public Sub aprire1_click()
fnumero = 1 'codice che individua 1 file
fnome = "elenco1.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_click()
fnumero = 2
fnome = "elenco2.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 cancellatutto_Click()
ListBox1.Clear
End Sub


Public Sub visualizza1_click()
Dim dato As String
numero = 1
Open "elenco1.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_click()
Dim dato As String
numero = 2
Open "elenco2.dat" For Input As numero
While Not EOF(numero)
Input #numero, dato
ListBox1.AddItem (dato)
Wend
ListBox1.AddItem ("--------")
Close #numero
End Sub

vedi esempio simile con selezione numero da assegnare a file da gestire