字符串操作，求思路或者解决办法

[xxuubb]

有一字符串，
5 10 18 7360. 526. 1096. 7360. 7360. 9537. 9537. 9537. 18.05 17.40 13.37 11.85 7.72 17.40 17.40
字符串里面含一个空格，或者多个空格
怎么把这个些数值分离道一个数组arrData(1, 1 To 18)中
split 好像只能分离一个空格的情况。

[of123]

dim str1 as string, tmp as string, arr() as string

str1 = "5 10 18 7360. 526. 1096. 7360. 7360. 9537. 9537. 9537. 18.05 17.40 13.37 11.85 7.72 17.40 17.40"

tmp = str1
do while instr(tmp, space(2))
tmp = replace(tmp, space(2), space(1))
loop

arr = split(tmp, " ")

[迈克揉索芙特]

用replace函数先把两个空格的字符串替换成一个。
要循环替换

[迈克揉索芙特]

of123，你也太快了。呵

[faysky2]

Dim str$, arrTmp() As String
str="5 10 18 7360. 526. 1096. 7360. 7360. 9537. 9537. 9537. 18.05 17.40 13.37 11.85 7.72 17.40 17.40"

str = Replace(str, Space(2), Space(1))
str = Replace(str, Space(2), vbTab)
arrTmp = Split(str, vbTab)

[faysky2]

str = Replace(str, Space(2), Space(1))
str = Replace(str, Space(1), vbTab)
arrTmp = Split(str, vbTab)

[xxuubb]

那含有多个空格的情况怎么判断啊

[xxuubb]

哦，明白了

[xxuubb]

等会结贴