Archivo de texto largo

[sitiom]

Hola.
Tengo un problema y es que tengo que leer un archivo de texto muy extenso y de las maneras que lo leo, tarda mucho tiempo y en ocasiones el ordenador se cuelga.
¿Me podrías decir qué puedo hacer para leer ese archivo de texto tan extenso de forma más rápida?
Muchas gracias. Un saludo

[servantsoftware]

Para trabajar con textos extensos, no te recomiendo el Text normal, sino el componente Rich TextBox (Microsoft):

Captura:




Mas acerca de Rich TextBox: http://www.recursosvisualbasic.com.a...ichtextbox.htm

Espero y te sirva...

[sitiom]

Hola servantsoftware. El problema no es el escribirlo en el textbox o richtextbox, el problema es cómo leerlo para agilizar su almacenamiento, es decir, yo lo abro con la instrucción:
Open NombreArchivo For Binary As #NumFichero
Variable = Input(FileLen(NombreArchivo), #NumFichero)
Close #NumFichero
¿Hay alguna forma de leer más rápida?
Muchas gracias por su tiempo

[servantsoftware]

Bueno en ese caso te sugiero que hagas una barra de proceso, para que el usuario se vaya llevando la impresion, si algun compañero tiene una forma, ojala y opine.

[sitiom]

Vale, gracias por tu respuesta. A ver si alguien me ayuda con lo de la barra de progreso, ya que yo sé usarla con un temporizador pero no con una carga de un fichero.
Un saludo

[lokoman]

Hola!!
En una ocasion se me presentó algo similar con unos archivos que pesaban mucho y se colgaban al abrirlos con notepad, asi es como los solucioné:

Código vb:

'CODIGO PARA CARGAR UN ARCHIVO .TXT GRANDE
        Archivo = "C:\Mi Archivo.txt"
 
        Open Archivo For Binary As #1
            Variable = Space(LOF(1))
            Get #1, , Variable
            ...
            ...
            ...
            DoEvents
        Close #1
 

Intenta la carga con este código y nos avisas!!

[sitiom]

Me puedes explicar un poquillo el código, es que no lo entiendo muy bien :S, me dice que la variable llamada variable, usa un tipo de automatización no admitido en visual basic
Perdona mi ignorancia y gracias por ayudarme ;)

[lokoman]

?
No debe dar error.

Código vb:

Private Sub cmd_Click()
    Dim txtVAR As String
    Dim Archivo As String
 
    Archivo = "D:\Pro\ARCHIVO.TXT"
    Open Archivo For Binary As #1
    txtVAR = Space(LOF(1))
    Get #1, , txtVAR
 
    Close #1
    txtTEXTBOX.Text = txtVAR
End Sub
 

El Code es sencillo:

1-Abres el archivo en Binario
2-Asignas a una Variable el tamaño del archivo (LOF=Length Of File)
3-Cargas el texto del archivo en la Variable
4-Cierras el archivo
5-Asignas el archivo a un TEXTBOX, RICHTEXBOX, etc.

[sitiom]

Gracias, ya lo entendí y queda todo solucionado.
De nuevo, gracias ;)

[lokoman]