简单的文本数据读取问题

Question

文本格式如
111  22222    333444
11   222       33444444
111  2222      3344
数据项都在左端或右端对齐，要分别提出1.3.4，写入新文件
如何操作，谢谢

Answer 1

dim i as integer,v1(),v2(),v3()
open "你的文件" for input as #1
do while not eof(1)
    input #1,v1(i),v2(i),v3(i)
    i=i+1
loop
close #1
open "你的文件2" for output as #2
open "你的文件3" for output as #3
do while i>0
   i=i-1
    print #2,v1(i),v3(i)
    print #3,v2(i)
loop
close #2
close #3

Answer 2

晕，错了，
dim i as integer,v1(),v2(),v3()
open "你的文件" for input as #1
do while not eof(1)
　　redim preserve v1(i)
　　redim preserve v2(i)
　　redim preserve v3(i)    input #1,v1(i),v2(i),v3(i)
    i=i+1
loop
close #1
open "你的文件2" for output as #2
open "你的文件3" for output as #3
do while i>0
   i=i-1
    print #2,v1(i),v3(i)
    print #3,v2(i)
loop
close #2
close #3

Answer 3

谢谢，V1，V2，V3是按列分成数组么？象333444这样的，想读成两个，而且只需要生成一个文件啊，只取源文件中的1.3.4.数据项，新文件中排列格式不改