将字符串转换为浮点数组

czz原来如此发布于 2014-03-25 18:35， 281 次点击

怎么将字符串：1529.004,1559.952,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000
转换为浮点型数组？

列如：dim a() as float

预期效果：a(0) = 1529.004
          a(1) = 1559.952
          .
          .

2 回复

lowxiong2014-03-25 18:56

dim a() as single,b() as string,c as string,i as integer
c="1529.004,1559.952,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000"
b=split(c,",")
redim a(ubound(b))
for i=0 to ubound(b)
a(i)=val(b(i))
next

czz原来如此2014-03-25 19:55

回复 2楼 lowxiong

搞定，多谢版主