RESOURCE LIST

versión 6.0

RESOURCE LIST (resTipo; resNums; resNoms{; resArchivo})

El comando RESOURCE LIST llena los arrays resNums y resNoms con los números y los nombres de los recursos cuyo tipo se pasa en resTipo.

Importante: Debe pasar una cadena de 4 caracteres en resTipo.

Si pasa un número de referencia de archivo de recursos válido en el parámetro opcional resArchivo, sólo se listan los recursos presentes en este archivo. Si no pasa resArchivo, se listan todos los recursos de los archivos de recursos abiertos.

Si predeclara los arrays antes de llamar a RESOURCE LIST, debe predeclarar resNums como un array de tipo Entero largo y resNoms como un array de tipo Alfa o Texto. Si no predecla los arrays, el comando crea resNums como un array de tipo Entero largo y resNoms como un array de tipo Texto.

Después de la llamada, puede probar el número de recursos encontrados aplicando el comando Size of Array al array resNums o resNoms.

1. El siguiente ejemplo llena los arrays $alResNum y $atResNom con los números y los nombres de recursos de tipo lista de cadenas presentes en el archivo de estructura de la base:

   If (On Windows)
      $vhEstructuraResArchivo:=Open resource file(Replace string(Structure file;".4DB";".RSR"))
   Else
      $vhEstructuraResArchivo:=Open resource file(Structure file)
   End if
   If (OK=1)
      RESOURCE LIST("STR#";$alResNum;$atResNom;$vhEstructuraResArchivo)
   End if

2. El siguiente ejemplo copia los recursos imagen presentes en todos los archivos de recursos abiertos en la librería de imágenes de la base:

   RESOURCE LIST("PICT";$alResNum;$atResNom)
   Open window(50;50;550;120;5;"Copia de los recursos PICT...")
   For ($vlElem;1;Size of array($alResNum))
      GET PICTURE RESOURCE($alResNum{$vlElem};$vgImagen)
      If (OK=1)
         $vsNombre:=$atResNom{$vlElem}
         If ($vsNombre="")
            $vsNombre:="PICT resNum="+String($alResNum{$vlElem})
         End if 
         ERASE WINDOW
         GOTO XY(2;1)
         MESSAGE("Añada la imagen ""+$vsNombre+""a la librería de imágenes de la base.")
         SET PICTURE TO LIBRARY($vgImagen;$alResNum{$vlElem};$vsNombre)
      End if 
   End for 
   CLOSE WINDOW

RESOURCE TYPE LIST.