Nesse vídeo demonstraremos a utilização da função MemoRead, que serve para ler um arquivo e retornar seu conteúdo (com a limitação de 64 kb).

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

//Bibliotecas
#Include "Totvs.ch"

/*/{Protheus.doc} User Function zExe344
Retorna o conteúdo de um arquivo (todas as linhas), com a limitação de 64 kb
@type Function
@author Atilio
@since 22/03/2023
@see https://tdn.totvs.com/display/tec/MemoRead
@obs 

    Função MemoRead
    Parâmetros
        + cFile       , Caractere     , Indica o nome do arquivo a ser lido
        + lChangeCase , Lógico        , Se verdadeiro o nome do arquivo será considerado tudo minúsculo
    Retorno
        + cRet        , Caractere     , Retorna o conteúdo do arquivo (com a limitação de 64 kb)

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

User Function zExe344()
	Local aArea := FWGetArea()
    Local cArquivo := "C:\spool\exemplo_query.sql"
    Local cConteudo := ""

    //Se o arquivo existir
    If File(cArquivo)
        //Realiza a leitura do arquivo para uma variável
        cConteudo := MemoRead(cArquivo)

        //Exibe o conteúdo lido
        ShowLog(cConteudo)
    EndIf

    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLMaratonaProtheusTL++