Archivos de texto
Hola ten go que hacer que los captions de unos botones sean leídos desde un archivo de texto y no tengo idea de como leer escribir y manejar archivos de texto. Cualquier tipo de ayuda es apreciada.
Gracias
Gracias
Respuesta de leosoft
1
Te paso una rutinas fáciles para leer y guardar textos en un archivo,
Primero declara estas variables:
Dim Archivo as String
Dim Datos as String
ahora para guardar los caption de los botones pone:
Archivo = "nombre del archivo que quieres generar"
Open Archivo For Output as #1
Print #1, Command1.Caption
Print #1, Command2.Caption
'esto lo repites para cada boton que quieras
Close #1
ahora para leer haces algo parecido:
Open Archvio For Input as #1
Input #1, Command1.Caption
Input #1, Command2.Caption
'esto tambien lo repites para cada boton
Close #1
Fíjate que los textos te van a quedar uno debajo del otro, el comando Print hace eso, y al leer, el comano Input te va lleyendo linea a linea.
Primero declara estas variables:
Dim Archivo as String
Dim Datos as String
ahora para guardar los caption de los botones pone:
Archivo = "nombre del archivo que quieres generar"
Open Archivo For Output as #1
Print #1, Command1.Caption
Print #1, Command2.Caption
'esto lo repites para cada boton que quieras
Close #1
ahora para leer haces algo parecido:
Open Archvio For Input as #1
Input #1, Command1.Caption
Input #1, Command2.Caption
'esto tambien lo repites para cada boton
Close #1
Fíjate que los textos te van a quedar uno debajo del otro, el comando Print hace eso, y al leer, el comano Input te va lleyendo linea a linea.
Usando el código de leer me sale el error de compilación
Es necesaria una variable, no se puede asignar a esta expresión y me subrata caption en Input #1, Command1.Caption
Es necesaria una variable, no se puede asignar a esta expresión y me subrata caption en Input #1, Command1.Caption
Proba a colocar dentro de una variable antes de enviar a los caption.
Open Archvio For Input as #1
Input #1, Dato
Command1.Caption = Dato
Input #1, Dato
Command2.Caption = Dato
'lo repites para cada boton
Close #1
Cualquier duda estoy a tu disposición.
Open Archvio For Input as #1
Input #1, Dato
Command1.Caption = Dato
Input #1, Dato
Command2.Caption = Dato
'lo repites para cada boton
Close #1
Cualquier duda estoy a tu disposición.
