Takenoff Labs

CSVの1行をデリミタで分割して配列にする処理はよくやると思いますが、CSVの書式に則ってちゃんと分割しようとすると、ちょっと面倒です。

ということで、今回はCSV分割用の関数を書いてみました。

※ この関数は自作関数の AryPush、AryIsUninit を使用しています。こちらのページから取得してください。

ソースコード

 
Public Function SplitCSV(Byval strCsv As String, Byval strDelim As String, _
Byval strQuote As String) As Variant
	Dim strRet() As String
	Dim strBuf   As String
	Dim bln1st   As Boolean
	Dim blnQuote As Boolean
	
	strBuf = ""
	bln1st = True
	Do Until strCsv = ""
		If Left(strCsv, 1) = strQuote Then
			If bln1st = True Then
				blnQuote = True
				bln1st   = False
			Else
				If blnQuote = True Then
					If Left(strCsv, 2) = strQuote & strQuote Then
						strBuf = strBuf & strQuote
						strCsv = Mid(strCsv, 2)
					Else
						blnQuote = False
					End If
				Else
					strBuf = strBuf & strQuote
				End If
			End If
		Elseif Left(strCsv, 1) = strDelim Then
			If blnQuote = True Then
				strBuf = strBuf & strDelim
			Else
				Call AryPush(strRet, strBuf)
				strBuf = ""
				bln1st = True
			End If
		Else
			strBuf = strBuf & Left(strCsv, 1)
			bln1st = False
		End If
		strCsv = Mid(strCsv, 2)
	Loop
	
	If strBuf <> "" Then
		Call AryPush(strRet, strBuf)
	End If
	
	If AryIsUninit(strRet) = True Then
		Call AryPush(strRet, "")
	End If
	
	SplitCSV = strRet
End Function

例文

 
v = SplitCSV({"aaa","bbb,ccc","dd""ddd"}, {,}, {"})
↓
'vの値
aaa
bbb,ccc
dd"ddd

※ 書き方がスマートじゃないのは百も承知ですが、書き直すの面倒くさかったので（爆

• 検証バージョン: R6.0.4

(No Ratings Yet)

読み込み中...

トラックバックURL :