Textdatei öffnen, bis zum Ende lesen und schließen

Hallo

ich versuche mich gerade mit Visual Studio und VB
Dabei versuche ich, eine Textdatei zum öffnen, dann Satz für Satz lesen zum Verarbeiten bis zum Ende
und als letztes die Datei wieder schließen.
Öffnen und Schließen geht.
Das Lesen auch, aber mit meinem Programm erkenne ich nicht das Ende der Datei beim Lesen und bekomme einen Fehler.
Hier mal der Source:

FilesystemObject2 = CreateObject("Scripting.FileSystemObject")  
readstream = FilesystemObject.OpenTextFile(Namedatei, 1)

Dim stringReader = readstream.ReadLine()
Do While Len(stringReader) > 2
    Dim fieldArray = stringReader.Split(“;”)
    Position = "" & fieldArray(2)  
    .
    .
    .
    stringReader = readstream.ReadLine() '****  
Loop

es wird bis zur letzten Zeile der Datei gelesen (lasse mir das anzeigen) und endet dann in der markierten Zeile()
Ich tippe auf ende der Datei. Weiß aber nicht, wie ich das abfragen soll.

Vielleicht kann ja jemand helfen
Ich nutze Folgendes:

Microsoft Visual Studio Community 2019
Version 16.9.4
VisualStudio.16.Release/16.9.4+31205.134
Microsoft .NET Framework
Version 4.8.04084

Installierte Version: Community

Visual Basic-Tools 3.9.0-6.21160.10+59eedc33d35754759994155ea2f4e1012a9951e3
Visual Basic-Komponenten, die in der IDE verwendet werden. Abhängig von Ihrem Projekttyp und den zugehörigen Einstellungen kann eine andere Version des Compilers verwendet werden.

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 665941

Url: https://administrator.de/contentid/665941

Ausgedruckt am: 26.11.2024 um 02:11 Uhr

2 Kommentare

Neuester Kommentar

Wieso mit COM Objekten in .NET rum hantieren wenn man doch die entsprechenden NET Objekte hat?!
Stichwort EOF ...

Try
    Dim fs As System.IO.StreamReader = My.Computer.FileSystem.OpenTextFileReader("D:\test.txt")  
    While Not fs.EndOfStream
        MsgBox(fs.ReadLine)
    End While
    fs.Close()
Catch ex As Exception
    msgbox("EXCEPTION: " & ex.Message, MsgBoxStyle.Critical)  
End Try

Gruß w.