请各位高手帮忙！比如有这样的一组数据：2005  12  31  10  0  0.2   15  80。数字之间有多个空格（只有一个空格的会用），怎么把这些数据一个一个取出来。

先转成字符串数组，然后把长度大于０的字符串转成数字再保存至数字类型的数组

这个是空格 还是 tab呢?

dim a()
a=split (s)

dim A() as string,B() as long
dim I as long,K as long
A()=split("2005 12 31 10 0 0.2 15 80"," ")
redim B(Ubound(A))
k=-1
for I=0 to ubound(A)
if len(A(I)) then
k=k+1
B(K)=Val(A(i))
endif
Next I
If K > -1 Then ReDim Preserve B(K) Else: ReDim B(0)

open "文件路径" for input as #1

do while not EOF(1)
input #1,s
if trim(str(s))<>" " then
i=i+1
a(i)=val(s)
end if
loop
close #1

应该可以吧，我自己想的，呵 ！！！