Cómo escribir un programa que se guarda como un cuadro de diálogo en programación vfp
PUTFILE([cCustomText] [, cFileName] [, cFileExtensions])
Valor de retorno
Tipo de carácter
Parámetros
cCustomText
Especifica el título que se muestra en la parte superior del cuadro de diálogo "Guardar como...".
cFileName
Especifica el nombre de archivo predeterminado que se muestra en el cuadro de texto.
cFileExtensions
Especifique la extensión del archivo. Cuando la casilla de verificación Todos los archivos está desactivada, solo los nombres de archivos con la extensión especificada se muestran en la lista desplazable del cuadro de diálogo Guardar como.... Si el nombre de archivo ingresado no contiene una extensión, la primera extensión en cFileExtensions se agrega automáticamente al nombre del archivo. Para obtener una lista de extensiones de archivo y tipos de generador correspondientes en Visual FoxPro, consulte Extensiones de archivo y tipos de archivo.
La expresión de caracteres cFileExtensions puede tener una de las siguientes formas:
cFileExtensions puede contener una única extensión (como PRG). Solo se muestran los nombres de archivos con esta extensión.
cFileExtensions puede contener una lista de extensiones de archivo separadas por punto y coma. Por ejemplo, si incluye PRG;FXP, Visual FoxPro muestra todos los nombres de archivos con las extensiones PRG y FXP.
Si los nombres de los archivos tienen el mismo nombre base pero diferentes extensiones (por ejemplo, CLIENTE.PRG y CLIENTE.FXP), Visual FoxPro muestra el archivo cuya extensión es la primera en cFileExtension.
cFileExtensions puede contener una lista de extensiones de archivos separadas por barras verticales, como PRG|FXP. En este caso, Visual FoxPro muestra todos los nombres de archivos con la extensión especificada, incluso si los archivos tienen el mismo nombre base.
Si cFileExtensions contiene sólo un punto y coma (;), Visual FoxPro muestra todos los nombres de archivos sin extensiones.
Si cFileExtensions es una cadena vacía, Visual FoxPro muestra todos los nombres de archivos en el directorio actual.
Si cFileExtensions contiene caracteres comodín de MS-DOS, como un signo de interrogación (?) y un asterisco (*), Visual FoxPro muestra todos los nombres de archivos cuyas extensiones cumplan con los criterios del comodín. Por ejemplo, si cFileExtensions contiene ?X?, se mostrarán archivos con extensiones .FXP, .EXE, .TXT, etc.
Observaciones
Puede utilizar PUTFILE() para seleccionar un nombre de archivo existente o especificar un nuevo nombre de archivo PUTFILE() devuelve un nombre de archivo y su ruta. Si no se ingresa ningún nombre de archivo, PUTFILE( ) devuelve el nombre de archivo predeterminado (especificado por cFileName) y la extensión (especificada por cFileExtensions si se selecciona Cancelar o se presiona la tecla ESC, PUTFILE( ) devuelve una cadena vacía. Puede utilizar el nombre de archivo devuelto por PUTFILE( ) para nombrar un archivo y guardarlo en el disco.
Ejemplo
El siguiente ejemplo crea un archivo de datos delimitado a partir de cualquier tabla almacenada seleccionada por el usuario. getfile() se usa para buscar y abrir una tabla, y putfile() se usa para devolver el nombre del archivo de destino.
gcTableName = GETFILE('DBF', 'Open Table:')
USE (gcTableName)
gcDelimName = ALIAS() + '.DLM'
gcDelimFile = PUTFILE('Archivo delimitado:', gcDelimName, 'DLM')
IF EMPTY(gcDelimFile) && Esc presionado
Cancelar
ENDIF
COPIAR A (gcDelimFile) DELIMITED && Crear archivo delimitado
MODIFICAR ARCHIVO (gcDelimFile) NOEDIT