Question

VB 将文本文档的数据存入一维数组中

在VB里面，读出文本文档的数据存入数组a中。怎么做啊？

Answer 1

试一下
Open FileName For Input As #1
arr = split(StrConv(InputB(LOF(1), 1), vbUnicode),vbnewline)
close #1
for i=0 to ubound(arr)
print arr(i)
next

追问

貌似不对的，会出现类型不符。

追答

你的文件格式，一行多数据吗？
如果是单行用val转换一下，多列我得知道格式

追问

产生数据的代码是Private Sub Command1_Click()
Open "c:\file1.txt" For Output As #2
Dim c(200), i
For i = 1 To 200
c(i) = Int(Rnd * 9000 + 1000)
Print #2, c(i);
Next i
Close
End Sub
然后就要用这里产生的数据存入数组。

追答

Private Sub Command1_Click()
Dim arr, i, n As Long, brr()
Open "c:\file1.txt" For Input As #1
arr = Split(StrConv(InputB(LOF(1), 1), vbUnicode), Space(1))
Close #1
For i = 0 To UBound(arr)
If Len(arr(i)) > 0 Then
n = n + 1
ReDim Preserve brr(1 To n)
brr(n) = arr(i)
End If
Next
MsgBox Join(brr, Space(1)) '数组内的数你就可以用了，我只是给你看看
End Sub