Ver Mensaje Individual
  #4 (permalink)  
Antiguo 11/07/2013, 22:48
truskyvb
 
Fecha de Ingreso: octubre-2008
Mensajes: 188
Antigüedad: 16 años, 2 meses
Puntos: 3
Respuesta: Cortar líneas en txt

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