Daten aus txt Textdatei einlesen

Jonny98731 · 6. September 2017, 22:36

Heyho! Ich will aus einer TXT Textdatei jede zweite Zeile in eine Listbox schreiben doch bekomme einen Fehler. Erstmal der Code für den Button der das ganze auslöst:

VB.NET-Quellcode

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Dim Laden As IO.StreamReader
Laden = IO.File.OpenText("A:\Users\User\Desktop\Hörbücher.txt")
'Zeilen von der txt zählen
Dim liste() As String = Laden.ReadToEnd.Split(vbNewLine)
Dim Zeilentxt As Integer = (UBound(IO.File.ReadAllLines("A:\Users\Simon\Desktop\Hörbücher.txt")) + 1)
Label2.Text = Zeilentxt
Dim i As Integer
For i = 0 To Zeilentxt
i = i + 2
Dim test As String = Laden.ReadLine(i)
ListBox1.Items.Add(test)
Next
End Sub

Das Problem tritt in folgender Zeile auf:

VB.NET-Quellcode

Dim test As String = Laden.ReadLine(i)

Fehlermeldung -->Ein Ausnahmefehler des Typs "System.NullReferenceException" ist in Projekt.exe aufgetreten.
Zusätzliche Informationen: Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.

ErfinderDesRades · 6. September 2017, 23:09

kann nicht sein. nicht diese Fehlermeldung in dieser Zeile in dieser Methode.

asusdk · 6. September 2017, 23:21

VB.NET-Quellcode

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Dim Laden As New IO.StreamReader("A:\Users\User\Desktop\Hörbücher.txt")
Dim liste() As String = Laden.ReadToEnd.Split(vbNewLine)
For i As Integer = 0 To liste.Count - 1
If i Mod 2 <> 0 Then
ListBox1.Items.Add(liste(i))
End If
Next
End Sub

Jonny98731 · 6. September 2017, 23:30

@DerAsus - Danke das hat tatsächlich funktioniert!
Warum war meine Methode falsch?

lg

FormFollowsFunction · 6. September 2017, 23:32

Eher unwahrscheinlich, aber die Deklaration, steht nicht ausversehen in einer andern Klasse ?

asusdk · 6. September 2017, 23:39

@Jonny98731 - kann ich dir leider auch nicht genau sagen, (seit VB2017 nur noch so nen schrott-debugger hat...) ich hab einfach gelesen was du erreichen wolltest und es so geschrieben wie es mir einfiel, was genau jetzt falsch war kann dir sicher jemand von den Profis hier sagen

Greets

mrMo · 7. September 2017, 06:18

Dein Streamreader wurde nicht instanziiert @Jonny98731
-> Dim Laden As NEW IO.StreamReader

ErfinderDesRades · 7. September 2017, 06:24

Wie gesagt: kann nicht sein:

Jonny98731 schrieb:

Visual Basic-Quellcode

Laden = IO.File.OpenText("A:\Users\User\Desktop\Hörbücher.txt")

VaporiZed · 7. September 2017, 07:12

@EDR: richtig; da der StreamReader von IO.OpenText neu erstellt und zurückgegeben wird, ist ein New überflüssig.

VB.NET-Quellcode

For i = 0 To Zeilentxt 'schon hier ist die For-Obergrenze falsch, da zu hoch
i = i + 2
Dim test As String = Laden.ReadLine(i)
ListBox1.Items.Add(test)
Next

das ist der Murks. das i wird durch die Schleife inkrementiert und dann nochmal i = i + 2. Dann wird logischerweise irgendwann über das Dateiende hinausgelesen - oder es zumindest versucht - und DAS ergibt den aufgetretenden Fehler.

mrMo · 7. September 2017, 07:31

@VaporiZed habs bei mir mal Laufen lassen. Es knallt direkt beim ersten mal aufrufen von Laden.ReadLine(i). Der Index war innerhalb der Range. Jedoch hast du recht, dass es irgendwann knallt wegen dem Index. Jedoch nicht zwingend beim Ersten aufruf. Das OpenText einen StreamReader zurück gibt, wusste ich bis dato nicht. Hab ich erst nach meinem Post raus bekommen. Warum auch immer hier ein Fehler geworfen wird, letztendlich liegt es an der Falschen Verwendung.

Jonny98731 · 7. September 2017, 11:23

@asusdk @mrMo @ErfinderDesRades @VaporiZed
Erstmal danke für die vielen Antworten! - Ich habe das Problem gelöst.
Ich habe aber jetzt noch ein weiteres Problem: Ich lese die Zeilen jetzt aus der txt ein und die richtigen Zeilen werden angezeit. Jetzt will ich z.B. eine bestimmte Zeile wieder auslesen...

VB.NET-Quellcode

a = ListBox1.SelectedItem

wenn ich dann aber die Variable a testweise z.B. in einem Label anzeigen will, zeigt dieses gar nichts an.

Ich finde das insofern komisch, weil doch eigentlich alle Werte richtig eingelesen und in der Listbox angezeigt werden.

VaporiZed · 7. September 2017, 15:37

VB.NET-Quellcode

Dim a = ListBox1.SelectedItem.ToString
Label1.Text = a

oder gleich

VB.NET-Quellcode

Label1.Text = ListBox1.SelectedItem.ToString

So ginge es. Was hast Du davon abweichend probiert? Einfach auch mal einen Haltepunkt nach der Zeile a = ListBox1.SelectedItem setzen und schauen, was in a drinsteht.

Jonny98731 · 7. September 2017, 17:01

@VaporiZed Folgendes Problem: In den Zeilen der Listbox steht nicht der gewöhnliche Text aus der txt wie ich mit dem Debugger herausfand (Haltepunkt und Variable a ausgelesen), sondern es steht

"" & vbLf & "H:\Projekt01" statt einfach nur "H:\Projekt01"

Es wird also quasi eine Zeilenschaltung mit eingelesen aus der txt-Datei und vor dem Text eingeschoben...
Wie kann ich das am besten beheben?

Eierlein · 7. September 2017, 19:28

"" & vbLf & "H:\Projekt01" statt einfach nur "H:\Projekt01"

VB.NET-Quellcode

a = "" & vbLf & "H:\Projekt01"
a = a.TrimStart()

ErfinderDesRades · 7. September 2017, 23:55

Jonny98731 schrieb:

sondern es steht

"" & vbLf & "H:\Projekt01" statt einfach nur "H:\Projekt01"

Es wird also quasi eine Zeilenschaltung mit eingelesen aus der txt-Datei und vor dem Text eingeschoben...
Wie kann ich das am besten beheben?

indem du deinen Einlese-Code korrigierst.

mehr kann man nicht zu sagen - wir sehen deinen Einlese-Code ja nicht.

Daten aus txt Textdatei einlesen

Daten aus txt Textdatei einlesen

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Jonny98731 schrieb:

Visual Basic-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Jonny98731 schrieb:

Tags

Ähnliche Themen

7 Benutzer haben hier geschrieben