大家好，我需要做的问题是这样的：
我有一组数，存放在txt文件中。数据共1000行，15列。我需要做的是把第2，7，8列、从500到700行的数据读到三个数组里面。每个数组存放相应的一列数。
老板催着要。很急！！！！
求大家多多帮忙。我用的语言是vb。
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"
如何读/写 Binary File
'以下是读取Binary file的程式
Dim Buff() as Byte
Open "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, , Buff
ReDim Buff(1)
希望大家能够帮我下.感谢了..
源码传在大米盘 VB6 的源码 http://www.damipan.com/file/3wNoKLW.html
转为VB.NET源码.
小弟完全是新手 不懂的说.麻烦各位帮忙一下
我的EMAIL是:4452 ......
在vb这编程里似乎有很多的东西是相联系的，为什么有些人对vb的编程摸不到头脑啊！并且有些事很容易的，但是却把它们的代码变成复杂，也去想一些不能实现的东西啊！
没分了，楼主多来点分！
来接点分
......
