Private Sub Form_Load()
ort$ = "C:\Adressenverwaltung\kontakte.txt"
End Sub

Global ort$
 
Type adress
name As String * 30
vorname As String * 30
spitzname As String * 30
initialien As String * 2
strasse As String * 30
postleitzahl As String * 8
wohnort As String * 30
land As String * 30
emailgeschäftlich As String * 30
emailprivat As String * 30
faxgeschäftlich As String * 30
faxprivat As String * 30
handygeschäftlich As String * 30
handyprivat As String * 30
telefonprivat As String * 30
telefongeschäftlich As String * 30
homepage1 As String * 30
homepage2 As String * 30
End Type
 
Sub add_felder_löschen()
main.ADDname.Text = ""
main.ADDvorname.Text = ""
main.ADDspitzname.Text = ""
main.ADDinitialien.Text = ""
main.ADDwohnort.Text = ""
main.ADDpostleitzahl.Text = ""
main.ADDstrasse.Text = ""
main.ADDemailgeschäftlich = ""
main.ADDemailprivat = ""
main.ADDfaxgeschäftlich = ""
main.ADDfaxprivat = ""
main.ADDhandygeschäftlich = ""
main.ADDhandyprivat = ""
main.ADDhomepage1 = ""
main.ADDhomepage2 = ""
main.ADDland = ""
main.ADDtelefongeschäftlich = ""
main.ADDtelefonprivat = ""
End Sub
 
Sub add_kontakt_speichern()
adress.name = main.ADDname
adress.vorname = main.ADDvorname
adress.spitzname = main.ADDspitzname
adress.initialien = main.ADDinitialien
adress.wohnort = main.ADDwohnort
adress.postleitzahl = main.ADDpostleitzahl
adress.strasse = main.ADDstrasse
adress.emailgeschäftlich = main.ADDemailgeschäftlich
adress.emailprivat = main.ADDemailprivat
adress.faxgeschäftlich = main.ADDfaxgeschäftlich
adress.faxprivat = main.ADDfaxprivat
adress.handygeschäftlich = main.ADDhandygeschäftlich
adress.handyprivat = main.ADDhandyprivat
adress.homepage1 = main.ADDhomepage1
adress.homepage2 = main.ADDhomepage2
adress.land = main.ADDland
adress.telefongeschäftlich = main.ADDtelefongeschäftlich
adress.telefonprivat = main.ADDtelefonprivat

Open ort$ For Random As #1 Len = 490
Put #1, Dateinummer, adress
Close #1
End Sub