将CSV导入到VB.Net时指定UTF8编码

Imports System.IO
Imports System.Text

Module Module1
    Sub Main()
        Dim filePath As String = "path/to/your/csv/file.csv"
        Dim encoding As Encoding = Encoding.UTF8

        Using reader As New StreamReader(filePath, encoding)
            Dim line As String
            While (InlineAssignHelper(line, reader.ReadLine())) IsNot Nothing
                ' 处理CSV文件中的每一行数据
                Dim values As String() = line.Split(","c)
                For Each value As String In values
                    ' 处理每个数据字段
                    Console.WriteLine(value)
                Next
            End While
        End Using
    End Sub

    Private Function InlineAssignHelper(Of T)(ByRef target As T, ByVal value As T) As T
        target = value
        Return value
    End Function
End Module