Question

vb 读取文件夹中的.txt文件中的数据?

比如一个TXT文件123.TXT中有数据
1 12 145 158 124
4 124 125 145 142
7 321 542 12 451
....
有text1. text2. text3. text3.等一些文本控件,我想在text1.中输入1或4或7,按确定,在相应控件中显示 12 145 158 124 在其他文本控件中
给追加分..
是在text1中输入1或4，或7，按确定后把 12 145 158 124分别显示在 text1,text2,text3,text4 中

谢谢,,十分感谢!如果我想把Open "c:\1.txt" For Input As #1 中的1.txt用Combo1中的文件名替换的话怎么写啊

Answer 1

理解不了你的问题，到底要什么结果呢？是不是在text1中输入1或4，或7，按确定后把 12 145 158 124分别显示在 text1,text2,text3,text4 中？

Private Sub Command1_Click()
Dim a, s
Open "c:\1.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, s
a = Split(Trim(s), " ")
If a(0) = Text1.Text Then
Text1.Text = a(1): Text2.Text = a(2): Text3.Text = a(3): Text4.Text = a(4): Exit Do
End If
Loop
close
End Sub