CSV変換ファンクション
Private Function getFields(ByVal index As Long) As String()
Dim Fields() As String
Dim Field As String
Dim i As Long
Fields = Split(LineDatas(index), ",")
For i = 0 To Fields.Length() - 1
Field = Fields(i)
' 両端にダブルクォート
If Field.Length = 0 Then
Else
If Field.Chars(0) = """" Then
If Field.Chars(Field.Length() - 1) = """" Then
Field = Field.Substring(1, Field.Length() - 2)
End If
End If
' 項目のダブルクォート2個は1個へ置き換え
Field = Field.Replace("""""", """")
End If
Fields(i) = Field
Next
Return Fields
End Function