文字列の分割について

質問

VB初心者です。
以下のように文字列を分割したいのですが

＜やりたいこと＞
MOJI＝"A","B","C,D,E"
↓
ARRAY(0)="A"
ARRAY(1)="B"
ARRAY(2)="C,D,E"

ARRAY=SPLIT(MOJI,",") ではだめですよね。
何か、簡単なやり方はありますか？

よろしくお願いします。

回答No.3

nda23

簡単なやり方はありません。
憶えておくと便利な正規表現を使います。

【理論】

(1)引用符で囲まれた部分を配列に記録
(2)引用符で囲まれた部分を非表示文字で置換
(3)カンマで分割
(4)分割した内容に置換文字があれば
　　配列に記録した元の文字列で復元

【プログラム例】

Function 分割(ByVal MOJI)
Dim 編集後文字列
Dim 正規表現
Dim 一致集合
Dim 要素
Dim 添字
Dim 分割配列
ReDim 引用符内部(0)

'正規表現オブジェクトをインスタンス化する
Set 正規表現 = CreateObject("VBScript.RegExp")
'置換対象を「全て」にする
正規表現.Global = True
'引用符で囲まれた文字列を示す正規表現パターン
正規表現.Pattern = """.*?"""
'上記に一致する集合を得る
Set 一致集合 = 正規表現.Execute(MOJI)
'引用符で囲まれた部分を記録する配列の要素数を初期化
添字 = -1
'一致集合から一つずつ取り出して配列に記録する
For Each 要素 In 一致集合
　　　　'要素数をインクリメントする
　　　　添字 = 添字 + 1
　　　　'配列の要素数を以前の内容を残して拡張する
　　　　ReDim Preserve 引用符内部(添字)
　　　　'拡張した要素に記録
　　　　引用符内部(添字) = 要素
Next
'引用符で囲まれた部分をBackSpaceで置換する
編集後文字列 = 正規表現.Replace(MOJI, vbBack)
'カンマで区切る
分割配列 = Split(編集後文字列, ",")
'検出/置換の範囲を「最初だけ」にする
正規表現.Global = False
'BackSpaceの正規表現パターン
正規表現.Pattern = "\x08"
'復元用添字を初期化する
添字 = -1
'分割した配列を一つずつ処理する
For 要素 = 0 To UBound(分割配列)
　　　　'データにBackSpaceが含まれる限りループする
　　　　Do While 正規表現.Test(分割配列(要素))
　　　　　　　　'復元用添字をインクリメントする
　　　　　　　　添字 = 添字 + 1
　　　　　　　　'BackSpaceを復元する
　　　　　　　　分割配列(要素) = _
　　　　　　　　　　　正規表現.Replace(分割配列(要素), _
　　　　　　　　　　　引用符内部(添字))
　　　　Loop
Next
'戻り値として配列を返す
分割 = 分割配列
End Function

【実行例】

Dim MOJI, 結果, 要素
MOJI = """A"",""B"",""C,D,E"""
結果 = 分割(MOJI)
Debug.Print MOJI
For Each 要素 In 結果
　　　　Debug.Print 要素
Next

尚、引用符内に引用符を置く可能性がある場合は
先にその部分（二重引用符とかエスケープ指定）を
置換しておいてから同じ操作を行います。
正規表現は以下を参照してください。
http://msdn.microsoft.com/ja-jp/library/cc392487.aspx

お礼

ありがとうございます。
試してみます。