取txt文本数据问题？急！

[fengwuleann]

txt的文本内容如下：
Rod Wt Circ PD Len DD
g mm mm mm %
1 0.724 23.97 364.94 119.63 88.6
2 0.721 24.00 349.9 119.93 86.6
3 *0.716 24.02 359.6 120.10 87.5
4 0.735 24.25 365.4 119.85 91.0
5 0.734 24.25 365.4 120.06 90.5
max 0.761 24.39 390.7 120.36 91.6
2003-11-24 10:16:27
我现在要将其中的数据一个一个取出来，再插入数据库，应该怎么取数据呢？请高手给我一段代码（vb6）

[ameny]

建議先手工倒成Excel文件再說

[fxy_2002]

dim lStr as string,lArr() as string

open "aa.txt" for input as #1 'aa.txt 是你的文本文件名
do while not eof(1)
line input #1,lStr '读取一行的内容
'do while instr(lstr," ")>0 '当存在两个空格时，换成一个
' lstr=replace(lstr," "," ")
'loop

larr=split(lstr," ") '将内容按 " " 拆开；如果有多个空格，请使用上面被注释的代码

rs.addnew '前面打开 rs 的代码自己写，添加到记录集
rs(0)=larr(0)
rs(1)=larr(2)
....
rs(n)=larr(n) '有多少列写多少列，保证数据表结构与文本内容一一对应
rs.update
loop
close #1

[northwolves]

也可以按数据库方式打开文本文件

[思诺赛克]

up

[fengwuleann]

谢谢fxy_2002，在你回答之前，我已经解决了，但我还是给分，谢谢你！