Question

vb拆分字符串

将 210@240@ABC@ZHS123@三33@ssasa111112@
拆分成 210 240 ABC ZHS123 三33 ssasa111112
要求就是将@符合相隔的拆分开来

Answer 1

               Dim b$()
                a = "210@240@ABC@ZHS123@三33@ssasa111112@"
                b = Split(a, "@", -1, 1)
                For i = 1 To UBound(b)
                    print b(i - 1)
                Next

Answer 2

dim a() as string
dim i as integer
a = split("210@240@ABC@ZHS123@三33@ssasa111112@","@")
for i = 0 to ubound(a)
msgbox a(i)
next

Answer 3

拆分后字符串 = split("原字符串", "@")