关于vb读取txt文件的问题

Question

大家好，我需要做的问题是这样的：
我有一组数，存放在txt文件中。数据共1000行，15列。我需要做的是把第2，7，8列、从500到700行的数据读到三个数组里面。每个数组存放相应的一列数。
老板催着要。很急！！！！
求大家多多帮忙。我用的语言是vb。

Answer 1

dim s as string,ss() as string
dim ss1(200) as string,ss2(200) as string,ss3(200) as string
open "d:\aa.txt" for input as #1
do while not eof(1)
   line input #1,s
   i=i+1
   if i>=500 and i<=700 then
      ss=split(s,",")  '逗号表示数据用逗号分隔，如果是别的改一下
       ss1(i-500)=ss(1)
      ss2(i-500)=ss(6)
      ss3(i-500)=ss(7)
   end if
loop
close #1
msgbox "ok"

Answer 2

如何读/写 Binary File'以下是读取Binary file的程式
Dim Buff() as ByteOpen "d:\csys\8504\ctc" For Binary Access Read As #1
ReDim Buff(267)Do While Not EOF(1)
   Get #1, , Buff  '每次读268个byte进来
   'Call 处理Buff 的Routine
Loop
Close #1'以下是写入Binary file的程式
Dim Buff() As Byte
Open "c:\tc" For Binary Access Write As #1
ReDim Buff(10)
Buff = StrConv("这是一个11", vbFromUnicode)
Put #1, , BuffReDim Buff(1)
Buff(0) = 210
Buff(1) = 70
Put #1, , Buff
Close #1
End Sub

Answer 3

定长是指每行在磁盘上占用的字节数。如果每行是相同的，则可以直接计算出哪行在哪个位置，然后就直接从那儿读了。还有，数据之间用统一的分隔符，这样就可以用 Split() 把它拆分成数组，要第几个，取相应的元素值就行了。
你的数据，用 数据库 或 随机记录文件 都比较方便。

Answer 4

文本文件只能顺序读取，
如果要随机读取（就是想读哪儿读哪儿，不是随机数的意思），就用Bin文件吧

Answer 5

文本文件也可以按 Bin文件 处理滴............