Comunidad Gambas-es

Tengo una carpeta en el proyecto donde hay cuatro archivos de texto. 1.text, 2.text......
Como hago para cargarlos al azar en un textarea?

PUBLIC SUB Form_Open()
DIM TEXTO AS File

TextArea1.Text = TEXTO.Load("Textos/" & Int(Rnd(1, 5)) & ".txt")

END
ó
DIM TEXTO AS File

TextArea1.Text = TEXTO.READ("Textos/" & Int(Rnd(1, 5)) & ".txt")

END
No me funciona.

Hola
No necesitas esa variable TEXTO.



user.home devuelve tu home. A eso le añades /Texto. Luego calculas un valor entero entre 1 y 5 y se lo anexas y luego e. .txt. Abres ese archivo y el contenido lo metes en el textarea.

Declaras una variable de tipo file cuando quieres hacer otras cosas en las que no entro por no hacer mas espeso.

Gracias

ivanovichenco escribió: [Ver mensaje]

DIM TEXTO AS File

Hola

Sólo a modo de apunte, decir que los nombres de variables no deberías ponerlos en mayúsculas, ya que por convención (prácticamente en todos los lenguajes de programación) las mayúsculas se suelen usar en la declaración de constantes, facilitando así la lectura del código e identificación de objetos.


Saludos

Sigo con el problema pues no me quiso cargar. Dice que no existe el archivo.

PUBLIC SUB Form_Open()
DIM Texto AS File
Textarea1.text = File.load(user.home &/ "Textos/" & CInt(Rnd(1, 5)) & ".txt")
END

Pero hombre, tu mira lo que estás intentando cargar que será lo que tengas en tu home y dentro en un directorio Textos y allí algo como 1.txt o 5.txt.

Yo no sé lo que tienes en tu home. Podría ser la T de "Textos" ¿como quieres que yo lo sepa?

Lo que estás cargando allí es Textos/X.txt en tu home donde X es entre 1 y 5. Si allí no está el fichero ese pues claro que tienes error pero yo no puedo saber donde está. Me limito a dar la direccion que tu pusiste al principio.

Aparte ¿que es eso de Dim file as file? quita esa línea.

Cargar textos
Mira, este es mi problemita y no le saco punta por ningun lado.
gambas 2.22

¿Y has comprobado que en /home/usuario/Textos está el archivo X.txt?

Soplo,ya quedo solucionado, Gracias. Así cargan, les quité el path user.home.

PUBLIC SUB Form_Open()
DIM Texto AS File
Textarea1.text = File.load("Textos/" & CInt(Rnd(1, 5)) & ".txt")
END