[?]Array Problem (VB.NET 2012)

[coladose]

Hallohallöchen,

Da ich gerade mega auf dem Schlauch stehe wollte ich mal fragen, ob mir einer von euch weiterhelfen kann.

Folgendes Problem:


Ich lese eine eine verschlüsselte .csv Datei ein, entschlüssel sie das folgender Syntax entsteht.

spalte1;spalte2;spalte3;spalte4
spalte1;spalte2;spalte3;spalte4
spalte1;spalte2;spalte3;spalte4

Mein nächster Schritt ist der, der jede Zeile einzeln in ein 1-dimensionales Array packt.

PHP Code:

Dim d_in As String = "spalte1;spalte2;spalte3;spalte4
                             spalte1a;spalte2a;spalte3a;spalte4a
                             spalte1a;spalte2a;spalte3a;spalte4a"
Dim in_arr As String = d_in.Split(vbCrlf) 


Nun will ich natürlich jede Zelle einzeln.

PHP Code:

For i As Integer = 0 to in_arr.Count -1

Dim zeile_txt As String = in_arr(i)
Dim zelle_txt As String = zeile_txt.Split(";")

Next 


Nun mein nächster Schritt in dem ich jede ausgelesene Zelle in mein Listview schreiben. (Ich erweitere obigen Code)

PHP Code:

For i As Integer = 0 to in_arr.Count -1

Dim zeile_txt As String = in_arr(i)
Dim zelle_txt As String = zeile_txt.Split(";")

Dim v_str(3) As String
Dim tmp_lvi As ListViewItem

v_str(0) = zelle_txt(0)
v_str(1) = zelle_txt(1)
v_str(2) = zelle_txt(2)
v_str(3) = zelle_txt(3)

tmp_lvi = New ListViewItem(v_str)
MeinListView.Items.Add(tmp_lvi)
Next 


Doch da ist das Üroblem! Er meint stets, dass alles was den Index von 0 bei dem "zelle_txt" Array überschreitet, wäre außerhalb. Selbst nach dem erfolgreichen Check mit

PHP Code:

zelle_txt.count 


welcher uns 4 zurückgibt.
Ich bin ratlos.

Ich hoffe ich habe alles gut erklärt.

[Kraizy​]

PHP Code:

with new streamreader(..)
dim zeile as string

do
zeile = .readline

if zeile = "" then exit do

dim itm as listviewitem = listview.items.add(zeile.split(";")(0))
itm.subitems.add(zeile.split(";")(1))
itm.subitems.add(zeile.split(";")(2))
itm.subitems.add(zeile.split(";")(3))
loop
.close
end with 


kp ob ich dich jz richtig verstanden habe, wenn nicht dann sry..btw bin grad am handy von daher garantiere ich nicht dass der code fehlerfrei ist

[coladose]

Herzlichen Dank.
Allerdings habe ich immer noch keine Ahnung, warum mein Array nicht funktioniert...

[Deathy]

Dim v_str([COLOR="Red"][B]3[/B][/COLOR]) As String
Dim tmp_lvi As ListViewItem

v_str(0) = zelle_txt(0)
v_str(1) = zelle_txt(1)
v_str(2) = zelle_txt(2)
v_str(3) = zelle_txt(3)

Bei der deklaration des Arrays muss eine 4 rein.

[Kraizy​]

Originally Posted by Deathy

Bei der deklaration des Arrays muss eine 4 rein.

Hö?

PHP Code:

dim s(3) as string
s(0) = "1"
s(1) = "2"
s(2) = "3"
s(3) = "4" 


Originally Posted by coladose

Allerdings habe ich immer noch keine Ahnung, warum mein Array nicht funktioniert...

Also bei mir klappt es auch so..

[qkuh]

Originally Posted by Deathy

Dim v_str([COLOR="Red"][B]3[/B][/COLOR]) As String
Dim tmp_lvi As ListViewItem

v_str(0) = zelle_txt(0)
v_str(1) = zelle_txt(1)
v_str(2) = zelle_txt(2)
v_str(3) = zelle_txt(3)

Bei der deklaration des Arrays muss eine 4 rein.

Nicht bei VB.Net. Bei C# allerdings schon.

[coladose]

Originally Posted by Kraizy​

Hö?
Also bei mir klappt es auch so..

Ouh man. Dann spinnt mein Compiler. Danke auf jeden Fall!