problema con lectura de fichero de texto
Hola, tengo un problema con un ejercicio.Me piden que lea un archivo de texto que tengo creado y que lo saque por pantalla por un textbox , pero me he liado un poco con la función de lectura de ficheros y ni me lee el fichero ni me lo saca por pantalla.
¡¡¡¡Alguien me puede ayudar!!!!!
¡¡¡¡Alguien me puede ayudar!!!!!
La forma más rapida es con la funcion Input, que requiere dós parámetros, la cantidad de bytes o caracteres a leer y el numero de fichero abierto.
un ejemplo
Dim Aux as String
Dim Archivo as String
Archivo = App.Path & \"\\Archivo.txt\"
Open Archivo For Input As #1
Aux = Input(Filelen(Archivo), #1)
Close 1
Text1.Text = Aux
Filelen(Archivo) retorna la cantida total de bytes del archivo, es decir, con esto lo leemos completo.
Espero que te sirva
Saludos
un ejemplo
Dim Aux as String
Dim Archivo as String
Archivo = App.Path & \"\\Archivo.txt\"
Open Archivo For Input As #1
Aux = Input(Filelen(Archivo), #1)
Close 1
Text1.Text = Aux
Filelen(Archivo) retorna la cantida total de bytes del archivo, es decir, con esto lo leemos completo.
Espero que te sirva
Saludos