Cita: - Dim obj_FSO As Object
- Dim Archivo As Object
- Set obj_FSO = CreateObject("Scripting.FileSystemObject")
- 'Creamos un archivo con el método CreateTextFile
- Set Archivo = obj_FSO.CreateTextFile(App.Path & "MiArchivo.txt", True)
- 'Escribimos lineas
- Archivo.WriteLine "Una linea"
- Archivo.WriteLine "Otra linea"
- Archivo.WriteLine "Otra mas"
- 'Cerramos el fichero
- Archivo.Close
- 'Para abrir el archivo
- Set Archivo = obj_FSO.OpenTextFile(App.Path & "MiArchivo.txt", 1)
- 'Cargamos en el TextBox todo el archivo
- Text1 = Archivo.ReadAll
- '///Nota: para leer una linea se utiliza ReadLine
- Archivo.Close
- Set obj_FSO = Nothing
- Set Archivo = Nothing
Cita: - Private Sub Imprimir(Archivo As String)
- ' variable para fso
- Dim Obj_TextStream As Scripting.TextStream
- Dim Obj_Fso As New Scripting.FileSystemObject
- Dim Obj_File As File
- Dim Linea_Actual As String
- ' Referencia al archivo con GetFile
- Set Obj_File = Obj_Fso.GetFile(Archivo)
- ' Lo abre con OpenAsTextStream
- Set Obj_TextStream = Obj_File.OpenAsTextStream(ForReading, TristateUseDefault)
- ' recorre todo el contenido del fichero
- Do While Not Obj_TextStream.AtEndOfStream
- ' lee la linea
- Linea_Actual = Obj_TextStream.ReadLine
- Printer.Print Linea_Actual ' imprime con
- Loop
- Printer.EndDoc
- End Sub
O sea, abres el archivo plano (txt), lo metes a un array o recorres todo el contenido del fichero, y tu limitante sera en este caso el salto de linea (/n). Necesitas que sean 5, a partir de que lo encuentre empiezas a copiar el texto a tu listbox y hasta el 6to salto de linea.
Espero ahora si me haya explicado un poco mejor.
saludos.