Grava um conteúdo em um arquivo texto

Exemplo da Rotina:

MemoWrite("Diretório", "Conteúdo")

Exemplo 1- Gerando um log simples:

cArquivo  := "C:\teste\arquivo.txt"
cMensagem := "Log de Teste"

MemoWrite(cArquivo, cMensagem)

Exemplo 2- Gerando um log simples na temporária do sistema operacional:

cArquivo  := GetTempPath() + "arquivo.txt"
cMensagem := "Log de Teste"

MemoWrite(cArquivo, cMensagem)

Exemplo 3- Gerando um log simples dentro de uma pasta da Protheus Data:

cArquivo  := "\x_pasta\arquivo.txt"
cMensagem := "Log de Teste"

MemoWrite(cArquivo, cMensagem)

Exemplo 4- Gerando um log de uma query SQL:

//Criando a consulta
cQuery := " SELECT "
cQuery += " 	BM_GRUPO, "
cQuery += " 	BM_DESC "
cQuery += " FROM "
cQuery += " 	SBM010 SBM "
cQuery += " WHERE "
cQuery += " 	SBM.D_E_L_E_T_ = ' ' "
TCQuery cQuery New Alias "QRY_SBM"

//Gerando o arquivo de log
cArquivo  := "C:\teste\query_sql.txt"
MemoWrite(cArquivo, cQuery)

 

Exemplo em Vídeo:

Clique nesse link para ver um exemplo em Vídeo da nossa Maratona de Exemplos.

 

Observações:

– Caso tenha dúvidas ou problemas com os exemplos, entre em contato;

– Se tiver sugestões de rotinas, pode entrar em contato;