Grava um conteúdo em um arquivo texto
Exemplo da Rotina:
1 | MemoWrite("Diretório", "Conteúdo") |
Exemplo 1- Gerando um log simples:
1 2 3 4 | cArquivo := "C:\teste\arquivo.txt"cMensagem := "Log de Teste"MemoWrite(cArquivo, cMensagem) |
Exemplo 2- Gerando um log simples na temporária do sistema operacional:
1 2 3 4 | cArquivo := GetTempPath() + "arquivo.txt"cMensagem := "Log de Teste"MemoWrite(cArquivo, cMensagem) |
Exemplo 3- Gerando um log simples dentro de uma pasta da Protheus Data:
1 2 3 4 | cArquivo := "\x_pasta\arquivo.txt"cMensagem := "Log de Teste"MemoWrite(cArquivo, cMensagem) |
Exemplo 4- Gerando um log de uma query SQL:
1 2 3 4 5 6 7 8 9 10 11 12 13 | //Criando a consultacQuery := " 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 logcArquivo := "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;