Split Visual Basic 2008

[Ivogual41]

Hallo liebe Programmierer,
mein Problem ist das Verwenden vom Split mit Visual Basic 2008.
Wenn ich folgendes Programm ausführe, bekomme ich genau was ich brauche:
ich lese aus der Datei ein String, in dem alle Komponenten mit das Zeichen @ getrennt sind

-----------------------------------------------------------------------------------------------
Dim enc As System.Text.Encoding = System.Text.Encoding.GetEncoding(1252) 'ANSI

Dim fr As System.IO.StreamReader = My.Computer.FileSystem.OpenTextFileReader("c:\reze pte\KR.txt", enc)
Dim strLine As String = fr.ReadLine()
Dim Schnitt() As String
Schnitt = Split(strLine, "@")

Me.ListBox1.Items.Add(Schnitt(2))
-----------------------------------------------------------------------------------------------
zwar den dritten Komponent vom gelesen String.
ABER
WENN ICH DASSELBE IN SCHLEIFE MACHE:
-----------------------------------------------------------------------------------------------
Dim enc As System.Text.Encoding = System.Text.Encoding.GetEncoding(1252) 'ANSI
Dim fr As System.IO.StreamReader = My.Computer.FileSystem.OpenTextFileReader("c:\reze pte\KR.txt", enc)
Do
Dim strLine As String = fr.ReadLine()
Dim Schnitt() As String
Schnitt = Split(strLine, "@")
Me.ListBox1.Items.Add(Schnitt(2))
Loop Until fr.EndOfStream = True
-----------------------------------------------------------------------------------------------
DANN BEKOMME ICH BEI DER ZEILE Me.ListBox1.Items.Add(Schnitt(2))

DIE FEHLERMELDUNG "Der Index war außerhalb des Arraybereichs."

Warum???
(im gelesen String gibt es 19 Mal das Zeichen @)

Bitte, bitte könnte jemand mir helfen?

Vielen Dank im Voraus
mfG

[cb4866]

Hallo,

vielleicht solltest du das nächstemal ein anderes Forum für deine Anfrage wählen -> VB.Net zum Beispiel

Dim enc As System.Text.Encoding = System.Text.Encoding.GetEncoding(1252) 'ANSI
Dim fr As System.IO.StreamReader = My.Computer.FileSystem.OpenTextFileReader("E:\Dokumente und Einstellungen\Besitzer\Eigene Dateien\SuperStar.txt", enc)
Dim strLine AsString
Dim Schnitt() AsString
Do
strLine = fr.ReadLine()
Schnitt = Split(strLine, "@")
'Die 1. Spalte darstellen:
Me.ListBox1.Items.Add(Schnitt(0))
LoopUntil fr.EndOfStream = True

auf diese Art wird dir dein Text spaltenweise in der Listbox dargestellt


Gruß
Christian