文件数值如下:
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," ") 会出现错误,说不能给数组赋值,请高手指点迷津!
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," ") 会出现错误,说不能给数组赋值,请高手指点迷津!
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
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
调试通过啦
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
也可以
这样读起来就直接付给变量。
i hava,but money.
看你的文本格式是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
在工程中引用microsoft scripting runtime 就可以用了!!
这个模型对文件读取功能很强