Zum Inhalt springen

[Vb.NET] Streamreader ließt letzte Zeile nichtmehr


Gateway_man

Empfohlene Beiträge

Guten Morgen,

folgende Problemstellung:

Ich habe eine Klasse, welche ihre Settings aus mehreren *.lst files ließt.

Gestern Abend war auch noch alles in Ordnung. Als ich gerade eben weitere Einträge in eine der *.lst Dateien tätigte, ließt das Programm immer nur bis zur Vorletzten Zeile. Ich kann mir das Phänomen nicht erklären.

Das ist die Funktion welche für das auslesen zuständig ist:


 Private Function loadExclMarks() As DataTable()

        Dim dt(2) As DataTable

        dt(0) = New DataTable

        dt(0).TableName = "DBS"

        dt(0).Columns.Add("pr32")

        dt(0).Columns.Add("Usage")

        dt(1) = New DataTable

        dt(1).TableName = "ExcelMarks"

        dt(1).Columns.Add("pr32")

        dt(1).Columns.Add("Usage")

        dt(2) = New DataTable

        dt(2).TableName = "TableSettings"

        dt(2).Columns.Add("pr32")

        dt(2).Columns.Add("Usage")

        Dim tmpArray() As String

        Dim hbool As Boolean = False

        Dim fbool As Boolean = False

        Dim tbool As Boolean = False


        Dim wr As New StreamReader(optfilename, False)

        Try

            Do Until wr.EndOfStream = True

                Dim line As String = wr.ReadLine()

                If line.Contains("***") Then

                    If line.Contains("DBS") Then

                        hbool = True

                        fbool = False

                        tbool = False

                    ElseIf line.Contains("ExcelMarks") Then

                        hbool = False

                        fbool = True

                        tbool = False

                    End If

                ElseIf line.Contains("OtherExcelSettingValues") Then

                    hbool = False

                    fbool = False

                    tbool = True

                Else

                    If hbool Then

                        tmpArray = line.Split("|")

                        If (tmpArray.Length = 2 And tmpArray(0).StartsWith("#") = False) Then

                            dt(0).Rows.Add(tmpArray)

                        End If

                    ElseIf fbool Then

                        tmpArray = line.Split("|")

                        If (tmpArray.Length = 2 And tmpArray(0).StartsWith("#") = False) Then

                            dt(1).Rows.Add(tmpArray)

                        End If

                    ElseIf tbool Then

                        tmpArray = line.Split("|")

                    If (tmpArray.Length = 2 And tmpArray(0).StartsWith("#") = False) Then

                            dt(2).Rows.Add(tmpArray)

                        End If

                    End If

                End If

            Loop

            wr.Close()

        Catch

            wr.Close()

        End Try

        Return dt

    End Function

Und hier ist der zugehörige File Content:

#RegionLST

#Description: Intern programm description (do not change)|DBS caption or excel caption

***DBS

Menge|Menge

Beschreibung|Beschreibung

Summe|Summe

Einzelpreis|Einzelpreis

SteuerGesamt|SteuerGesamt

AutoFormat|#.##0,00 €;-#.##0,00 €

Zwischensumme|Zwischensumme

***ExcelMarks

<<Ocdate>>|<<Ocdate>>

<<RID>>|<<RID>>

<<Otable>>|<<Otable>>

***OtherExcelSettingValues

test|test

Falls jemandem etwas auffallen sollte, wäre ich wie immer sehr erfreut :D.

Lg

Gateway

Bearbeitet von Gateway_man
Link zu diesem Kommentar
Auf anderen Seiten teilen

Dein Kommentar

Du kannst jetzt schreiben und Dich später registrieren. Wenn Du ein Konto hast, melde Dich jetzt an, um unter Deinem Benutzernamen zu schreiben.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung wiederherstellen

  Nur 75 Emojis sind erlaubt.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

Fachinformatiker.de, 2024 by SE Internet Services

fidelogo_small.png

Schicke uns eine Nachricht!

Fachinformatiker.de ist die größte IT-Community
rund um Ausbildung, Job, Weiterbildung für IT-Fachkräfte.

Fachinformatiker.de App

Download on the App Store
Get it on Google Play

Kontakt

Hier werben?
Oder sende eine E-Mail an

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte

×
×
  • Neu erstellen...