Hola!
Esto es lo que necesitas:
Código vb:
Ver originalPrivate Sub cmdBuscar_Insertar_Click()
Dim DATA
'ABRES EL ARCHIVO PARA LECTURA
Open App.Path & "\FILE.TXT" For Input As #1
Do While Not EOF(1)
Line Input #1, DATA
'BUSCAS EL TEXTO
If LCase(InStr(1, DATA, "TEXTO A BUSCAR")) <> 0 Then
Open App.Path & "\FILE_NEW.TXT" For Append As #2
'SI LO ENCUENTRAS, INSERTAS EL TEXTO QUE DESEAS
Print #2, "TEXTO A INSERTAR ANTES DE LO ENCONTRADO"
Print #2, DATA
Close #2
Else
'SI NO LO ENCUENTRAS, PUES SIMPLEMENTE GUARDAS EL TEXTO QUE LEISTE
Open App.Path & "\FILE_NEW.TXT" For Append As #2
Print #2, DATA
Close #2
End If
Loop
Close #1
'BORRAS EL ARCHIVO ORIGINAL
Kill App.Path & "\FILE.TXT"
'CAMBIAS EL NOMBRE DEL NUEVO ARCHIVO (QUE TIENE EL TEXTO INSERTADO)
'Y LE PONES EL NOMBRE DEL ARCHIVO ORIGINAL
Name App.Path & "\FILE_NEW.TXT" As App.Path & "\FILE.TXT"
'YA TERMINAMOS!!
MsgBox "Procesado!!", vbInformation
End Sub
