visual basic Localiza uma palavra e substituir problemas no do while

[Ramon Fontanesi]

Boa noite estou tentando fazer um programa que localiza uma determinada palavra em um bloco de notas...

Ate ai tudo bem, mas eu não consegui fazer repetir para as outras ocorrência 

 Private Sub txtDragDrop(sender As Object, e As DragEventArgs) Handles TextBox1.DragDrop

        '-----abre arquivo 

        Dim feed As String() = CType(e.Data.GetData(DataFormats.FileDrop), String())
        For Each nome As String In feed
            TextBox1.Text = nome

            'abrir

            Caminho.Text = TextBox1.Text
            Dim arquivo As String = Caminho.Text
            IO.File.Exists(arquivo)
            TextBox2.Text = IO.File.ReadAllText(arquivo)
            Dim returnValue As Boolean = False

            '-----subistitui G01 por G00
            Do While TextBox2.Text.Contains("F12700.")

                TextBox4.Text = File.ReadAllLines(arquivo).FirstOrDefault(Function(x) x.Contains("F12700."))

                TextBox2.Text.Contains(TextBox4.Text)
                TextBox5.Text = TextBox4.Text
                TextBox4.Text = Replace(TextBox4.Text, "F12700", "(F)")
                TextBox4.Text = Replace(TextBox4.Text, "G01", "G00")
                TextBox2.Text = Replace(TextBox2.Text, TextBox5.Text, TextBox4.Text)

            Loop

        Next

 

 

Exemplo

%
O900(..Haas....16596-3023-LD2-3...)
G17 G21 G40 G54 G80 G90 G00 M00
( Operação  : CAVITY_MILL )
M84
M08
T02 M06 (FRTP08R0.5)
S4000 M03
G43 G00 H02 Z53.4
G01 G90 X0.0 Y10.857 F12700. '1º linha a ser substituída
G00
Z44.25
G01 Z43.25 D02 F800.

G01 X0.0 Y10.997 F12700. '2º linha a ser substituída

 

Localizar o F12700. e substituir o G01 por G00 e retirar o F12700. do final do texto

% 
O900(..Haas....16596-3023-LD2-3...)
G17 G21 G40 G54 G80 G90 G00 M00
( Operação  : CAVITY_MILL )
M84
M08
T02 M06 (FRTP08R0.5)
S4000 M03
G43 G00 H02 Z53.4
G00 G90 X0.0 Y10.857 F12700. ´nova linha alterando o G01 por G00 e retirando o F12700. 
G00
Z44.25
G01 Z43.25 D02 F800.

G00 X0.0 Y10.997 F12700. ´nova linha alterando o G01 por G00 e retirando o F12700. 

 

Editado Maio 5, 2017 por Ramon Fontanesi
Novas informacoes