VBA – .NET – Fórum – Programujte.com

Dobrý deň!!

Mám tento kód, ale stále mi vypisuje pri uložený "index je mimo hranice poľa" dá sa stým niečo robiť? Ďakujem!!!

Public Class Form1

Private TextFile1 As String = Application.StartupPath & "\TextFile1.txt"

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

Dialog1.ShowDialog(Me)

End Sub

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click

ListView1.Items.Clear()

Dim myCoolFileLines() As String = IO.File.ReadAllLines(TextFile1)

For Each Line As String In myCoolFileLines

Dim lineArrary() As String = Line.Split("#")

Dim newItem As New ListViewItem(lineArrary(0))

newItem.SubItems.Add(lineArrary(1))

newItem.SubItems.Add(lineArrary(2))

ListView1.Items.Add(newItem)

Next

End Sub

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

ListView1.Items.Clear()

Dim myCoolFileLines() As String = IO.File.ReadAllLines(TextFile1)

For Each Line As String In myCoolFileLines

Dim lineArrary() As String = Line.Split("#")

Dim newItem As New ListViewItem(lineArrary(0))

newItem.SubItems.Add(lineArrary(1))

newItem.SubItems.Add(lineArrary(2))

ListView1.Items.Add(newItem)

Next

End Sub

No, můžeš ten soubor zformátovat tak, aby odpovídal očekávání, nebo v kódu třeba testovat, jestli to pole obsahuje požadované prvky... Na to se musíš ptát? To nevidíš, co v těch proměnných je?

Nekontrolujes pocet prvku v lineArray a natvrdo pracujes s prvky s indexy 0, 1, 2. V nekterym radku souboru vrati Line.Split("#") mene nez 3 prvky a v tom pripade "index je mimo hranice poľa".

Robit sa s tym nieco urcite da. Viz vyse.

BTW proc tam mas 2 x uplne stejny kod?