使用vb.net比较两种不同的csv

Imports System.IO

Module Module1
    Sub Main()
        ' 读取第一个CSV文件
        Dim file1 As String = "file1.csv"
        Dim lines1 As List(Of String) = ReadCSV(file1)

        ' 读取第二个CSV文件
        Dim file2 As String = "file2.csv"
        Dim lines2 As List(Of String) = ReadCSV(file2)

        ' 比较两个CSV文件
        Dim differences As List(Of String) = CompareCSV(lines1, lines2)

        ' 输出比较结果
        Dim resultFile As String = "result.csv"
        WriteCSV(resultFile, differences)
    End Sub

    ' 读取CSV文件
    Function ReadCSV(ByVal filePath As String) As List(Of String)
        Dim lines As New List(Of String)()
        Using reader As New StreamReader(filePath)
            While Not reader.EndOfStream
                Dim line As String = reader.ReadLine()
                lines.Add(line)
            End While
        End Using
        Return lines
    End Function

    ' 比较两个CSV文件
    Function CompareCSV(ByVal lines1 As List(Of String), ByVal lines2 As List(Of String)) As List(Of String)
        Dim differences As New List(Of String)()
        For i As Integer = 0 To lines1.Count - 1
            If i < lines2.Count Then
                If lines1(i) <> lines2(i) Then
                    differences.Add("Line " & (i + 1) & " is different.")
                End If
            Else
                differences.Add("Line " & (i + 1) & " does not exist in the second file.")
            End If
        Next
        Return differences
    End Function

    ' 输出CSV文件
    Sub WriteCSV(ByVal filePath As String, ByVal lines As List(Of String))
        Using writer As New StreamWriter(filePath)
            For Each line As String In lines
                writer.WriteLine(line)
            Next
        End Using
    End Sub
End Module