Zum Lesen und Schreiben in eine Textdatei mithilfe von Visual Basic 2005 oder Visual Basic.NET

Anforderungen

• Visual Basic 2005 oder Visual Basic.NET

• Visual Basic 2005 oder Visual Basic.NET

Lesen und Schreiben von Textdateien

Lesen einer Textdatei

1. Starten Sie Microsoft Visual Studio 2005 oder Microsoft Visual Studio.NET.
2. Erstellen Sie eine neue Konsolenanwendung in 2005 Visual Basic oder Visual Basic .NET.
3. Fügen Sie den folgenden Code an den Anfang der Datei Module1.vb:

   Imports System.IO
   					

4. Die Sub Main -Prozedur den folgenden Code hinzufügen.

   Dim objStreamReader As StreamReader
       Dim strLine As String
   
       'Pass the file path and the file name to the StreamReader constructor.
       objStreamReader = New StreamReader("C:\Boot.ini")
   
       'Read the first line of text.
       strLine = objStreamReader.ReadLine
   
       'Continue to read until you reach the end of the file.
       Do While Not strLine Is Nothing
   
         'Write the line to the Console window.
         Console.WriteLine(strLine)
   
         'Read the next line.
         strLine = objStreamReader.ReadLine
       Loop
   
       'Close the file.
       objStreamReader.Close()
   
       Console.ReadLine()
   					

5. Klicken Sie im Menü Debuggen auf Starten , zum Kompilieren und zum Ausführen der Anwendung. Drücken Sie die EINGABETASTE, um schließen die Konsolenfenster.
   
   Das Konsolenfenster zeigt die Datei "Boot.ini". Hinweis dass der Inhalt der Datei Boot.ini von Konfiguration variieren Konfiguration. Die folgende Ausgabe ist eine Beispiel-Boot.ini-Datei:

   [boot loader]
   timeout=5
   default=multi(0)disk(0)rdisk(0)partition(1)\WINNT
   
   [operating systems]
   multi(0)disk(0)rdisk(0)partition(1)\WINNT="Windows 2000 Professional" /fastdetect
   C:\ = "Windows 98"
   						

Schreiben einer Textdatei (Beispiel 1)

1. Starten Sie Visual Studio 2005 oder Visual Studio.NET.
2. Erstellen Sie eine neue Konsolenanwendung in 2005 Visual Basic oder Visual Basic .NET.
3. Fügen Sie den folgenden Code am Anfang der Module1.vb:

   Imports System.IO
   					

4. Die Sub Main -Prozedur den folgenden Code hinzufügen:

   Dim objStreamWriter As StreamWriter
       
      'Pass the file path and the file name to the StreamWriter constructor.
      objStreamWriter = New StreamWriter("C:\Testfile.txt")
   
      'Write a line of text.
      objStreamWriter.WriteLine("Hello World")
   
      'Write a second line of text.
      objStreamWriter.WriteLine("From the StreamWriter class")
   
      'Close the file.
      objStreamWriter.Close()
   					

5. Klicken Sie im Menü Debuggen auf Starten , zum Kompilieren und zum Ausführen der Anwendung.
   
   Dieser code erstellt eine Datei mit dem Namen Test.txt auf Laufwerk c: Öffnen Test.txt in einem Texteditor, der solche als Editor. Test.txt enthält zwei Textzeilen:

   Hello World
   From the StreamWriter class
   						

Schreiben einer Textdatei (Beispiel 2)

• ASCII
• BigEndianUnicode
• UTF7
• UTF8

1. Starten Sie Visual Studio 2005 oder Visual Studio.NET.
2. Erstellen Sie eine neue Konsolenanwendung in 2005 Visual Basic oder Visual Basic .NET.
3. Fügen Sie den folgenden Code am Anfang der Module1.vb:

   Imports System.IO
   Imports System.Text
   					

4. Fügen Sie folgenden Code an die Sub Main -Prozedur unter den vorhandenen Code:

   Dim objStreamWriter As StreamWriter
      Dim x As Long
       
      'Open the file.
      objStreamWriter = New StreamWriter("C:\Test2.txt", True, _
         Encoding.Unicode)
   
      'Write out the numbers 1 through 10 on the same line.
      For x = 1 To 10
        objStreamWriter.Write(x)
      Next x
       
      'Close the file.
      objStreamWriter.Close()
   					

5. Klicken Sie im Menü Debuggen auf Starten , zum Kompilieren und zum Ausführen der Anwendung.
   
   Dieser code erstellt eine Datei mit dem Namen Test2.txt auf Laufwerk c: Öffnen Test2.txt in einem Texteditor, der solche als Editor. Test2.txt enthält eine einzelne Textzeile:

   12345678910
   							

   Hinweis Wenn Sie den Code mehrmals ausführen, ist der "123456789" text auf der gleichen Zeile wiederholt.

Vollständige Codeauflistung

'Read a Text File
Imports System.IO
Module Module1

    Sub Main()
        Dim objStreamReader As StreamReader
        Dim strLine As String

        'Pass the file path and the file name to the StreamReader constructor.
        objStreamReader = New StreamReader("C:\Boot.ini")

        'Read the first line of text.
        strLine = objStreamReader.ReadLine

        'Continue to read until you reach the end of the file.
        Do While Not strLine Is Nothing

            'Write the line to the Console window.
            Console.WriteLine(strLine)

            'Read the next line.
            strLine = objStreamReader.ReadLine
        Loop

        'Close the file.
        objStreamReader.Close()

        Console.ReadLine()
    End Sub
End Module

'Write a Text File: Version 1
Imports System.IO
Module Module1

    Sub Main()
        Dim objStreamWriter As StreamWriter

        'Pass the file path and the file name to the StreamWriter constructor.
        objStreamWriter = New StreamWriter("C:\Text.txt")

        'Write a line of text.
        objStreamWriter.WriteLine("Hello World")

        'Write a second line of text.
        objStreamWriter.WriteLine("From the StreamWriter class")

        'Close the file.
        objStreamWriter.Close()

    End Sub
End Module

'Write a Text File: Version 2
Imports System.IO
Imports System.Text
Module Module1

    Sub Main()
        Dim objStreamWriter As StreamWriter
        Dim x As Long

        'Open the file.
        objStreamWriter = New StreamWriter("C:\Test2.txt", True, _
           Encoding.Unicode)

        'Write out the numbers 1 through 10 on the same line.
        For x = 1 To 10
            objStreamWriter.Write(x)
        Next x

        'Close the file.
        objStreamWriter.Close()
    End Sub

End Module
				

Problembehandlung

Zum Anfang | Ihr Feedback an uns