VB6.0如何将TXT部分数据存入数组,以便后续处理?测试状态：vvangHH测试时间：2009-07-15角度1号2号3号4号5号6号5度2.12.53.54.56.32.110度2.52.13.84.46.22.115度2.12.53.54.56.32.120度2.12.

Question

VB6.0如何将TXT部分数据存入数组,以便后续处理?
测试状态：vv ang HH
测试时间：2009-07-15
角度 1号 2号 3号 4号 5号 6号
5度 2.1 2.5 3.5 4.5 6.3 2.1
10度 2.5 2.1 3.8 4.4 6.2 2.1
15度 2.1 2.5 3.5 4.5 6.3 2.1
20度 2.1 2.5 3.5 4.5 6.3 2.1
25度 2.1 2.5 3.5 4.5 6.3 2.1
30度 2.1 2.5 3.5 4.5 6.3 2.1
35度 2.1 2.5 3.5 4.7 6.3 2.1
40度 2.1 2.5 3.5 4.5 6.3 2.1
测试结束
TXT格式如上,但行和列都不固定的,而且我只要第4到11行,2到7列的数据.最好能给出源码和注释.初学VB,呵呵!

Answer 1

Dim A(), B(1 To 8, 1 To 6), str As StringPrivate Sub Command1_Click()Erase A() '用来保存每行文档数组Erase B() '用来保存所要数据数组Open App.Path & "\1.txt" For Input As 1 '打开文本文档'循环每行并存储...