lunes, 7 de mayo de 2012

Crear Archivos .txt y/o .sql

En el ejemplo creo un archivo .sql a partir de un mle_1.text, ya le daran la utilidad que deseen y dependiendo del requerimiento de cada uno. En mi caso lo hice en el evento clicked de un boton.

//Exportar a un archivo
Int li_archivo
String ls_registro ,as_path_salida,as_archivo
as_path_salida     ='C:\Trigger\'
as_archivo = 'generado.sql'
CreateDirectory ( as_path_salida ) //crea la carpeta si no existe
//borramos el archivo si existiera
FILEDELETE(as_path_salida + as_archivo )
//Abrimos el archivo
li_archivo= FileOpen(as_path_salida + as_archivo ,LineMode!,Write!,lockwrite!)
ls_registro=mle_1.text
FileWrite(li_archivo, ls_registro)
FileClose(li_archivo)
messagebox( "Atención", 'Archivo guardado en: '+as_path_salida)