MemoWrite – Escrevendo e Salvando Um Arquivo Texto

Adilio Costa 7 comentários

Tempo de leitura: 1 minuto

Olá, a função MemoWrite tem como objetivo escrever e salvo um arquivo texto em ADVPL. Ela é uma das funções de manipulação de arquivos, discos e IO em ADVPL.

 

Sintaxe:

MemoWrite(cLocal,cTexto)

 

Parâmetros(s):

 

 

Retorno:

Exemplo de MemoWrite em ADVPL:

#include 'protheus.ch'
/*{Protheus.doc} User Function fMeWrite
    Escreve e salva um arquivo texto
    @type  Function
    @author Adilio Costa
    @since 26/03/2025
    @version 1.0
	@Link de referência:https://tdn.totvs.com/display/tec/MemoWrite

@Inscreva-se no Blog ProtheusAdvpl:
https://www.protheusadvpl.com.br
@Inscreva-se no Canal ProtheusAdvpl:
https://www.youtube.com/protheusadvpl
@Siga-nos no Instagram:
https://www.instagram.com/protheusadvpl
@Conheça os Cursos do ProtheusAdvpl:
https://cursos-e-formacoes-protheusadvpl.gr-site.com/
@Participe de nossas comunidades no WhatsApp:
-Comunidade Protheus Backoffice:https://chat.whatsapp.com/KMUIAjwZ6EZ6eAHsLkPTyb
-Comunidade Protheus-RH:https://chat.whatsapp.com/L5dUyAna6xU4ylG5DUgfOW
-Comunidade Protheus-Programação:https://chat.whatsapp.com/LsD6z0apdqKHlOz67bcaEn
-Comunidade Protheus-Framework:https://chat.whatsapp.com/BzUFpjaSnTC3vtsfa77jmG

|Se esse conteúdo foi útil pra você nos ajude divulgando 
ele e nossas redes sociais!!|

-Plataforma: Portal ProtheusAdvpl-https://hotm.art/portal_protheusadvpl
-Módulo 7: 7.44.2 - [Programação ADVPL III/Manipulação de Arquivos, Discos e IO] - Escrevendo e Salvando Arquivo Texto com a Função MemoWrite

*/

User Function fMeWrite()

	Local cLocal:="C:\ProtheusAdvpl\Consulta_SQL.txt"
	Local lRet := .F.
	Local cQuery := "SELECT "

	cQuery +=	"A1_COD,A1_NOME "
	cQuery += "FROM SA010 WHERE "
	cQuery +="D_E_L_E_T_<>'*' "


	lRet := MemoWrite(cLocal,cQuery)

	If(lRet)
		FWAlertInfo("O arquivo "+cLocal+" foi criado com o texto "+cQuery+" com sucesso!","Função MemoWrite")
	Else
		FWAlertInfo("Ocorreu um erro ao tentar criar o arquivo "+cLocal+". Erro:"+FError(),"Função MemoWrite")
	EndIf


Return

É isso aí, finalizamos aqui o post, caso tenha ficado alguma dúvida deixe seu comentário ou nos envie um e-mail para adiliocosta@protheusadvpl.com.br, até um próximo post, grande abraço e fica com Deus.

Link de referência no TDN da TOTVS:https://tdn.totvs.com/display/tec/MemoWrite

Receba as últimas atualizações do ProtheusAdvpl
Deixe seu melhor email
Nós respeitamos sua privacidade.

Artigos relacionados

7 Comentários


  1. I do agree with all of the ideas you’ve presented in your post. They’re very convincing and will certainly work. Still, the posts are very short for newbies. Could you please extend them a bit from next time? Thanks for the post.


  3. Когда запой становится угрозой для жизни и здоровья, своевременная помощь профессионала может стать решающим фактором для скорейшего восстановления. В Мурманске, где суровые климатические условия добавляют стресса и осложнений, квалифицированные наркологи оказывают помощь на дому, обеспечивая оперативную детоксикацию и индивидуальную терапию в привычной обстановке. Такой подход позволяет пациентам избежать лишних перемещений и получить поддержку в комфортной атмосфере.
    Ознакомиться с деталями – [url=https://vyvod-iz-zapoya-murmansk0.ru/]срочный вывод из запоя в мурманске[/url]

Comentários encerrados.