Ищете способ заполнения списка из массива String

Question

У меня проблема с заполнением ListView созданным мной. Все данные идут в один столбец вместо строк. Не могли бы вы помочь мне правильно заполнить его?

Dim finalas() As String = arrf.ToArray(GetType(System.String))
For Each element As String In finalas
    Dim item As New ListViewItem(element)
    ListView1.Items.Add(item)
Next

Answer 1

Я сам нашел решение, и если кому-то это нужно, то вы идете:

Sub readTextFile ()

    ' Create new StreamReader instance with Using block.
    Dim path As String = "D:\data.txt"

    Dim st() As String = File.ReadAllLines(path) 'read the file into array of 
    Dim p_1 As String = ""
    Dim p_2 As String = ""
    Dim arrl As Integer = 11


    For Each itm As String In st 'loop the array of string item by item
        Dim Arr() As String = itm.Split(New String() {" "}, StringSplitOptions.RemoveEmptyEntries) 'split the string
        Dim name() As String = itm.Split(New String() {"'"}, StringSplitOptions.RemoveEmptyEntries)

        ' Arr.Skip(1).ToArray -nenuskaito pirmojo
        ' Arr = Arr.Take(Arr.Length - 1).ToArray - nenuskaito paskutinio

        'galutinis array
        p_1 = Arr(1)
        p_2 = Arr(2)

        Dim finarr As New List(Of String)
        finarr.Add(p_1)
        finarr.Add(p_2)
        finarr.Add(name(1))
        For i As Integer = 4 To arrl
            finarr.Add(Arr(((Arr.Length - 1) - arrl) + i))
        Next

        'MsgBox(finarr(0) & finarr(1) & finarr(2) & finarr(3) & finarr(4) & finarr(5) & finarr(6) & finarr(7) & finarr(8) & finarr(9) & finarr(10))

        Dim items As New List(Of ListViewItem)
        Dim lvItem = New ListViewItem(finarr(0))
        For i = 1 To 10
            lvItem.SubItems.Add(finarr(i))
        Next i
        items.Add(lvItem)
            ListView1.Items.AddRange(items.ToArray)
        Next

        Return
End Sub