複数の数字が書かれた文字列をsplitで分割したい

"230","60,000","12,800"
等の文字列があります。
これを
「230」と「60000」と「12800」に分けたいのですが
Solit(文字列,",")とすると
「230」「"60」「000"」「"12」「800"」
となってしまいます。
数字の個数や桁数はバラバラです。
うまく分ける方法に関してどうかご助言をいただけないでしょうか？
どうぞよろしくお願いいたします。

No.2 ベストアンサー 回答者： asobe 回答日時： 2006/08/16 15:29

まず先頭と最後のWQ(ダブルコーテーション)を削除して、「","」でSplit()すれば良いと思います。

Dim str as String
Dim result() as String

str = """230"",""60,000"",""12,800"""
str = Mid(str, 2, Len(str) - 2)
result = Split(str, """,""")

この回答へのお礼

あっ！、本当ですね。
つい、カンマだけに目がいって、全然気づきませんでした。
おかげさまで無事解決できそうです。
本当にありがとうございました。

お礼日時：2006/08/16 16:39

No.1 回答者： ackapapa 回答日時： 2006/08/16 15:29

ちょっと遠回りなやり方かと思いますが

パッと思いついたのはこんな感じです

Dim txt As String
Dim txt2() As String
Private Sub Form_Load()
txt = """123"",""123,45"",""123456,04"""


txt = Replace(txt, """,""", " ")
txt = Replace(txt, """", "")
Text1.Text = txt

txt2 = Split(txt, " ")
Label1.Caption = ""
For i = 0 To UBound(txt2)
Label1.Caption = Label1.Caption & txt2(i) & vbCrLf
Next i
End Sub

うまくreplaceとsplitを使えばもっとわかりやすくなるかと思います

この回答へのお礼

ご助言していただき、本当にありがとうございました。

お礼日時：2006/08/16 16:40