Pular para o conteúdo principal

Postagem em destaque

BlackTDN :: LeetCode (17) :: Comparando Implementações do Desafio "Letter Combinations of a Phone Number" em Harbour e TOTVS TLPP

_Créditos das imagens: ChatGPT_ # LeetCode (17) :: Comparando Implementações do Desafio "Letter Combinations of a Phone Number" em Harbour e TOTVS TLPP O desafio [**"Letter Combinations of a Phone Number"**](https://leetcode.com/problems/letter-combinations-of-a-phone-number/description/) (Combinações de Letras de um Número de Telefone) é um problema clássico de programação que envolve a geração de todas as combinações possíveis de letras que um número de telefone pode representar, com base no mapeamento tradicional dos teclados de telefone. Abaixo, comparamos duas implementações desse desafio: uma em **Harbour** e outra em **TOTVS TLPP** (TOTVS Language Plus Plus). ## O Desafio Dada uma string contendo dígitos de 2 a 9, retorne todas as combinações possíveis de letras que esses dígitos podem representar. O mapeamento dos dígitos para as letras é o mesmo dos teclados de telefone tradicionais: - 2: "abc" - 3: "def" - 4: "ghi" - 5: ...

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