Nesse vídeo demonstraremos a utilização da função LeTXT, que serve abrir e ler um arquivo texto.

Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:

//Bibliotecas
#Include "TOTVS.ch"

/*/{Protheus.doc} User Function zExe325
Efetua a leitura de um arquivo texto
@type Function
@author Atilio
@since 11/03/2023
@obs 
    Função LeTXT
    Parâmetros
        + Nome do arquivo
        + Bloco de código que será executado a cada linha
    Retorno
        Função não tem Retorno

    Obs.: Para funcionamento correto, o ideal é que no arquivo lido, tenha uma linha vazia no final

    **** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/

User Function zExe325()
    Local aArea     := FWGetArea()
    Local cNomeArq  := "C:\spool\teste.txt"
    Local aConteudo := {}
    Local bBloco    := {|cArquivo, cLinha, nLinha| fAddLinha(aConteudo, cLinha)}

    //Executa a leitura do arquivo texto
    LeTXT(cNomeArq, bBloco)

    //Mostra o resultado
    FWAlertInfo("O array tem " + cValToChar(Len(aConteudo)) + " linha(s)!", "Teste LeTXT")

    FWRestArea(aArea)
Return

Static Function fAddLinha(aConteudo, cLinha)
    //Se houver conteúdo, adiciona no array
    If ! Empty(cLinha)
        aAdd(aConteudo, cLinha)
    EndIf
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLMaratonaProtheusTL++