Microsig@ ADVPL

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 ...