split这个函数如何用？

Question

txt="10\11\12\13\14\15\16\17\18\19"
我想得到10,11,12……，等txt中的数字部分。如何做。并分别用msgbox显示一下。

Answer 1

Dim a$()
    a() = Split(Text1, "\")
    For i = LBound(a) To UBound(a)
        MsgBox "a(" & i & ")=" & Val(a(i))
    Next i

Answer 2

Dim a$()
    txt = "10\11\12\13\14\15\16\17\18\19"
    a() = Split(txt, "\")
    For i = LBound(a) To UBound(a)
        MsgBox "a(" & i & ")=" + a(i)
    Next i

Answer 3

就像上面说的
Split是用指定的分隔符分割指定的字符串的