哪位高手知道怎么用vb6.0从一个txt文件中提取数据？

'下面是个例子，具体更改要根据你的文件结构来改，你可以看看怎么操作文件
dim DataFileName as string'文件路径及文件名
dim StrArray() as string'保存数据
datafilename=.....文件名初始化,你自己搞
Open DataFileName For Input As #1
Do While Not EOF(1)
Line Input #1, LineData
StrArray = Split(LineData, " ")
'这里加入给文本框赋值的代码
text1.text=strarray(0)
text2.text=strarray(1)
.....
'
Close #1

---------------------------
热心帮助每一个人,互相学习.有疑问请到我的blog里留言！
http://hi.baidu.com/privateblog

Private Sub Command1_Click()
Dim FileName As String
Dim s1 As String
Text1.Text = ""
FileName = App.Path + "\" + "1.txt" '----假设文本文件的名为1.txt
Open FileName For Input As #1
Do While Not EOF(1)