文件数值如下:
71.9   69.7   69.2   69.3   69.6   70.0   69.6   69.4   69.6   70.3   70.4   70.2   70.4   70.7   69.7   70.9   70.8   70.5   71.8   72.7   73.1   73.3   73.9   75.0   74.2   72.9   73.8   75.2   75.5   75.2   75.3   75.8   75.6   75.7   76.5   76.2   76.5   76.6   77.5   82.7   87.5   91.6   93.2   91.5   92.1   93.3   93.7   93.1   91.3   89.7   88.1   87.6   88.6   87.9   82.8victorycyz(中海)介绍用split函数把数值存到数组里。但我试了不行?arrA=split(strA," ")  会出现错误,说不能给数组赋值,请高手指点迷津!

解决方案 »

  1.   

    可以的Dim ls As String
    Dim la() As String
    Dim i As Integerls = "92.1  93.3   93.7   93.1   91.3   89.7   88.1   87.6   88.6   87.9   82.8"
    la = Split(ls, " ")For i = 0 To UBound(la)
        Debug.Print la(i)
    Next i
      

  2.   

    楼上这样的做法可以实现阿
    Dim ls As String
    Dim la() As String
    Dim i As Integerls = "92.1  93.3   93.7   93.1   91.3   89.7   88.1   87.6   88.6   87.9   82.8"
    la = Split(ls, " ")For i = 0 To UBound(la)
        Debug.Print la(i)
    Next i
    调试通过啦
      

  3.   

    Dim ls As String
    Dim la As Variant'区别在这里
    Dim i As Integerls = "92.1  93.3   93.7   93.1   91.3   89.7   88.1   87.6   88.6   87.9   82.8"
    la = Split(ls, " ")For i = 0 To UBound(la)
        Debug.Print la(i)
    Next i
    也可以
      

  4.   

    可以定义文本文件的格式,用逗号或*分隔数字。
    这样读起来就直接付给变量。
    i hava,but money.
      

  5.   

    其实,你这个问题有另外的方法,楼上的两位方法也不错,我也说说我方法
    看你的文本格式是XX.X,那么1、打开文件 2、读取4个字符 3、用VAL函数转换成数字
    4、文件指针+5 5、回到(2) 到文件结束读取的数字存入数组,数组的长度可以根据文件的长度/5+1 来计算得出
    编程如下
    dim a() as Single
    dim s,t as string
    dim fl,l as long
    open "文件" for binary as #1
    fl=1
    l=lof(1)+1 
    redim a(l)
    for i=1 to l
      for j=1 to 4
        get #1,fl,t
        s=s+t
        fl=fl+1
      next j
      a(i)=val(s)
      fl=fl+1
    next i  
      

  6.   

    你可以试一个vb中fso模型!
    在工程中引用microsoft scripting runtime 就可以用了!!
    这个模型对文件读取功能很强