Abrir un archivo de texto en un TextBox (Visual Basic)
Visual Basic 13 agosto 2007
Sub AbrirArchivo(Ruta As String, Texto As TextBox)
Dim fnum As Integer
On Error GoTo Ninguno
fnum = FreeFile
Open Ruta For Input As fnum
Do While Not EOF(fnum)
Line Input #fnum, txt
Texto.Text = Texto.Text & vbCrLf & txt
Loop
Close fnum
Ninguno:
End Sub
Vota este artículo:
(No Ratings Yet)
Loading ...Posts anterior y posterior:
- Previo: « Devuelve la versión de la app (Visual Basic)
- Siguiente: Borrar todos los archivos dentro de una carpeta (Visual basic) »
agosto 29th, 2010 a las 5:20 am
esta mamada ke? pinche pagina fea!
-1
octubre 10th, 2011 a las 6:36 am
Como puedo manejar la variable Ruta o modo de que sea independiente del directorio donde se ejecute. Esto por ejemplo, si la ruta de mis archivos es “C:\Docs\texto1.txt” si en otra maquina lo ubico en otro directorio no funcionaria. Existe alguna forma de concatenar la ruat con el Chdir App.Path para que sea independiente la ubicacion ?
octubre 10th, 2011 a las 6:44 am
Hola te dejo el codigo con la pequeña modificacion por si le sirve a alguien
Sub AbrirArchivo(ruta As String, Texto As TextBox)
Texto.Text = “”
ChDir App.Path
ChDrive App.Path
directorio = App.Path
ruta = directorio & “\” & ruta
Dim fnum As Integer
On Error GoTo Ninguno
fnum = FreeFile
Open ruta For Input As fnum
Do While Not EOF(fnum)
Line Input #fnum, txt
Texto.Text = Texto.Text & vbCrLf & txt
Loop
Close fnum
Ninguno:
End Sub
octubre 10th, 2011 a las 6:45 am
De esa forma la ruta en lugar de manejarse “C:\Docs\texto1.txt” se manejaria solamente “texto1″ independiente del directorio donde se encuentre