ARRAY TO STRING LIST

versión 6.0

ARRAY TO STRING LIST (cadenas; resNum{; resArchivo})

El comando ARRAY TO STRING LIST crea o reescribe el recurso lista de cadenas ("STR#") cuyo número se pasa en resNum. El contenido del recurso se crea a partir de las cadenas de caracteres que se pasan en el array cadenas. El array puede ser de tipo alfa o texto.

Si no es posible añadir el recurso, la variable OK toma el valor 0 (cero).

Si pasa un número de referencia de archivo de recursos válido en resArchivo, el recurso se añade a ese archivo. Si no pasa resArchivo, el recurso se añade al primer archivo de la cadena de archivos de recursos (el último archivo de recursos abierto).

Nota: Cada cadena de un recurso lista de cadenas puede contener hasta 255 caracteres.

Tip: Cuando utilice los recursos listas de cadenas, limítese a recursos de 32K, y a un máximo de unas centenas de cadenas por recurso.

Su base de datos se basa en un conjunto de fuentes dado.

En el On Exit Database Method, escribe:

      ` Método de base On Exit
   If (<>vbFuentesEstanOK)
      FONT LIST($atFuente)
      $vhResArchivo:=Open resource file("FontSet")
      If (OK=1)
         ARRAY TO STRING LIST($atFuente;15000;$vhResArchivo)
         CLOSE RESOURCE FILE($vhResArchivo)
      End if
   End if

En el Método de base On Startup, escribe:

      ` Método de base On Startup
   <>vbFuentesEstanOK:=False
   FONT LIST($atNuevaFuente)
   If (Test path name("FontSet")#Is a document)
      $vhResArchivo:=Create resource file("FontSet")
   Else
      $vhResArchivo:=Open resource file("FontSet")
   End if
   If (OK=1)
      STRING LIST TO ARRAY(15000;$atOldFuente;$vhResArchivo)
      If (OK=1)
         <>vbFuentesEstanOK:=True
         For($vlElem;1;Size of array($atNuevaFuente))
            If ($atNewFont{$vlElem}#($atOldFuente{$vlElem}))
               $vlElem:=MAXLONG
               <>vbFuentesEstanOK:=False
            End if
         End for
      Else
         <>vbFuentesEstanOK:=True
      End if
      CLOSE RESOURCE FILE($vhResFile)
   End if
   If(Not(<>vbFuentesEstanOK))
      CONFIRM("Usted no está utilizando el mismo conjunto de fuentes, ¿OK?")
      If(OK=1)
         <>vbFuentesEstanOK:=True
      Else
         QUIT 4D
      End if
   End if

SET STRING RESOURCE, SET TEXT RESOURCE, STRING LIST TO ARRAY.

La variable sistema OK toma el valor 1 si se ha escrito el recurso, de lo contrario toma el valor 0 (cero).