Histórico da Página
...
- Resources retornados com nome em caixa alta.
- Função disponível a partir da build 7.00.080806P.
Exemplos
| Bloco de código | ||||||||
|---|---|---|---|---|---|---|---|---|
| ||||||||
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
Return
|
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas