vbscript - 値が二重引用符で囲まれている場合に無視されるコンマを分割する方法

Question

値が二重引用符で囲まれている場合に無視されるコンマを分割する方法。

利用可能なデータ：

3545、Albert、 "Mathias Albert、Lars-Erik Cederman and Alexander Wendt（eds）"、2010

配列に分割する必要があります：

arr(0) = "3545"
arr(1) = "Mathias Albert, Lars-Erik Cederman and Alexander Wendt (eds)"
arr(2) = "2010"

Answer 1

長期的には ADO Text Driver を使用するのがおそらく最善の方法ですが、特定の/カスタム RegExp を使用して、すばやく汚い「一度だけ使用する」スクリプトを作成できます。

>> Set r = New RegExp
>> r.Pattern = "^([^,]+),([^,]+),""([^""]+)"",(.+)$"
>> s = "3545,Albert,""Mathias Albert, Lars-Erik Cederman and Alexander Wendt (eds)"",2010"
>> Set m = r.Execute(s)
>> ReDim a(3)
>> For i = 0 To UBound(a)
>>     a(i) = m(0).SubMatches(i)
>> Next
>> WScript.Echo Join(a, vbCrLf)
>>
3545
Albert
Mathias Albert, Lars-Erik Cederman and Alexander Wendt (eds)
2010
>>

空のフィールドに対処するには、.Pattern をさらにいじる必要があります。

必要に応じSplit()て、次のようにします。

>> s = "3545,Albert,""Mathias Albert, Lars-Erik Cederman and Alexander Wendt (eds)"",2010"
>> ReDim a(3)
>> q = Split(s, """")
>> WScript.Echo Join(q, vbCrLf)
>>
3545,Albert,
Mathias Albert, Lars-Erik Cederman and Alexander Wendt (eds)
,2010
>> c = Split(q(0), ",")
>> WScript.Echo Join(c, vbCrLf)
>>
3545
Albert

>> a(0) = c(0)
>> a(1) = c(1)
>> a(2) = q(1)
>> a(3) = Mid(q(2), 2)
>> WScript.Echo Join(a, vbCrLf)
>>
3545
Albert
Mathias Albert, Lars-Erik Cederman and Alexander Wendt (eds)
2010
>>

始める必要があります。