將文本與.txt分隔成列表視圖中的列（VB.net移動版）

Question

我想將每個文本分隔到VB.net自己的列中。

我該如何做到這一點？

每個主菜是分隔用 「|」 。我的代碼：

Private Sub MenuItem3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click 
    Dim folder As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) 
    Using sw As StreamWriter = File.AppendText("\My Expenses.txt") 

     sw.WriteLine(DateTimePicker.Text + Space(1) & "|" & Subject.Text + Space(4) & "|" & Category.Text + Space(5) & "|" & Amount.Text + Space(4) & "|" & Peyment.Text) 
     sw.Close() 

    End Using 
End Sub 

Answer 1

我沒有任何的移動應用程序在這個時刻做實驗，但我相信這樣的事情是你所追求的：

Private Sub MenuItem3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click 
    Using sw As StreamWriter = File.AppendText("\My Expenses.txt") 
    For Each item As ListViewItem in ListView1 
     Dim line As String = Nothing 
     For Each entry As String in item.SubItems 
     line.Append(entry & "|") 
     Next For 
     sw.WriteLine(line) 
    Next For 
    sw.Close() 
    End Using 
End Sub 

我可能誤會你是什麼試圖做，但我認爲你正在試圖獲得列條目。

更新：

現在你已經保存到一個文件中的設置，你將如何讓他們回來？

Private Sub PopulateListView() 
    ListView1.Items.Clear() 
    Using sr As StreamReader = File.OpenText("\My Expenses.txt") 
    While (-1 < sr.Peek()) 
     Dim line As String = sr.ReadLine() 
     Dim item As New ListViewItem(line.Split("|"c)) 
     ListView1.Items.Add(item) 
    End While 
    sr.Close() 
    End Using 
End Sub 

當然，您的代碼可能需要特殊處理，但是這涵蓋了基本的讀取和寫入操作。