SPLIT関数

質問

環境　VB6.0

　ＣＳＶデータをカンマで区切ってデータを取得して
　いるのですが、こういう処理はできるのでしょうか？
　例えば　データがダブルコーテーションでくるられて
　　　　　いる場合はカンマ（,）を無視するといった
　　　　　ことはできるのでしょうか？

DIM CSVDATA AS STRING
DIM XWDNDATA() AS STRING

CSVDATA = "1,2,"あいう,おえお",25"

XWDNData = Split(CSVDATA, ",")

XWDNData(0) = "1"
XWDNData(1) = "2"
XWDNData(2) = ""あいう"
XWDNData(3) = "おえお""
XWDNData(4) = "25"

XWDNData(2)とXWDNData(3)を一つのデータとしたい

こうしたいデータ
XWDNData(0) = "1"
XWDNData(1) = "2"
XWDNData(2) = "あいうおえお"
XWDNData(3) = "25"

回答No.6

taisuke555 · ベストアンサー

３度目のすいませんです。
また、間違えてました。
（もっと良く考えてから回答しないとだめですね。）
余計な空白が入ってしまいました。

'１度配列を結合し再度[,]で区切る
XWDNDATA = Split(Join(XWDNDATA, ""), ",")

に変更してください。

もう変更は無いと思います。（無い事を祈ってます）

お礼

taisuke555さんありがとうございました。すみませんたくさんソースを書いてくださって。taisuke555さんのおかげでできました。すっげーうれしいです。

回答No.5

taisuke555

さらにすいません。
それなら

Private Sub Test()
　　Dim CSVDATA As String
　　Dim XWDNDATA() As String
　　Dim i　　　　　As Integer

　　Dim Dat　　　　As String　'デバッグ用

　　CSVDATA = "1,2,""あいう,おえお"",25"

　　'データを["]で区切る
　　XWDNDATA = Split(CSVDATA, """")

　　'奇数番目の配列の[,]を削除する
　　For i = 1 To UBound(XWDNDATA) Step 2
　　　　XWDNDATA(i) = Replace(XWDNDATA(i), ",", "")
　　Next i
　　'１度配列を結合し再度[,]で区切る
　　XWDNDATA = Split(Join(XWDNDATA), ",")

　　'デバッグ用
　　For i = 0 To UBound(XWDNDATA)
　　　　Dat = Dat & i & "=" & XWDNDATA(i) & Chr(13)
　　Next i

　　MsgBox Dat
End Sub

でいいですね。（これなら絶対にでない文字[@]は必要ないです。）

回答No.4

taisuke555

すいません。
「あいう,おえお」→「あいうおえお」
にしたいのでしたね。

　　'偶数番目の配列の[,]を[@]に置換する
　　'奇数番目の配列の[,]を削除する
　　For i = 0 To UBound(XWDNDATA)
　　　　If (i Mod 2 = 0) Then
　　　　　　XWDNDATA(i) = Replace(XWDNDATA(i), ",", "@")
　　　　Else
　　　　　　XWDNDATA(i) = Replace(XWDNDATA(i), ",", "")
　　　　End If
　　Next i
に訂正してください。

回答No.3

taisuke555

こんな方法はいかがでしょう？

Private Sub Test()
　　Dim CSVDATA As String
　　Dim XWDNDATA() As String
　　Dim i　　　　　As Integer

　　Dim Dat　　　　As String　'デバッグ用

　　CSVDATA = "1,2,""あいう,おえお"",25"

　　'データを["]で区切る
　　XWDNDATA = Split(CSVDATA, """")

　　'偶数番目の配列の[,]を[@]に置換する
　　For i = 0 To UBound(XWDNDATA) Step 2
　　　　XWDNDATA(i) = Replace(XWDNDATA(i), ",", "@")
　　Next i
　　'１度配列を結合し再度[@]で区切る
　　XWDNDATA = Split(Join(XWDNDATA), "@")

　　'デバッグ用
　　For i = 0 To UBound(XWDNDATA)
　　　　Dat = Dat & i & "=" & XWDNDATA(i) & Chr(13)
　　Next i

　　MsgBox Dat
End Sub

[,]を[@]に置換していますが、
文字列中に絶対に出てこない文字ならば[#]でも[|]でも何でもいいです。
ただ、絶対に出てこない文字が無ければ無理ですね。

回答No.2

imogasi

質問例しかテストしていませんのでバグがあるかもしれませんが、興味があれば改良してください。「，」から、「，」までに「”」があると次ぎの「”」までを切り出しています。
Sub test03()
c = "1,2,""あいう,おえお"",25"
s = 1
j1:
p = InStr(s, c, ",")
If p = 0 Then
b = Mid(c, s, Len(c) + 1 - s)
Else
b = Mid(c, s, p - s)
End If
p1 = InStr(1, b, """")
If p1 = 0 Then
s = p + 1
Else
p2 = InStr(p + 1, c, """")
b = Mid(c, s, p2 + 1 - s)
s = p2 + 2
End If
MsgBox b
If p <> 0 Then GoTo j1
End Sub

回答No.1

noname#4564

正規表現を使えば簡単です。

参考URL：

http://fukkey.dyndns.org/pins/vb/020425/35943.html