使用Split函数:
Dim InStr as string
dim OutArr '我试下来,只有定义为自动变量,才能获得Split分割得到的数组。
InStr= "23,234,343,23422323,23323423"
OutArr=Split(InStr,",")
'这样就可以了。InStr中的字符串已经被分割到OutArr中了。此时OutArr已经被自动转化成一个字符型数组,你可以直接使用:OutArr(0),OutArr(1)等普通数组的操作来访问其内容。
dim ss() as string
dim i as integer
dim Result as string
ubound(split(str)) '返回数组的个数
ss=split(str)
for i=0 to ubound(split(str))
Result=result+ss(i)
next i
msgbox result 'result则是你要的结果