Cortar líneas en txt

[erbuson]

Hola:

Lo mas simple que puedes hacer es lo siguiente:

Código vb:

Private Sub Command1_Click()
  Dim Registro As String
  Open App.Path & "\Fichero1.txt" For Input As #1   'Abrir para lectura
  Open App.Path & "\Fichero2.txt" For Output As #2  'Abrir para escritura
  While Not EOF(1)              'Bucle hasta llegar a fin de fichero 1
    Line Input #1, Registro     'Leer Registro de fichero 1
    Print #2, Registro          'Grabar Registro en fichero 2
  Wend
  Close #1, #2                  'Cerrar ficheros
End Sub
 

Con esto copias todo el fichero, tu sabras que comparar para saber que registros debes grabar

Saludos