Create document

versión 11 (Modificado)

Create document (documento{; elTipo}) DocRef

El comando Create document crea un nuevo documento y devuelve su número de referencia.

Pase el nombre o ruta completa del nuevo documento documento. Si documento ya existe en el disco, se sobrescribe. Sin embargo, si documento está bloqueado o abierto, se genera un error.

Si pasa una cadena vacía en documento, aparece una caja de diálogo estándar de registro de archivos y el usuario puede especifica el nombre del documento que quiere crear. Si cancela el diálogo, no se crea el documento; Create document devuelve una referencia de documento nula y la variable OK toma el valor 0.

Si el documento se crea correctamente y se abre, Create document devuelve su número de referencia y la variable OK toma el valor 1. El documento de la variable sistema Document se actualiza y devuelve la ruta de acceso completa del documento creado.

Create document crea por defecto un documento de tipo .TXT (Windows) o TEXT (Macintosh). Para crear otro tipo de documento, pase el parámetro elTipo.

En el parámetro elTipo, puede pasar uno o varios tipos de archivo con el fin de configurar la lista de tipos autorizados en la caja de diálogo. Puede pasar una lista de varios tipos separados por un ; (punto y coma). Para cada tipo definido, se añadirá una línea al menú de elección del tipo de caja de diálogo.

Bajo Mac OS, puede pasar un tipo Mac OS clásico (TEXT, APPL, etc.), o un tipo UTI (Uniform Tipo Identifier). Los tipos UTIs son definidos por Apple para cumplir con las necesidades de estandarización de tipos de archivos. Por ejemplo, "public.text" es el tipo UTI de los archivos de tipo texto. Para mayor información sobre UTIs, consulte la siguiente dirección:

http://developer.apple.com/documentation/Carbon/Conceptual/understanding_utis/index.html.

Bajo Windows, puede pasar igualmente un tipo de archivo clásico Mac OS — 4D efectúa la correspondencia internamente — o la extensión de archivos (.txt, .exe, etc.). Note que bajo Windows, el usuario puede "forzar" la visualización de todos los tipos de archivos introduciendo *.* en la caja de diálogo. Sin embargo, en este caso, 4D efectuará una verificación suplementaria de los tipos de archivos seleccionados: si el usuario selecciona un tipo de archivo no autorizado, el comando devuelve un error.

Si no quiere restringir los archivos mostrados a uno o a más tipos, pase "*" (asterisco) o ".*" en elTipo.

En Windows pase una extensión de archivo Windows o un tipo de archivo Mac OS asociado con la ayuda del comando MAP FILE TYPES. Si quiere crear un documento sin extensión, un documento con varias extensiones, o un documento con una extensión de más de tres caracteres, no utilice el parámetro elTipo y pase el nombre completo en documento (ver ejemplo 2).

Una vez haya creado y abierto un documento, puede escribir o leer los valores del documento utilizando los comandos SEND PACKET y RECEIVE PACKET que puede combinar con los comandos Get document position y SET DOCUMENT POSITION para acceder directamente a ciertas partes del documento.

No olvide llamar finalmente a CLOSE DOCUMENT para el documento.

1. El siguiente ejemplo crea y abre un nuevo documento llamado Nota, escribe la cadena "Hola" y cierra el documento:

   C_TIME(vhDoc) 
   vhDoc:=Create document ("Nota.txt")  ` Crear un nuevo documento llamado Nota 
   If (OK=1) 
      SEND PACKET(vhDoc; "Hola")  ` Escribir una palabra en el documento 
      CLOSE DOCUMENT(vhDoc)  ` Cerrar el documento 
   End if

2. El siguiente ejemplo crea documentos con extensiones que no son estándar en Windows:

   $vtMiDoc:=Create document("Doc.ext1.ext2") `Varias extensiones
   $vtMiDoc:=Create document("Doc.shtml") `Extensión larga
   $vtMiDoc:=Create document("Doc.") `Sin extensión (el punto "." es obligatorio)

Si el documento se crea correctamente, la variable sistema OK toma el valor 1 y la variable sistema Document contiene la ruta completa y el nombre del archivo documento.

Append document, Open document.