我想通過所有的文本文件，循環和數據插入到ListView

Question

我想提出一個odering系統程序，在該程序中是訂單歷史記錄功能，其中一個文件夾中的所有文本文件是通過閱讀和插入進入ListView1。

，對於ListView，我有三列。

1. 日期 - 這是文本文件的名稱
2. 訂單 - 這是在文本文件中
3. 價格 - 這也是在文本文件中

示例 - 文本文件：「05/05/2017「<這就是第一欄。在文本文件中，項目和價格按'，'分隔。例如，「芯片，0.50」

下面是其工作的日期列和插入的項目和價格的第一行代碼，而不是等到的。

` Imports System.IO 
Public Class Form1 

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
     Dim path As String = "C:\Users\Example\Desktop\1\Tesst\Dates\" 
     For Each i As String In System.IO.Directory.GetFiles(path) 
      Dim a, b, c As String 
      a = System.IO.Path.GetFileNameWithoutExtension(i) 
      b = System.IO.Path.GetFileName(i) 
      c = System.IO.Path.GetFullPath(i) 
      Dim arrCheck(3) As String 
      ListView1.Items.Add(a) 
      For Each j As String In System.IO.Directory.GetFiles(path) 
       Dim text As String = IO.File.ReadAllText(j) 
       arrCheck = Split(text, ",") 
       ListView1.Items(0).SubItems.Add(arrCheck(0)) 
       ListView1.Items(0).SubItems.Add(arrCheck(1)) 
      Next 
     Next 
    End Sub 
End Class` 

如何使它適用於所有行，而不僅僅是第一行。

Picture Added

Answer 1

試試這個：

Imports System.IO 
Public Class Form1 

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
     Dim path As String = "C:\Users\Example\Desktop\1\Tesst\Dates\" 
     Dim arrCheck(3) As String 
     Dim lineNum As Integer = -1 
     For Each i As String In System.IO.Directory.GetFiles(path) 
      Dim a, b, c As String 
      a = System.IO.Path.GetFileNameWithoutExtension(i) 
      b = System.IO.Path.GetFileName(i) ' unused 
      c = System.IO.Path.GetFullPath(i) 
      For Each line As String In File.ReadLines(c) 
       lineNum = lineNum + 1 
       ListView1.Items.Add(a) 
       arrCheck = Split(line, ",") 
       ListView1.Items(lineNum).SubItems.Add(arrCheck(0)) 
       ListView1.Items(lineNum).SubItems.Add(arrCheck(1)) 
      Next 
     Next 
    End Sub 
End Class 

（喊出來@CallumDA）

Answer 2

試試這個

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    Dim path As String = "C:\Users\Example\Desktop\1\Tesst\Dates\" 
    For Each i As String In System.IO.Directory.GetFiles(path) 
     Dim a, b, c As String 
     a = System.IO.Path.GetFileNameWithoutExtension(i) 
     b = System.IO.Path.GetFileName(i) 
     c = System.IO.Path.GetFullPath(i) 
     Dim arrCheck() As String 

     Dim text As String = IO.File.ReadAllText(i) 
     arrCheck = Split(text, ",") 


     Dim NewItem as New ListViewItem(a) 
     NewItem.SubItems.Add(arrCheck(0)) 
     NewItem.SubItems.Add(arrCheck(1)) 

     ListView1.Add(NewItem) 

    Next 
End Sub