Abrir archivos de texto mayores a 64kb y ponerlos en un textbox

[demoniox12]

Hola! keria saber si alguien sabe como poner un archivo de texto mayor a 64kb en un textbox, probe en un richtextbox y anda bien pero no quiero andar dependiendo de de un ocx

salu2!

[~~]

No entiendo muy bien la duda, dará lo mismo q sea de 64kb o de 1mb no? weno el code es este:

Código [Seleccionar] Expandir


open "C:\ruta" for binary as #1
dim todo as string
todo = space(lof(1))
get #1,,todo
close #1

text1.text = todo


Y asi deberia funcionarte, espero q no tenga ningun error de sintaxis, ya q lo e escrito directamente aki

Saludos

[demoniox12]

No entiendo muy bien la duda, dará lo mismo q sea de 64kb o de 1mb no? weno el code es este:

Código [Seleccionar] Expandir


open "C:\ruta" for binary as #1
dim todo as string
todo = space(lof(1))
get #1,,todo
close #1

text1.text = todo


Y asi deberia funcionarte, espero q no tenga ningun error de sintaxis, ya q lo e escrito directamente aki

Saludos

el problema es que el textbox es el que no abre mas de 64kb.. lo he comprobado.. en un richtextbox si funciona bien..

salu2!

[SERBice]

tu lo hs dicho, el textbox esta limitado a 64k, puedes usar rich txt box o hacer que tu textbox cargue dinamicament  archivo, es decir, cuando llegue al final (scroll barr = 100%) que cargue otros 64kb, claro, en teoria funcionaria, aunqeu no seria muy prolijo.

como?... bueno, eso ya no lo se, y uso rich para evitar tene que complicarme.