listview multi columns

[jan68]

Wie help mij uit de problemen.
ik heb een listview nodig ,maar krijgt de tweede en derde column niet ingevuld met data
de eerste Column lukte wel maar dan had ik geen nummer reeks daar
heb al van alles geprobeerd met divr fout meldingen tot gevolg maar wetend dat we er dicht bij een oplossing zijn geweest ,maar geen resultaat
mij hoop is nu op het forum gericht

Mijn code tot dusver

Imports System.IO
Imports System.Data
Imports Microsoft.VisualBasic.FileIO
Public Class Form1

    Private Sub BtnGetItems_click(sender As System.Object, e As System.EventArgs) Handles BtnGetItems.Click
        GetItems("D:\visual studio 2010\COOR\E180.COO")
    End Sub

    Private Sub GetItems(filenaam As String)

        Listview1.View = View.Details
        Listview1.Columns.Add("Nr", 30)
        Listview1.Columns.Add("X Coordinaten", 100)
        Listview1.Columns.Add("Y Coordinaten", 100)


        Dim parser As New TextFieldParser(filenaam)
        Dim naam As String
        Dim NI As Integer
        Dim XI() As Double
        Dim YI() As Double
        naam = parser.ReadLine.ToString
        NI = CInt(parser.ReadLine)

        ReDim XI(NI)
        ReDim YI(NI)
    
        For I = 1 To NI
            Dim teststring As String = parser.ReadLine.ToString
            Dim TestArray() As String = Split(teststring)
            Dim LastNonEmpty As Integer = -1
            For j = 0 To TestArray.Length - 1
                If TestArray(j) <> "" Then
                    LastNonEmpty += 1
                    TestArray(LastNonEmpty) = TestArray(j)
                End If
            Next
    
            Listview1.Items.Add(New ListViewItem(CInt(I)))
            listview1.

        Next I
    End Sub
End Class

input uit het file : zijn getallen reeds met een spatie er tussen
E18.COO
61
1.000000 0.000000
0.986553 0.000080
0.964310 0.000156 enz .enz. tot 61 rijen aan toe

 

[jan68]

Gevonden: een werkende oplossing nl.

  For I = 1 To NI
            Dim teststring As String = parser.ReadLine.ToString
            Dim TestArray() As String = Split(teststring)
            Dim LastNonEmpty As Integer = -1
            For j = 0 To TestArray.Length - 1
                If TestArray(j) <> "" Then
                    LastNonEmpty += 1
                    TestArray(LastNonEmpty) = TestArray(j)
                End If
            next j
            Listview1.Items.Add(CInt(I)).SubItems.AddRange(New String() {TestArray(0), TestArray(1)})
  next 1

groeten john