Pular para o conteúdo principal

Postagem em destaque

BlackTDN :: Algoritmo :: Explorando Compressão de Dados com o Projeto naldodj-hb-huffman (xBase)

✨ **Explorando Compressão de Dados com o Projeto naldodj-hb-huffman** ✨ Recentemente, desenvolvi o **hb-huffman**, uma implementação do algoritmo de Huffman em Harbour, focada em estudo e aprendizado. Este projeto é uma oportunidade de mergulhar nos conceitos de compressão e descompressão de dados sem perdas, combinando a simplicidade da linguagem Harbour com otimizações em C para maior eficiência. ### 🔍 Sobre o Projeto O algoritmo de Huffman é uma técnica clássica que utiliza a frequência de símbolos para criar códigos binários otimizados, reduzindo o tamanho de textos sem perder informações. No **naldodj-hb-huffman**, implementei uma versão prática e otimizada desse método, ideal para quem deseja entender como a compressão funciona na prática. O projeto inclui: ✅ **Construção Dinâmica da Árvore**: Baseada em frequências calculadas ou fornecidas. ⚡ **Otimização em C**: Funções como `StrOccurs` aceleram a contagem e manipulação de caracteres. 📚 **Flexibilidade**: Suporta desd...

PowerShell :: Lendo o Conteúdo de uma Planilha Excel

No “Post” Anterior: “PowerShell :: Trabalhando com o Excel” vimos como criar e manipular valores em uma Planilha Excel. Agora vamos ler/obter os valores a Partir de uma planilha.

Usando o Excel, crie uma Planilha com as seguintes dados:

PS_COM_READ_EXCEL_00

Salve em c:\Pasta1.xls.

Agora, usando o “PowerGUI Script Editor”  vamos abri-la e ler o conteúdo de cada Célula usando o seguinte “Script”

# -----------------------------------------------------
function Release-Ref ($ref) {
([System.Runtime.InteropServices.Marshal]::ReleaseComObject(
[System.__ComObject]$ref) -gt 0)
[System.GC]::Collect()
[System.GC]::WaitForPendingFinalizers()
}
# -----------------------------------------------------
$objExcel = new-object -comobject excel.application 
$objExcel.Visible = $True 
$objWorkbook = $objExcel.Workbooks.Open("C:\Pasta1.xls")
$objWorksheet = $objWorkbook.Worksheets.Item(1)
$intRow = 2
Do {
    "Codigo: " + $objWorksheet.Cells.Item($intRow, 1).Value()
    "Descricao: " + $objWorksheet.Cells.Item($intRow,2).Value()
    "Valor: " + $objWorksheet.Cells.Item($intRow,3).Value()
    $intRow++
}
While ($objWorksheet.Cells.Item($intRow,1).Value() -ne $null)
$objExcel.Quit()
$a = Release-Ref($objWorksheet)
$a = Release-Ref($objWorkbook)
$a = Release-Ref($objExcel)

(baseado no original obtido em: Microsoft | TechNet)

PS_COM_READ_EXCEL_01 

PS_COM_READ_EXCEL_02 

Para extender às suas necessidades e aplicativos é só usar a criatividade e o “Google” para maiores referências.

“Saída pela Esquerda!”

[]s
иαldσ dj

Comentários

  1. Interessante esse PS...

    Vou dar uma pesquisada com mais calma.

    Abs!

    ResponderExcluir
  2. Muito obrigado por não me ajudar em nada...

    ResponderExcluir
  3. Naldo, tem como importar em harbour um planilha do excel ?

    ResponderExcluir
  4. Alguém sabe como manipular planilhas do o365 online no Power Shell ?

    ResponderExcluir

Postar um comentário

Postagens mais visitadas