VB如何读取TXT文件中指定某行的内容到变量中

Open App.Path + "\1.txt" For Input As #1
Do While Not EOF(1)
Dim tmp,As String
Line Input #1, tmp
' InStr(1, tmp, "key")在这里找有没有变量的关键字，不然谁知道什么变量什么类型？
Doevents
Loop
Close #1

我会加分吧

使用Line Input #语句
格式：Line Input #文件号，字符串变量名
功能：从顺序文件中读取一整行字符并付给后面的变量
其中“字符串变量名”是一个字符串型的简单变量名或数组元素名
Line Input #是以行为单位读取信息，每行对应一个字符串，文件中的行以回车换行符作为结束符。
如：以下代码是复制文件的代码
Private Sub Command1_Click()
Dim if1 as integer,if2 as Integer
Dim sLine As String
if1=FreeFile
open "d:\tx1.txt" for input as if1
if2=FreeFile
open "d:\tx1_new.txt" for Output as if2
while Not Eof(if1)
Line Input #if1,sline '从源文件中读取一行
Print sLine
print # if2,sLine ‘写入目标文件
Wend
Close '关闭所有打开的文件
End Sub