求解VBS的split问题

a1=inputbox("")
a2=split(a1, ".")
msgbox a2(0)&":"&a2(1)&":"&a2(2)&":"&a2(3)&":"&a2(4)&a2(5)&a2(6)&a2(7)&a2(8)&a2(9)

不是每次否给他10种数据分割的，有时候输入1种，有时候输入2种，不定的

所以“下标越界”特别烦，麻烦了。。

a1=inputbox("")
msgbox  replace(a1,".",":")

这样就是你的结果吧

或

a1=inputbox("")
a2=split(a1, ".")

dim s

for i =0 to ubound(a2)

if i>0 then s =s & ":"

s = s & a2(i)

next

msgbox s

a1=inputbox("")
a2=split(a1, ".")
a1=""

for i=lbound(a2) to ubound(a2)

a1=a1&":"*a2(i)

next

msgbox a1

我没看懂你要想干什么，估计是想显示所有不确定的吧，

a1=inputbox("") b=inputbox ("输入你输入了几个","提示","5") a2=split(a1, ".") for i=0 to b-1

msgbox a2(i)

next

a1=inputbox("") a2=split(a1, ".") t="" for each x in a2  '遍历整个数组  t=t & x & ":" next t=left(t,len(t)-1)  '去掉最后多余的冒号 msgbox t

或这种

a1=inputbox("") a2=split(a1, ".") t="" for i=Lbound(a2) to Ubound(a2)    '从最小下标到最大下标  t=t & a2(i) & ":" next

t=left(t,len(t)-1)

msgbox t