スプリット、特定の分割をエスケープする

Question

複数の質問と回答を含むセルがあり、CSVのように編成されています。だから、これらの質問と回答をすべて得るには、カンマを使って簡単に分割して区切り記号で区切ってください。

残念ながら、コンマを小数点の区切り記号として使用するいくつかの値があります。それらの出来事のために分割をエスケープする方法はありますか？

私のデータは区切り記号として "、"を使用して分割できますが、そうでない場合は手動で小数点区切り文字をカンマからドットに置き換える以外にも解決策がありますか？

例：

"価格：0.09、数量：12、販売：はい" を分割使用（ "価格：0.09、数量：12は、販売：はい"、 ""）だろう収率：

価格：0
数量：12
販売：はい

Answer 1

一つの可能​​性は、この試験データが与えられると、分割後の配列をループしており、中に何:がありませんたびに文字列、このエントリを前のエントリに追加します。

これは次のようになりますし機能：例えば、セパレーターcaharacters :とパラメータに,を行うことにより、改善の余地があることを

Public Function CleanUpSeparator(celldata As String) As String() 
    Dim ret() As String 
    Dim tmp() As String 
    Dim i As Integer, j As Integer 

    tmp = Split(celldata, ",") 
    For i = 0 To UBound(tmp) 
     If InStr(1, tmp(i), ":") < 1 Then 
      ' Put this value on the previous line, and restore the comma 
      tmp(i - 1) = tmp(i - 1) & "," & tmp(i) 
      tmp(i) = "" 
     End If 
    Next i 

    j = 0 
    ReDim ret(j) 
    For i = 0 To UBound(tmp) 
     If tmp(i) <> "" Then 
      ret(j) = tmp(i) 
      j = j + 1 
      ReDim Preserve ret(j) 
     End If 
    Next i 

    ReDim Preserve ret(j - 1) 

    CleanUpSeparator = ret 
End Function 

注意。