在vb.net中的txt文件中的特定位置添加文本

Question

我是VB新手，正在嘗試將文本添加到文本文件中的特定位置。 我正在嘗試在“ G4 K900”和“ N10 G54”之間添加文本。 這是我正在使用的代碼。 我進行了Google搜索，但找不到任何東西，但是很可能該信息在那里，我只是聽不懂。 我還需要替換文本。 我想出了該怎么做。 任何幫助將不勝感激。

G90
S12000 M3 M31 M32
G4 K900
N10 G54

Public Sub BtnRun_Click(sender As System.Object, e As System.EventArgs) Handles BtnRun.Click

    Dim myStreamReaderL1 As System.IO.StreamReader
    Dim myStream As System.IO.StreamWriter

    Dim myStr As String
    myStreamReaderL1 = System.IO.File.OpenText("C:\temp/test1.out")
    myStr = myStreamReaderL1.ReadToEnd()
    myStreamReaderL1.Close()

    myStr = myStr.Replace("G90", "G100")

    'Save myStr
    myStream = System.IO.File.CreateText("C:\temp\test1.out")
    myStream.WriteLine(myStr)
    myStream.Close()

Answer 1

 Dim newfile As New List(Of String)()

    For Each line As String In System.IO.File.ReadAllLines("C:\temp\test1.out")
        Dim matchFound As Boolean
        matchFound = line.Contains("G4 K900")

        If matchFound Then
          newfile.Add(line & vbNewLine & "TEXTYOUWANTTOADD")
        Else
            newfile.Add(line)
        End If

    Next
File.Delete("C:\temp\test1.out")
 System.IO.File.WriteAllLines("C:\temp\test1.out", newfile.ToArray())

注意：如果file被其他應用程序使用，則無法修改它