Textdatei im sequentiellen Modus zum Lesen öffnen

...sowie bearbeiten und speichern

Textdatei im sequentiellen Modus zum Lesen öffnen via FreeFile, Open, Close, EOF
Public Const pfadt$ = "D:\Verzeichnisname\Dateiname.txt" Konstante für Pfad verwenden. Wird kein Pfad verwendet,
Private kanal#, datei$ wird die Datei im selben Pfad wie dieses Programm
angelegt.
Private Sub cmdLaden_Click() Speichern-Button muss unsichtbar sein! Speichern
Dim NeuZeichen$, AltZeichen$ vor Laden der Datei löscht den Dateiinhalt !
kanal = FreeFile
datei = pfadt
Open datei For Input As #kanal Textdatei zum Lesen in Speicher laden.
Do
NeuZeichen = Input(1, kanal) Variablen erhalten Werte aus Speicher.
AltZeichen = AltZeichen & NeuZeichen
Loop Until EOF(kanal) Lesen, bis Ende der Datei erreicht wurde.
Close #kanal Speicher leeren.
rtbText.Text = AltZeichen & NeuZeichen RichTextBox erhält Werte aus Variablen.
cmdLaden.Visible = False
cmdSpeichern.Visible = True
End Sub
Private Sub cmdSpeichern_Click()
kanal = FreeFile
datei = pfadt
Open datei For Output As #kanal Datei zum Speichern in Speicher laden.
Print #kanal, rtbText.Text Textdatei übernimmt die neuen Werte der RichTextBox.
Close #kanal Speicher leeren.
End Sub
Private Sub cmdFarbe_Click()
rtbText.SelColor = vbRed Selektierter Text wird rot markiert.
End Sub
Private Sub cmdFett_Click()
rtbText.SelBold = True Selektierter Text wird fett markiert.
End Sub
Private Sub cmdUnter_Click()
rtbText.SelUnderline = True Selektierter Text wird unterstrichen markiert.
End Sub
Private Sub Form_Load()
cmdSpeichern.Visible = False Beim Laden den Speichern-Button unsichtbar machen; das
End Sub Speichern vor Laden der Datei löscht den Dateiinhalt !

Mehr Tipps: Textdatei im Binärmodus zum Lesen öffnen, bearbeiten und speichern II

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