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

質問

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

回答No.2

asobe · ベストアンサー

まず先頭と最後の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, """,""")

お礼

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

回答No.1

ackapapa

ちょっと遠回りなやり方かと思いますが
パッと思いついたのはこんな感じです

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を使えばもっとわかりやすくなるかと思います

お礼

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