file agregar según búsqueda

[lokoman]

Hola!
Esto es lo que necesitas:

Código vb:

Private 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