Informatik Tutorium 12.01

Ich hab hier die Lösung für Labor 9. Es wird eine externe *.txt Datei ins Programm geladen, diese kann man editieren und abspeichern. Dazu braucht man folgende drei Funktionen:

Input = Einlesen
Output = überschreiben/speichern
Append = anhängen an letzte zeile

Das ganze ist ein sehr simples Beispiel für Datenbankverwaltung, allerdings eben ohne Tabellen.

[sourcecode language="vb"] ‘ Öffnen… Dim data As String Dim textdata As String Open "Dateiname.txt" For Input As #1 ‘ Datei als Input #1 öffnen Do Until EOF(1) ‘ Bis zum ende der Textdatei Input #1, data ‘ Mit der Variablen data wird der Input definiert textdata = textdata + data + vbNewLine ‘ Weil die Variable data immer wieder durch die nächste eingelesene Zeile überschrieben wird, muss man eine zweite Variable definieren und den wert von data jedesmal dazu addieren und nach jeder Zeile einen Absatz mit vbNewLine Loop Text1.Text = textdata ‘die variable textdata in das Textfeld schreiben Close #1 ‘ Close nicht vergessen [/sourcecode] [sourcecode language="vb"] ‘ anhängen an bestehenden text Open "Dateiname.txt" For Append As #1 ‘Inhalt von Text2.Text an letzte Zeile der Textdatei anhängen Write #1, vbNewLine + Text2.Text Close #1 ‘ textbox aktualisieren, nicht unbedingt nötig DoEvents Open "Dateiname.txt" For Input As #1 Do Until EOF(1) Input #1, data textdata = textdata + data Loop Close #1 Text1.Text = textdata [/sourcecode] [sourcecode language="vb"] ‘ Speichern… Open "Dateiname.txt" For Output As #1 ‘überschreibt komplette Textdatei mit inhalt von Text1.text Write #1, Text1.Text Close #1 [/sourcecode]
Diejenigen die ganz toll sein wollen, können noch ein Modul einbauen um die Windowsstandarddialogen wie “Datei öffnen” und “Datei Speichern” zu benutzen.

Datei Runterladen und in VB einbinden Projekt->Modul hinzufügen->Vorhanden-> runtergeladene Datei auswählen. module1.bas Runterladen
[sourcecode language="vb"] sFile = ShowSaveDlg(Me, "*.txt (Textdateien)|*.txt", _ "Textdatei speichern", App.Path) If (sFile <> "") Then Open sFile For Output As #1 Write #1, Text1.Text Close #1 End If [/sourcecode] [sourcecode language="vb"] Dim data As String Dim textdata As String ‘ Öffnen… sFile = ShowOpenDlg(Me, "*.txt (Textdateien)|*.txt", _ "Textdatei öffnen", App.Path) If (sFile <> "") Then Open sFile For Input As #1 Do Until EOF(1) Input #1, data textdata = textdata + data + vbNewLine Loop Close #1 Text1.Text = textdata End If [/sourcecode] Ich hab euch mal die exe und source code in einem Ziparchiv hochgeladen:

Download adressen101.zip