Nesse vídeo demonstraremos a utilização da função FileToArr, que serve para ler um arquivo (na máquina que está executando o SmartClient) e jogar todas as linhas de seu conteúdo em um array.
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas
#Include "TOTVS.ch"
/*/{Protheus.doc} User Function zExe180
Faz a leitura de um arquivo para um Array
@type Function
@author Atilio
@since 20/12/2022
@obs
Função FileToArr
Parâmetros
+ Nome do arquivo completo com a pasta (pode ser local ou dentro da Protheus Data)
Retorno
+ Array com o conteúdo do arquivo sendo cada posição 1 linha do arquivo
**** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/
User Function zExe180()
Local aArea := FWGetArea()
Local cArqCompl := "C:\spool\log_auto.txt"
Local aConteudo := {}
//Busca o conteúdo do arquivo na máquina
aConteudo := FileToArr(cArqCompl)
FWAlertInfo("Foi encontrado " + cValToChar(Len(aConteudo)) + " linha(s) de conteúdo", "Teste com FileToArr")
FWRestArea(aArea)
Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.
