Private Sub Command1_Click()
Open "c:\temp.txt" For Input As #1
While Not EOF(1)
Line Input #1, s
p = InStr(s, Text1.Text) '在text1中输入查找关键字
If p <> 0 Then Print Mid(s, p + Len(Text1.Text) + 1, 6)
Wend
Close
End Sub

这个数据显示在Print Mid上 我想让它显示在 Text2.Text 上

xzlxzlxzl版主 首先谢谢你，我读取txt内容到text2里后显示在text2的中间，如果控件短了看不到读取的内容，而且我就想每次就显示一个数据，可是我多读取几次后，就显示很多，最好读取数据后就显示在最左，只显示一个。这个代码多读取几次后好像不显示了。