Textdatei im sequentiellen Modus zum Lesen öffnen und speichern II

Textdatei im sequentiellen Modus zum Lesen öffnen und speichern:
Statusleiste, CommonDialog, DataChanged, Freefile, Open, Close, LOF
Private Dateiname As String
Private Sub Form_Load()
cdlDatei.Filter = "Textdatei|*.txt|Alle Dateien|*.*" Dateien per CommonDialog öffnen.
End Sub
Private Sub Form_Resize()
txtTextfeld.Width = Me.ScaleWidth TextBox hat stets die Breite / Höhe wie das Formular.
txtTextfeld.Height = Me.ScaleHeight
End Sub
Private Sub mnuNeu_Click() Menü: Neue Datei erzeugen.
Dim Antwort As Long
If txtTextfeld.DataChanged = True Then Bei Änderungen in TextBox wird eine Abfrage angezeigt.
Antwort = MsgBox(Prompt:="Möchten Sie den Inhalt des Textfensters speichern?", _
Buttons:=vbYesNo + vbQuestion, Title:="Daten wurden geändert")
If Antwort = vbYes Then
DateiSpeichern Dateiname Alten Text speichern.
End If
End If
txtTextfeld.Text = "" TextBox entladen.
End Sub
Private Sub mnuÖffnen_Click() Menü: Datei öffnen.
Dim DateiNr As Integer
cdlDatei.DialogTitle = "Wählen Sie die zu öffnende Textdatei"
cdlDatei.ShowOpen
DateiNr = FreeFile
Dateiname = cdlDatei.FileName
Open Dateiname For Input As DateiNr TextDatei wird für sequentiellen Lesezugriff geöffnet.
txtTextfeld.Text = Input(LOF(DateiNr), DateiNr)
Close
txtTextfeld.DataChanged = False
staStatus.Panels("Dateiname").Text = Dateiname Ausgabe von Pfad, Dateiname und -größe in Statusleiste.
staStatus.Panels("Dateigröße").Text = FileLen(Dateiname) & " Bytes"
End Sub
Private Sub mnuSpeichern_Click() Menü: Datei speichern.
cdlDatei.DialogTitle = "Wählen Sie den Namen der zu speichernden Textdatei"
cdlDatei.ShowOpen
Dateiname = cdlDatei.FileName
DateiSpeichern Dateiname
End Sub
Sub DateiSpeichern(tmpName As String)
Dim DateiNr As Integer
DateiNr = FreeFile
Open Dateiname For Output As DateiNr TextDatei wird für sequentiellen Schreibzugriff geöffnet.
Print #DateiNr, txtTextfeld.Text
Close
txtTextfeld.DataChanged = False
Exit Sub
End Sub
Eigenschaften der Statusleisten für Anzeige des Pfades / Dateinames, sowie der Dateigröße.
.
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