Autor |
Mensaje |
ivanovichenco
Ingeniero Programador
Registrado: Septiembre 2010
Mensajes: 274
Edad: 66 Ubicación: Neiva, Huila, Rep. de Colombia
|
Cargar Al Azar Textos En Un Textarea
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.
|
#1 Sabado, 18 Junio 2011, 17:55 |
|
|
soplo
Analista Programador
Registrado: Septiembre 2009
Mensajes: 843
Edad: 44
|
Re: Cargar Al Azar Textos En Un Textarea
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.
|
#2 Sabado, 18 Junio 2011, 18:22 |
|
|
ivanovichenco
Ingeniero Programador
Registrado: Septiembre 2010
Mensajes: 274
Edad: 66 Ubicación: Neiva, Huila, Rep. de Colombia
|
Re: Cargar Al Azar Textos En Un Textarea
Gracias
|
#3 Sabado, 18 Junio 2011, 18:32 |
|
|
jguardon
Administrador
Registrado: Septiembre 2009
Mensajes: 2708
Edad: 57 Ubicación: Granada
|
Re: Cargar Al Azar Textos En Un Textarea
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
=================== Jesús Guardón
Por favor, usemos el corrector ortográfico antes de pulsar el botón "Enviar".
"uo ǝs ʇɐu pıɟıɔıן ɐdɹǝupǝɹ ɐ dɹoƃɹɐɯɐɹ, soןo ɥɐʎ bnǝ dɹodouǝɹsǝןo"
|
#4 Sabado, 18 Junio 2011, 19:54 |
|
|
ivanovichenco
Ingeniero Programador
Registrado: Septiembre 2010
Mensajes: 274
Edad: 66 Ubicación: Neiva, Huila, Rep. de Colombia
|
Re: Cargar Al Azar Textos En Un Textarea
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
última edición por ivanovichenco el Domingo, 19 Junio 2011, 02:12; editado 2 veces
|
#5 Sabado, 18 Junio 2011, 23:34 |
|
|
soplo
Analista Programador
Registrado: Septiembre 2009
Mensajes: 843
Edad: 44
|
Re: Cargar Al Azar Textos En Un Textarea
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.
última edición por soplo el Sabado, 18 Junio 2011, 23:49; editado 1 vez
|
#6 Sabado, 18 Junio 2011, 23:47 |
|
|
ivanovichenco
Ingeniero Programador
Registrado: Septiembre 2010
Mensajes: 274
Edad: 66 Ubicación: Neiva, Huila, Rep. de Colombia
|
Re: Cargar Al Azar Textos En Un Textarea
Cargar textos
Mira, este es mi problemita y no le saco punta por ningun lado.
gambas 2.22
última edición por ivanovichenco el Domingo, 19 Junio 2011, 01:11; editado 1 vez
|
#7 Domingo, 19 Junio 2011, 01:10 |
|
|
soplo
Analista Programador
Registrado: Septiembre 2009
Mensajes: 843
Edad: 44
|
Re: Cargar Al Azar Textos En Un Textarea
¿Y has comprobado que en /home/usuario/Textos está el archivo X.txt?
|
#8 Domingo, 19 Junio 2011, 01:52 |
|
|
ivanovichenco
Ingeniero Programador
Registrado: Septiembre 2010
Mensajes: 274
Edad: 66 Ubicación: Neiva, Huila, Rep. de Colombia
|
Re: Cargar Al Azar Textos En Un Textarea(Solucionado)
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
última edición por ivanovichenco el Domingo, 19 Junio 2011, 02:11; editado 2 veces
|
#9 Domingo, 19 Junio 2011, 02:09 |
|
|
|