Das Beispiel dieses Artikels beschreibt die Methode von VB, Textdateien Zeile für Zeile zu lesen. Teilen Sie es als Referenz mit allen. Die Einzelheiten lauten wie folgt:
'(allgemeine Deklaration)Dim nFileNum As Integer, sText As String, sNextLine As String, lLineCount As Long'=========================== ======Private Sub Command1_Click()' Holen Sie sich eine kostenlose DateinummernFileNum = FreeFile' Öffnen Sie eine Textdatei zur Eingabe. Das Eingabefeld gibt den Pfad zum Lesen der Datei zurück. Öffnen Sie „C:/Dokumente und Einstellungen/Sudeep/My Documents/3.txt" For Input As nFileNumlLineCount = 1' Lesen Sie den Inhalt der DateiDo While Not EOF(nFileNum) Line Input #nFileNum, sNextLine 'etwas damit machen 'in diesem Fall Zeilennummern hinzufügen! sNextLine = sNextLine & vbCrLf sText = sText & sNextLineLoopText1.Text = sText' Schließen Sie die DateiClose nFileNumEnd Sub
Ich hoffe, dass dieser Artikel für die VB-Programmierung aller hilfreich sein wird.