auxmoney - Geld leihen für das Studiumauxmoney - Geld leihen für das Studium

auxmoney - Geld leihen für den Umzugauxmoney - Geld leihen für den Umzug

Textdatei im sequentiellen Modus zum Lesen öffnen und speichern I

Im sequentiellen Modus die Textdatei zum Lesen öffnen und speichern:
FreeFile, Open, Close, LOF, DialogFileOpen
Dim gFileNum As Integer
Private Sub Form_Activate()
Me.txtBenutzer.SetFocus
End Sub
Private Sub mnuOpen_Click()
Me.dlgFileOpen.ShowOpen Öffnet systemeigenes Öffnen-Dialogfeld.
Me.dlgFileOpen.Tag = Me.dlgFileOpen.FileName
End Sub
Private Sub cmdDelete_Click() Datei zum Löschen öffnen.
gFileNum = FreeFile()
Open dlgFileOpen.Tag For Output As gFileNum Datei sequentiell öffnen und ohne Daten schließen.
Close gFileNum
gFileNum = FreeFile() Leere Datei für das Einlesen in das Textfeld öffnen.
Open dlgFileOpen.Tag For Input As gFileNum Öffnen der leeren Benutzer.txt zum Einlesen.
Me.txtBenutzerliste = Input(LOF(gFileNum), gFileNum) Ausgabe des leeren Dateiinhalts in das mehrzeilige
Close gFileNum Textfeld.
End Sub
Private Sub cmdOK_Click() 1. Datei zum Anhängen von Daten öffnen.
gFileNum = FreeFile() Nächste freie Dateinummer zuweisen.
Open dlgFileOpen.Tag For Append As gFileNum Öffnen von Benutzer.txt zum Anhängen von Daten.
Print #gFileNum, Me.txtBenutzer Inhalt des Textfeldes txtBenutzer an das Ende der Datei
Close gFileNum anfügen.
gFileNum = FreeFile() 2. Datei für das Einlesen in das Textfeld öffnen.
Open dlgFileOpen.Tag For Input As gFileNum Öffnen der Benutzer.txt zum Einlesen
Me.txtBenutzerliste = Input(LOF(gFileNum), gFileNum) Ausgabe des gesamten Dateiinhalts in das mehrzeilige
Close gFileNum Textfeld.
Me.txtBenutzer = ""
Me.txtBenutzer.SetFocus
End Sub
Private Sub cmdCancel_Click()
Close Alle mit Open geöffneten Dateien schließen.
Unload Me
End Sub
Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!

Nach oben Sitemap
Impressum & Kontakt