Question

VB 随机打开文件将文件中的数据赋给一个数组

VB 随机打开文件 将文件中的数据赋给一个数组
怎么样实现??
最好有代码 和详细说明 俺是菜鸟

Answer 1

程序调试时，把文件放到vb目录下，生成exe后放到exe程序目录下。
——————————————————————————————
Dim DWJ(0 To 1000,0 To 10) As String
Dim i As Long
'—————————————————————————————————
Open App.Path & "\文件.txt" For InPut As #1
For i = 0 To 100 '100为文件的行数，要先知道文件的行数，否则出错。
InPut #1,DWJ(i,0)
Next
Close #1
For i = 0 To 100
Print DWJ(i,0)
Next
'————————————————————————————————