Criando arquivos Texto no Protheus

Um pequeno fonte para servir de referência para quando você precisar criar arquivos texto usando ADVPL: 

aLinha := {}

aadd(aLinha, "Primeira linha do arquivo")
aadd(aLinha, "Segunda linha do arquivo")
aadd(aLinha, "Terceira linha do arquivo")

nArquivo := fcreate("\temp\ARQUIVO.TXT", FC_NORMAL)
if ferror() # 0
   msgalert ("ERRO AO CRIAR O ARQUIVO, ERRO: " + str(ferror()))
   lFalha := .t.
else
   for nLinha := 1 to len(aLinha)
       fwrite(nArquivo, aLinha[nLinha] + chr(13) + chr(10))
       if ferror() # 0
          msgalert ("ERRO GRAVANDO ARQUIVO, ERRO: " + str(ferror()))
          lFalha := .t.
       endif
   next
endif
fclose(nArquivo)


• E Lembre-se de incluir no topo de seu fonte:

#Include 'FILEIO.CH'

• Observação:

Valor	Fileio.ch	Atributo	Descrição
0	FC_NORMAL	Normal	Permite a leitura e a gravação do arquivo.
1	FC_READONLY	Apenas leitura	Permite apenas a leitura do arquivo. A tentativa de gravá-lo fornece uma condição de erro.
2	FC_HIDDEN	Oculto	O nome do arquivo não é apresentado na pasta.
4	FC_SYSTEM	Sistema	O nome do arquivo não é apresentado na pasta.

Quem viu este post, também viu: Criando arquivos de trabalho