archiviazione

gestione file con record a lunghezza costante, solo lettura con due formati diversi
file da leggere : rubri.dat

per vedere archi3d.ppt

Option Explicit
rem creato come modulo per assegnare lunghezza a campi
Public Type persona
cognome As String * 20
nome As String * 20
indirizzo As String * 20
cap As String * 5
città As String * 20
telefono As String * 20
End Type

Private Sub apri_Click()
Dim archivio As String
archivio = TextBox7.Text
Open archivio For Random As #1 Len = 105
codicetxt.SetFocus
End Sub

Private Sub chiudi_Click()
Close #1
End Sub


Private Sub CommandButton2_Click()
Dim p As persona
Get #1, codicetxt, p
Call preleva1(p)
codicetxt.Text = ""
End Sub



Private Sub leggi_Click()
Dim p As persona
Get #1, codicetxt, p
Call preleva(p)
codicetxt.Text = ""
End Sub

Private Sub preleva(p As persona)
Dim h As String
h = " "
ListBox1.AddItem (p.cognome & h & p.nome & h & p.indirizzo & h & p.cap & h & p.città & h & p.telefono)
ListBox1.AddItem ("-----")
codicetxt.SetFocus
End Sub

Private Sub preleva1(p As persona)
TextBox1 = p.cognome
TextBox2 = p.nome
TextBox3 = p.indirizzo
TextBox4 = p.cap
TextBox5 = p.città
TextBox6 = p.telefono
codicetxt.SetFocus
End Sub