主要解决CSV字段数据带有双引号的问题
具体代码如下：
view plaincopy to clipboardprint?
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
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
本文作者:林自创的专栏 来源:http://blog.csdn.net/linaren/
CIO之家 www.ciozj.com 微信公众号:imciow