jump to navigation

Trim$ Abril 30, 2008

Posted by erik in : VisualBasic , trackback

Necesitamos
2 TextBox, que uno se llame text1 y el otro ruta.
1 CommandButton y listo.

Código: [Seleccionar]

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.

Comments»

no comments yet - be the first?