Nesse vídeo demonstraremos a utilização da função FileSrvToArr, que serve para ler um arquivo (dentro da Protheus Data) 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 zExe179
Faz a leitura de um arquivo da Protheus Data para um Array
@type Function
@author Atilio
@since 20/12/2022
@obs
Função FileSrvToArr
Parâmetros
+ Nome do arquivo completo com a pasta (pode ser local ou dentro da Protheus Data)
+ Indica onde será feito a pesquisa do arquivo (0=acesso conforme path; 1=diretório de instalação do AppServer; 2=Diretório de instalação do SmartClient)
+ Se for .T. o nome será convertido tudo para minúsculo senão se for .F. mantém o nome original como veio
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 zExe179()
Local aArea := FWGetArea()
Local cArqCompl := "\x_logs\log_auto.txt"
Local aConteudo := {}
//Busca o conteúdo do arquivo no servidor
aConteudo := FileSrvToArr(cArqCompl)
FWAlertInfo("Foi encontrado " + cValToChar(Len(aConteudo)) + " linha(s) de conteúdo", "Teste com FileSrvToArr")
FWRestArea(aArea)
Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.
