-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

4

1 回答 1

0

阅读行:

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()
于 2017-10-13T11:08:18.733 回答