[SOLUCIONADO] Cortar líneas en txt

[truskyvb]

Hola pido ayuda para lo siguiente:

Intento cortar 7 líneas de un fichero1.txt y pegarlas en fichero2.txt que no existe.

Creo que el fichero2.txt pero no se continuar.

Crear fichero2.txt:
Dim fso As New FileSystemObject
Dim F As Object
Set F = fso.OpenTextFile(App.Path & "\Fichero2.txt", ForWriting)
F.Close


Si podéis darme alguna orientación de cómo hacerlo os lo agradezco.
Gracias

[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

[truskyvb]

Hola erbuson, gracias por la ayuda.

Me pongo a ello con el ejemplo que has puesto a ver que consigo.

Gracias.

[truskyvb]

Hola, lo he conseguido pero de una forma muy enrevesada.

No he sabido seguir el ejemplo que me has dado y me gustaría hacerlo.
Si no te importa explicarmelo un poco más, te lo agradezco.

Pongo el código de como lo he hecho por si le sirve a alguien.

Código:

'Creo un ListbBox List1
'Leo el fichero1.txt del que quiero sacar líneas a partir de
'la línea 7 y copio su contenido al List1

Private Sub Command1_Click()
 Dim s As String, a() As String, i As Integer
 Open App.Path & "\fichero1.txt" For Input As #1
 s = Input(LOF(1), #1)
 Close #1
 a = Split(s, vbNewLine)
 List1.Clear
 For i = 10 To UBound(a)
 List1.AddItem a(i)
 Next i
End Sub


'O leo el fichero1.txt del que quiero sacar líneas sueltas
'y copio su contenido al List1

Private Sub Command1_Click()
 Dim s As String, a() As String, i As Integer
 Open App.Path & "\fichero1.txt" For Input As #1
 s = Input(LOF(1), #1)
 Close #1
 a = Split(s, vbNewLine)
 List1.Clear
 List1.AddItem a(1)
 List1.AddItem a(2)
 List1.AddItem a(4)
 List1.AddItem a(5)
 List1.AddItem a(6)
 List1.AddItem a(7)
 List1.AddItem a(14)
End Sub


'Salvo el contenido extraído en el ListBox en un nuevo fichero2.txt

Private Sub CreoSalvoArchivo_Click()
 Dim i As Integer
 Open App.Path & "\fichero2.txt" For Output As #1

 For i = 0 To List1.ListCount
 Print #1, List1.List(i)
 Next i
 Close #1
End Sub

Un saludo

[erbuson]

Hola:

En mi ejemplo obviamente no sabia las lineas que querias guardar. En tu caso, lo que no tiene sentido es utilizar el List intermedio, puedes hacerlo directamente

Código vb:

Private Sub Command1_Click()
 Dim s As String, a() As String, i As Integer
 Open App.Path & "\fichero1.txt" For Input As #1
 s = Input(LOF(1), #1)
 Close #1
 a = Split(s, vbNewLine)
 
Open App.Path & "\fichero2.txt" For Output As #1
  Print #1, a(1)
  Print #1, a(2)
  Print #1, a(4)
  Print #1, a(5)
  Print #1, a(6)
  Print #1, a(7)
  Print #1, a(14)
Close #1
End Sub
 

En mi ejemplo habrias tenido que poner un contador para saber que numero de linea estabas leyendo y caso de querer guardarla hacerlo.

Por ejemplo asi:

Código vb:

Private Sub Command1_Click()
  Dim Registro As String, Linea As Integer
  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
    Linea = Linea + 1
    Select Case Linea
      Case = 1, 2, 4, 5, 6, 7, 14
        Print #2, Registro          'Grabar Registro en fichero 2
    End Select
  Wend
  Close #1, #2                  'Cerrar ficheros
End Sub
 

Es sólo una de tantas posibilidades.

Saludos

[truskyvb]

Hola, gracias por la corrección y por la explicación de tu código.

Un saludo