テキストを.txtからリストビュー（VB.netモバイル）の列に区切る

Question

各テキストをVB.netの独自の列に分けたいと思います。

どうすればよいですか？

各前菜がで区切られています "|" 。私のコード：私はあなたが何であるかを誤解している可能性があり

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 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 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 

もちろん、コードには特別な処理が必要な場合がありますが、これには基本的な読み書き操作が含まれます。