說一個可行的方案。你可以用3個ListBox，當然其中兩個個可以設為不可見。先讀兩行加入到ListBox1中，接著讀兩行寫入ListBox2中，如此迴圈到檔案結束。按照你給的例子，現在Listbox1中的items是A,B,E,F；而ListBox2中的Items是C,D,G,H。接下來的你應該就明白了吧，把ListBox2中的Items和對應的ListBox1中Item加到ListBox3中。下面簡單寫下程式碼，主要是處理問題的思路，程式碼很簡單。 Private Sub DoList(ByVal filePath As String) Dim str As String Dim num Dim listCount Dim sr As StreamReader sr = New System.IO.StreamReader(filePath, System.Text.Encoding.Default) str = sr.ReadLine() Do While (sr.Peek >= 0) For num=0 To 2 str = sr.ReadLine() ListBox1.items.Add(str) Next num=0 For num=0 To 2 str = sr.ReadLine() ListBox2.items.Add(str) Next Loop sr.Close() For listCount=o To ListBox2.Items.Count-1 ListBox3..Items.Add(ListBox1.Items(listCount).ToString+
說一個可行的方案。你可以用3個ListBox，當然其中兩個個可以設為不可見。先讀兩行加入到ListBox1中，接著讀兩行寫入ListBox2中，如此迴圈到檔案結束。按照你給的例子，現在Listbox1中的items是A,B,E,F；而ListBox2中的Items是C,D,G,H。接下來的你應該就明白了吧，把ListBox2中的Items和對應的ListBox1中Item加到ListBox3中。下面簡單寫下程式碼，主要是處理問題的思路，程式碼很簡單。 Private Sub DoList(ByVal filePath As String) Dim str As String Dim num Dim listCount Dim sr As StreamReader sr = New System.IO.StreamReader(filePath, System.Text.Encoding.Default) str = sr.ReadLine() Do While (sr.Peek >= 0) For num=0 To 2 str = sr.ReadLine() ListBox1.items.Add(str) Next num=0 For num=0 To 2 str = sr.ReadLine() ListBox2.items.Add(str) Next Loop sr.Close() For listCount=o To ListBox2.Items.Count-1 ListBox3..Items.Add(ListBox1.Items(listCount).ToString+