Pular para o conteúdo principal

Postagem em destaque

BlackTDN :: LeetCode 23: Mesclando K Listas Ordenadas com Harbour/xBase e Reutilização de Código

_Créditos das imagens: ChatGPT **Título:** LeetCode 23: Mesclando K Listas Ordenadas com Harbour/xBase e Reutilização de Código **Introdução** Olá, entusiastas de Harbour/xBase e desafios de programação! Depois de explorarmos como mesclar duas listas ordenadas no [nosso post sobre o LeetCode 21](https://www.blacktdn.com.br/2025/03/blacktdn-leetcode-21-merge-two-sorted.html), vamos dar um passo adiante e enfrentar um problema um pouco mais complexo: o LeetCode 23 - Merge K Sorted Lists. Neste artigo, vamos desvendar uma implementação em Harbour/xBase para este desafio, demonstrando como podemos inteligentemente reutilizar a solução que já construímos para o problema 21. Veremos como a modularidade e a construção sobre soluções anteriores podem simplificar problemas mais complexos. **O Problema: LeetCode 23 - Merge K Sorted Lists** O desafio é o seguinte: dado um array (`aLists` em nossa implementação) contendo `k` listas encadeadas, onde cada lista já está ordenada em ordem cres...

Windows® PowerShell® "Script" para sincronização do Repositório do Protheus


Hoje Postarei uma nova dica de como criar um "script", utilizando o Windows® PowerShell® para sincronizar os "Repositórios de Objetos" do Protheus entre o ambiente de desenvolvimento e o de produção.

Crie o arquivo syncApos.ps1 e, utilizando um editor de texto de sua preferência (Notepad, Notepad++ ou Edit, etc.), inclua o código abaixo e altere-o de forma a adequar-se às suas necessidades.

Tendo feito isso basta criar um agendamento utilizando o Agendador de Tarefas do Windows® ("Task Manager") e seus repositórios serão sincronizados.

$find = ""
$pathbin = "d:\totvs\p10\bin"
$iniFile = "totvs*.ini"
$rpospath = "d:\totvs\p10\rpos\"
$rposmatch = get-childitem -path $rposPath
$rpoName = "tttp101.rpo"
foreach( $pathrpo in $rposmatch )
{
$pathrpoName = $pathrpo.Name
$find00 = "sourcepath=d:\\totvs\\p10\\rpos\\$pathrpoName\\rpo00\\"
$find01 = "sourcepath=d:\\totvs\\p10\\rpos\\$pathrpoName\\rpo01\\"
$find02 = "sourcepath=d:\\totvs\\p10\\rpos\\$pathrpoName\\rpo02\\"
$find03 = "sourcepath=d:\\totvs\\p10\\rpos\\$pathrpoName\\rpo03\\"
$find04 = "sourcepath=d:\\totvs\\p10\\rpos\\$pathrpoName\\rpo04\\"
$match = get-childitem -path $pathbin -include $iniFile -recurse | select-string $find00 -list
if ( $match -match $find00 )
{
$find = $find00
$TargetFilePathRpoSync = "d:\totvs\p10\rpos\$pathrpoName\rpo01\"
}
else
{
$match = get-childitem -path $pathbin -include $iniFile -recurse | select-string $find01 -list
if ( $match -match $find01 )
{
$find = $find01
$TargetFilePathRpoSync = "d:\totvs\p10\rpos\$pathrpoName\rpo02\"
}
else
{
$match = get-childitem -path $pathbin -include $iniFile -recurse | select-string $find02 -list
if ( $match -match $find02 )
{
$find = $find02
$TargetFilePathRpoSync = "d:\totvs\p10\rpos\$pathrpoName\rpo03\"
}
else
{
$match = get-childitem -path $pathbin -include $iniFile -recurse | select-string $find03 -list
if ( $match -match $find03 )
{
$find = $find03
$TargetFilePathRpoSync = "d:\totvs\p10\rpos\$pathrpoName\rpo04\"
}
else
{
$find = $find04
$TargetFilePathRpoSync = "d:\totvs\p10\rpos\$pathrpoName\rpo00\"
}
}
}
}
$replace = "sourcepath="
if( !$TargetFilePathRpoSync.endsWith("\")) { $TargetFilePathRpoSync+="\" }
$replace += $TargetFilePathRpoSync
$TargetFilePathRpoSync += $rpoName
$SourceFilePathRpoSync = "\\100.0.9.75\p10rpo$\$pathrpoName\rpo00\"
$SourceFilePathRpoSync += $rpoName
if((get-item $SourceFilePathRpoSync).lastWriteTime -gt (get-item $TargetFilePathRpoSync).lastWriteTime)
{
copy-item $SourceFilePathRpoSync $TargetFilePathRpoSync -force
get-childitem -path $pathbin -include $iniFile -recurse | select-string $find -list |% { (get-content $_.Path) |% { $_ -replace $find, $replace } | set-content $_.Path ; while( (Get-Item $_.Path).Length -eq 0 ){ set-content $_.Path } }
}
}

Comentários

Postagens mais visitadas