Comunidad PHPeros
Lenguajes => Visual Basic => Mensaje iniciado por: Erik en 07 de Abril de 2008, 20:45:53 pm
-
Necesitamos
2 TextBox, que uno se llame text1 y el otro ruta.
1 CommandButton y listo.
Private sub Command1_click()
open trim$(ruta) for binary as #1
dim espaciotxt as string
expaciotxt = space(lof(1))
get #1,espaciotxt
close #1
text1.text = espaciotxt
End Sub
Private sub Form_Load()
text1.Multiline = true
End sub
El sistema trim$ que pongo es para que el valor de la ruta sea el valor del ruta.text
Es muy sencillo.
-
Explica mejor eso de trim bueno lo k hace es para k ustedes solo abran lo k dicen
Pk ejemplo si abren " AWDASDAWEAWE.TXT " y espacios no se abira
lo k hace el trim es cerrar los espacio y borra esos espacios y abrir expecificamente
el archivo .txt :)
PD:el unico tuto en el k te felicito Erik