StreamReaderを使用した別のストリングライン| VB.net

Question

私自身のチェックリストアプリを作ろうとしています。私は各チェックリスト項目を表示するためにListViewオブジェクトを使用しています。オブジェクトに個々のアイテムを追加できます。 ListViewの項目を終了時に保存して起動時に読み込む方法がわかりません。 （私はMy.Settingsを使ってみましたが、うまくいきませんでした）

私の解決策は、.txtファイルを使ってデータをインポート/エクスポートするシステムでした。彼らはこのようにフォーマットされています

アイテム1

を

アイテム2

ITEM3

私はそれらをインポート

、そのリストビュー内の1つの長いアイテムとして全番組。私は以下のコードを使用しています。

Private Sub ChooseFileButton_Click(sender As Object, e As EventArgs) Handles ChooseFileButton.Click 
    If ImportFileDialog.ShowDialog = DialogResult.OK Then 
     Dim fileReader As String 
     fileReader = 
     My.Computer.FileSystem.ReadAllText(ImportFileDialog.FileName) 
     ImportFileDialog.RestoreDirectory = True 

     ChecklistObject.Items.Add(fileReader) 
    End If 
End Sub 

個々の項目をテキストファイルの各行に書き込む方法を知っている人は、素晴らしいことです。

EDIT：エクスポートも機能しません。以下のコードを使用します。

Private Sub ExportButton_Click(sender As Object, e As EventArgs) Handles ExportButton.Click 
    ExportFileDialog.Filter = "Keklist Save|*.kek" 
    If ExportFileDialog.ShowDialog = DialogResult.OK _ 
    Then 
     ChecklistObject.Items.Item() 
    End If 
End Sub 

Answer 1

例のコードでは、1つの項目のみをリストビューに追加するので、1行だけが表示されます。

System.IO.File.ReadAllLinesを使用すると、ファイルのすべての行を文字列配列に読み込むことができます。

Private Sub ChooseFileButton_Click(sender As Object, e As EventArgs) Handles ChooseFileButton.Click 
    If ImportFileDialog.ShowDialog = DialogResult.OK Then 
     Dim path As String = ImportFileDialog.FileName 
     Dim lines() As String = File.ReadAllLines(path) 
     ImportFileDialog.RestoreDirectory = True 
     For Each line in lines 
      ChecklistObject.Items.Add(line) 
     Next 
    End If 
End Sub