TOTVSTEC

Árvore de páginas

Versões comparadas

Versão antiga 5

changes.mady.by.user Paulo Reinaldo Tovo Filho

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Gabriel de Jesus Santos Cunha

Gravado em

Chave

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

Pagetitle
GetResArray
GetResArray

...

Bloco de código
collapsefalse
GetResArray( < cMask >, [ nRPO ] )

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


nRPO

numérico

Indica o nome do repositório que será feita a busca. Valores possíveis: 1 - RPO Padrão, 2 - RPO TLPP, 3 - RPO Custom. Caso o parâmetro não seja informado, a busca sera realizada em todos os repositórios citados. Este parâmetro é válido a partir a release 20.3.0.x (Application Server Harpia) 



Retorno

Nome

Tipo

Descrição

aRet

vetor

Resources do repositório

Informações
icontrue
titleObservações
  • Resources retornados com nome em caixa alta.

...

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 com extensão formada por 3 letras onde a terceira é "g".
// Ex: png e jpg
  aFontes := GetResArray("*.??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

// Teste 3 - Retorna todos arquivos com extensão .png do RPO Custom
// Exemplo válido a partir da versão 20.3.0.x

aFontes := GetResArray("*.png", 3)
tFontes = len(aFontes)
if tFontes else> 0
for nI := 1 MsgInfo("Nenhum fonte encontradoto tFontes
conout("Fonte ["+aFontes[nI]+"] encontrado no RPO Custom!")
next
MsgInfo("Fontes encontrados no RPO Custom. Verifique no console.","Resultado")
else
MsgInfo("Nenhum fonte encontrado no RPO Custom.")
endif
Return

Abrangência

Microsiga Protheus 8.11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server20.3.0.x

Veja também