nagita
Goto Top

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.

Content-Key: 665941

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

Printed on: July 21, 2024 at 01:07 o'clock

Mitglied: 148121
148121 Apr 20, 2021 updated at 13:22:27 (UTC)
Goto Top
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.
Member: nagita
nagita Apr 20, 2021 at 13:59:23 (UTC)
Goto Top
Danke schön.
Das wars.