esercizi con visual basic su powerpoint

esci con matevba.htm

gestione archivi

archi1.ppt

clienti1.dat vuoto
riceve dati da programma

rossi
verdi
bianchi
zanella
puccini
manzoni
-----------------------

clienti2.dat vuoto
riceve dati da programma

vettori
patrizio
elisa
carlo
sergio
mario
-----------------------
clienti1.dat con dati
aaaa
bbb
ccc
dddd
eeee
ffff

riceve dati da programma
in sostituzione
rossi
verdi
bianchi
zanella
puccini
manzoni

---------------------------
clienti2.dat con dati
hhhh
kkkk
rrr
uuu
eee
wwww

riceve dati da programma
in sostituzione

vettori
patrizio
elisa
carlo
sergio
mario

--------------

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, "vettori"
Print #fnumero, "patrizio"
Print #fnumero, "elisa"
Print #fnumero, "carlo"
Print #fnumero, "sergio"
Print #fnumero, "mario"
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

Private Sub CommandButton3_Click()
Label16.Visible = False
End Sub

Private Sub UserForm_Click()

End Sub