Estoy atorado (texto plano)

[eltin_vcp]

Buenas amigos, tengo un problema con texto plano, tengo que cortar y pegar dentro de un archivo, fragmentos de texto plano que son iguales unos a otros solo tengo que cortar y pegar pero son muchos archivos, que se presentan asi:

04/29/00 02:47:34 350 Archivo A
04/28/00 16:47:50 350
04/28/00 06:47:46 350
04/27/00 20:47:41 350
04/27/00 10:47:37 350
04/27/00 00:48:15 350
04/27/00 00:40:39 350
04/26/00 14:48:10 349
04/26/00 04:48:06 349
04/25/00 18:48:01 349
-----------------------------------------------------
04/29/00 02:47:34 351 Archivo B
04/28/00 16:47:50 352
04/28/00 06:47:46 353
04/27/00 20:47:41 354
04/27/00 10:47:37 355
04/27/00 00:48:15 356
04/27/00 00:40:39 357
04/26/00 14:48:10 347
04/26/00 04:48:06 347
04/25/00 18:48:01 347

lo que tengo que hacer es de otro archivo, llamando este a y el otro b, copiar lo que sigue, que seria del mismo formato que este pero con otros valores y pegarlo debajo de esto, no pretendo que me den la solucion pero con el trim supongo que me saldria si supiera mas de el.

El proceso a mano seria seleccionar todo de (B), copiar y pegar la seleccion arriba del anterior (A)

Saludos y muchas gracias

[lokoman]

Hola!
El TRIM recorta los espacios al inicio y al final de un string... no te va a servir para la creacion del archivo.

Te dejo esto:
Agrega estos controles:
• DRIVE (DriveListBox)
• DIR (DirListBox)
• FILE (FileListBox)
• CMD (CommandButton)



Codigo:

Código vb:

Private Sub cmd_Click()
    Dim DATA As String
    Dim I As Integer
 
    For I = 0 To File.ListCount - 1
        Open Dir.Path & "\" & File.List(I) For Binary As #1
            DATA = Space(LOF(1))
            Get #1, , DATA
        
            Open File.Path & "\New_Archivo.txt" For Append As #2
                Print #2, "------------------------------------"
                Print #2, DATA
 
            DoEvents
        Close
    Next I
    
    MsgBox "Proceso completado!!", vbInformation
End Sub
 
Private Sub Dir_Change()
    File.Path = Dir.Path
End Sub
 
Private Sub Drive_Change()
    Dir.Path = Drive.Drive
End Sub
 
Private Sub Form_Load()
    File.Pattern = "*.txt"
End Sub
 

Seleccionas una carpeta con los *.TXT, le das al boton de PROCESAR y se creara un archivo con el contenido de todos los *.TXT de la carpeta que seleccionaste. El nuevo archivo estara en esa misma carpeta.

Ajustalo a tus necesidades.