vb.net向txt指定行追加内容

以下是向指定行追加内容的VB.NET示例代码：

Dim filePath As String = "C:\example.txt"
Dim lineNumber As Integer = 3 ' 指定行号
Dim newText As String = "This is the new text to be added."

' 读取 txt 文件内容
Dim lines As New List(Of String)
Using reader As New StreamReader(filePath)
    While Not reader.EndOfStream
        lines.Add(reader.ReadLine())
    End While
End Using

' 在指定行后添加新的文本
If lineNumber > 0 AndAlso lineNumber <= lines.Count Then
    lines.Insert(lineNumber - 1, newText)
Else
    ' 行号越界，抛出异常或者给出错误提示
    Throw New ArgumentException("Invalid line number.")
End If

' 将新的文本写回到 txt 文件中
Using writer As New StreamWriter(filePath)
    For Each line As String In lines
        writer.WriteLine(line)
    Next
End Using

在这个例子中，我们首先指定了要追加的文本和要追加的行号。然后，我们使用 StreamReader 类读取 txt 文件中的所有行，并将它们存储在 List(Of String) 类型的变量中。接下来，我们使用 Insert 方法在指定行后添加新的文本。最后，我们使用 StreamWriter 类将更新后的文本写回到 txt 文件中。

需要注意的是，行号从 1 开始计数，而 List(Of String) 类型的变量的索引从 0 开始计数。因此，在插入新文本之前，我们需要将行号减 1。此外，如果指定的行号超出了 txt 文件中的行数，我们抛出一个 ArgumentException 异常或者给出一个错误提示。