Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Composition Setup
import.css=/download/attachments/3279126062824/newLayouttecnologia.css
Portuguese

Pagetitle

...

GetResArray

GetResArray

Retorna

...

um

...

array

...

com

...

os

...

resources

...

do

...

repositório

...

baseado na pesquisa por nome ou máscara.

Sintaxe

Bloco de código
collapsefalse
GetResArray( <
cMask> ) --> aList
 cMask > )

Parâmetros

...

Nome

Tipo

Descrição

Obrigatório

Referência

cMask

...

caractere

Indica

...

o nome do resource ou máscara que será

...

usada na pesquisa. Serão aceitos caracteres curingas '*' e '?'.

X

 

Retorno

Nome

Tipo

Descrição

aRet

vetor

Resources do repositório

Observações

  • Resources retornados com nome em caixa alta.
  • Função disponível a partir da build 7.00.080806P.

Exemplos

Bloco de código
languagecpp
themeEclipse
linenumberstrue
collapsefalse
user function Exemplo ()
  Local aFontes := nil
  Local tFontes := 0
  Local nI := 0

  // Teste 1 - Retorna todos arquivos com extensão .png
  aFontes := GetResArray("*.png")
  tFontes = len(aFontes)
  if tFontes > 0
    for nI := 1 to tFontes
      conout("Fonte ["+aFontes[nI]+"] encontrado!")
    next
    MsgInfo("Fontes encontrados. Verifique no console.","Resultado")
  else
    MsgInfo("Nenhum fonte encontrado.","Resultado")
  endif
  
  // Teste 2 - Retorna todos arquivos que tenham a extensão formada por 3 letras onde a terceira é "g". Ex: png e jpg
  aFontes
    aList(vetor)
  • Retorna um array com a lista dos resources localizados.
// Resgata lista dos resources no formato *.NGCOaListCons
 := GetResArray("*
.NGCO")
.??g")
  tFontes = len(aFontes)
  if tFontes > 0
    for nI := 1 to tFontes
      conout("Fonte ["+aFontes[nI]+"] encontrado!")
    next
    MsgInfo("Fontes encontrados. Verifique no console.","Resultado")
  else
    MsgInfo("Nenhum fonte encontrado.","Resultado")
  endif
Return

Abrangência

Microsiga Protheus 8.11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server

Veja também