VB中怎么在一个txt文档中读取内容并且找到特定的行加入文字？

Question

最好附带一些注解，本人现在高一，VB不是很会用。

Answer 1

这个很容易的，可惜我的 Win10 还没有 VB。
应该可以读取整个 txt 文档到一个字符串中，然后按换行符号找到那个特定的行，加插入文字。最后把那个字符串存为一个新 txt 文档。

Answer 2

Private Sub Form_click()
Print ReadSomeLine("z:\1.txt", 3)
End Sub
Function ReadSomeLine(Str1 As String, LineN As Integer)
Dim temp As String
Dim a() As Variant, x As Integer
Open Str1 For Input As #1
Do While Not EOF(1)
Line Input #1, temp
ReDim Preserve a(x)
a(x) = temp
x = x + 1
Loop
Close #1
ReadSomeLine = a(LineN - 1)
End Function

Answer 3

Dim b As String Private Sub Command1_Click() Open "E:\VB98\YXW\a.txt" For Input As #1 '#1里面的1指的是空闲文件号，必须，取值1～511 line input #1,b '这是读一行。也可以改成：input #1,b Text1.Text = b close #1 '关闭文件 End Sub