Pular para o conteúdo principal

Postagem em destaque

BlackTDN :: LeetCode :: Zigzag Conversion: Implementando Soluções em xBase (Harbour) e TL++

_Créditos das imagens: ChatGPT_ ### LeetCode :: Zigzag Conversion: Implementando Soluções em xBase (Harbour) e TL++ A ["Zigzag Conversion"](https://leetcode.com/problems/zigzag-conversion/description/) é um problema popular do LeetCode que desafia desenvolvedores a transformar uma string em um padrão zigzag com base no número de linhas especificado, para então reconstruir a string seguindo a leitura linha a linha do padrão. Aqui, apresento soluções desenvolvidas em Harbour (XBase) e TL++ com melhorias e detalhes adicionais. --- ### **O Problema** Dado uma string e um número de linhas, distribua os caracteres em um padrão zigzag. Leia as linhas do padrão sequencialmente para obter o resultado: Exemplo: **Input:** String: "PAYPALISHIRING" Linhas: 3 **Padrão Zigzag:** ``` P A H N A P L S I I G Y I R ``` **Output:** "PAHNAPLSIIGYIR" --- ### **Implementação em Harbour** As soluções estão organizadas em dois arquivos principai...

Protheus :: Advpl :: Dica Resources por Sergio E. S. Souza

Sergio E. S. Souza

Fala иαldσ,

estava lendo esse seu post sobre 'resources do repositório' e bolei uma solução simples para obter todas as imagens do rpo para uma pasta executando-a no campo formulas!

Caso julgue interessante adicione ao post.

1ª Opção:

Cria uma pasta predefinida e salva instantaneamente as imagens no drive de instalação do SO.

MakeDir(cDir:=Left(GetTempPath(.T.),3)+cVersao+'_IMG\'),aEval(GetResArray('*.*'),{|x|Resource2File(x,cDir+x) })

2ª Opção:

Permite a seleção da pasta e salva instantaneamente as imagens.

cDir:=cGetFile("Pastas|*","Salvar",,,.F.,176),aEval(GetResArray('*.*'),{|x|Resource2File(x,cDir+x) })

Ficadica!

Abs,

Sergio E. S. Souza

Comentários

Postagens mais visitadas