VB.NET 部分列含有双引号CSV每行数据分割

主要解决CSV字段数据部分列带有双引号的问题

具体代码如下：

    Public Function ChangeCsvSplitLine(ByVal strLine As String, ByVal iColNumber As Integer) As String()

        Dim strList() As String = strLine.Split(",")

        If strList.Length = iColNumber Then

            Return strList

        End If





        Dim i As Integer = 0

        Dim findSplitIndex As Integer = -1

        Dim index As Integer = 0

        Dim returnList(iColNumber) As String

        Dim strMerger As String = ""



        For i = 0 To strList.Length - 1

            If findSplitIndex = -1 Then

                If (strList(i)(0) = """" And strList(i)(strList(i).Length - 1) <> """") _

                   Or (strList(i).Length = 1 And strList(i) = """") Then

                    findSplitIndex = i

                Else

                    returnList(index) = strList(i)

                    index = index + 1

                End If

            Else

                If (strList(i)(0) <> """" And strList(i)(strList(i).Length - 1) = """") _

                   Or (strList(i).Length = 1 And strList(i) = """") Then

                    strMerger = ""

                    For findSplitIndex = findSplitIndex To i

                        strMerger = strMerger & strList(findSplitIndex) & ","

                    Next

                    strMerger = strMerger.Substring(0, strMerger.Length - 1)

                    returnList(index) = strMerger

                    index = index + 1

                    findSplitIndex = -1

                End If

            End If

        Next

        Return returnList

    End Function