vb.net éditer un fichier basé sur des critères et le sauvegarder

Question

J'ai un fichier qui a des dates et des résultats de tests, écrit ligne par ligne. Je voudrais éditer le fichier de sorte que toute ligne qui n'a pas la date du jour soit supprimée et que le fichier soit sauvegardé (avec les lignes non désirées supprimées). L'aide sera grandement appréciée.

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

lignes de lecture:

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 

lignes d'écriture au nouveau fichier:

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