Wie Lesen und Schreiben von Text -Dateien mit Visual Basic 6.0

Mitglieder-Login

InformationenVisual Basics Programmierung

Wie man EXE -Dateien mit Visual Bas… Visual Basic ist eine objektorientierte Programmiersprache von Microsoft entwickelt . Wenn ein Progr
Wie man ein Array Output in umgekeh… Ein Array ist eine Sammlung von Daten in einer Sequenz gespeichert. Eine häufige Anforderung in viel
Wie der Dateinamen auf ComboBox Imp… Suche nach Dateinamen ist eine gemeinsame Aufgabe in Computer-Programmierung und in Visual Basic kön
Die Visual Basic 6 Timer-Steuerung … Wie man einen Timer in einer VB6 DLL verwenden . Verwenden Sie die DLL mit dem Timer in anderen Anwe

Programming

HOME

* Computer Wissen >> Programming >> Visual Basics Programmierung >> .

Wie Lesen und Schreiben von Text -Dateien mit Visual Basic 6.0

Visual Basic 6.0 bietet eine einfache Möglichkeit, Text-Dateien öffnen und lesen ihren Inhalt in einem Textfeld auf dem Bildschirm , als auch neuen Text zu schreiben in eine Datei. Nur elf Zeilen Code für den ersten Schritt erforderlich , und zehn zum zweiten Betrieb ausreichen. Das Verfahren nutzt die Input-und Output -Funktionen in Visual Basic, sowie ein kleines Fenster , um Informationen vom Benutzer sammeln . Things You
Visual Basic 6.0
brauchen anzeigen Weitere Anweisungen
1

Öffnen Sie Visual Basic 6.0 , klicken Sie auf Datei und wählen Sie Neues Projekt. Wählen Sie Standard- EXE aus der Liste der Vorlagen. Doppelklicken Sie auf das TextBox-Steuerelement in der Toolbox auf der linken Seite , um diese zum Formular hinzufügen . Ändern Sie die Größe des Formulars im Bereich Eigenschaften auf der rechten Seite bis 5000
2

Nehmen Sie die folgenden Änderungen an den TextBox-Eigenschaften : . Höhe = 3000Multiline = TrueScrollbars = BothWidth = 3000
Seite 3

Doppelklicken Sie auf das Button-Steuerelement in der Toolbox. Ändern Sie die Caption -Eigenschaft auf Datei lesen . Wiederholen Sie diesen Vorgang , um eine zweite Button-Steuerelement hinzufügen , ändern die Caption-Eigenschaft hier, um Datei zu schreiben.
4

Doppelklicken Sie auf die Datei lesen , um den Code zu öffnen. Geben Sie diesen Code auf der Code-Ansicht Seite : Funktion ReadFile () Dim ReadFileName Wie StringReadFile = InputBox (" Geben Sie den Namen der Datei zu lesen :") öffnen ReadFile Für Eingang As # 1ReadFile = INPUT $ ( LOF (1) , 1 ) Text1 . Text = ReadFileClose # 1End FunctionPrivate Sub Command1_Click () ReadFileEnd Sub
5

Doppelklicken Sie auf die Datei schreiben , um den Code zu öffnen. Geben Sie diesen Code ein: Function WriteFile () Dim WriteFileName Wie StringWriteFileName = InputBox ("Geben Sie den Dateinamen " ) Offene WriteFileName For Output As # 2Drucken # 2, # Text1.TextClose 1End FunctionPrivate Sub Command2_Click () WriteFileEnd Sub
6

Führen Sie das Programm durch Drücken von F5 und klicken Sie auf den Befehl Datei lesen zuerst. Geben Sie den Namen eines bekannten Textdatei , einschließlich der . Txt Endung. Die Datei sollte in dem Text angezeigt. Wenn Sie auf Datei schreiben Jetzt klicken und einen anderen Namen , erstellen Sie eine neue, aber doppelte Datei . Alternativ, wenn Sie den Text löschen oder einfach nur auf Datei lesen klicken Sie vor dem Laden einer Datei und geben Sie dann etwas Neues , können Sie eine völlig neue Datei zu erstellen.