vb.net基準に基づいてファイルを編集して保存します

Question

私は、日付と結果を1行ずつ書き込んだファイルを持っています。私は今日の日付を持たない行が削除され、ファイルが保存されるようにファイルを編集したい（不要な行が削除されている）。ヘルプは非常に高く評価されます。

Dim rawlines() As String Dim outputlines As New List(Of String) rawlines = File.ReadAllLines("C:\users\user10\rslts.csv") For Each line As String In rawlines If line.Contains(today()) = True Then outputlines.Add(line) End If Next

Answer 1

読むライン：

Dim rawlines() As String 
    Dim outputlines As New List(Of String) 
    rawlines = File.ReadAllLines("C:\users\user10\rslts.csv") 
    For Each line As String In rawlines 
     If line.Contains(today()) = True Then 
      outputlines.Add(line) 
     End If 
    Next 

新しいファイルへの書き込み線：

Dim MyFile As StreamWriter 
    File.Create("c:\test\TheResults.csv").Close() 
    MyFile = File.AppendText("c:\test\TheResults.csv") 
    For Each Line As String In outputlines 
     MyFile.WriteLine(Line) 
    Next 
    MyFile.Close()