[?]Array Problem (VB.NET 2012)

10/18/2012 22:48 coladose#1
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.

Code:
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.
10/18/2012 23:20 Kraizy​#2
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
10/19/2012 14:01 coladose#3
Herzlichen Dank.
Allerdings habe ich immer noch keine Ahnung, warum mein Array nicht funktioniert...
10/20/2012 15:26 Deathy#4
Code:
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.
10/20/2012 15:57 Kraizy​#5
Quote:
Originally Posted by Deathy View Post
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" 
Quote:
Originally Posted by coladose View Post
Allerdings habe ich immer noch keine Ahnung, warum mein Array nicht funktioniert...
[Only registered and activated users can see links. Click Here To Register...]

Also bei mir klappt es auch so..
10/21/2012 13:44 qkuh#6
Quote:
Originally Posted by Deathy View Post
Code:
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.
10/24/2012 22:41 coladose#7
Quote:
Originally Posted by Kraizy​ View Post
Hö?
Also bei mir klappt es auch so..
Ouh man. Dann spinnt mein Compiler. Danke auf jeden Fall!