Cassiano

[RESOLVIDO] Rotina de log não grava

2 posts in this topic

Olá, preciso de uma rotina para gravar log, criei o código abaixo, onde passo o nome do arquivo de log e a linha q deve ser inserida no arquivo de log, porém o resultado prático é q grava linhas em branco, alguém sabe dizer o q poderia estar de errado ou teria algum outro exemplo de rotina para geração de arquivos de log?

	nOk is int = -1
	IF fFileExist(sArqLog) THEN
		nOk = fOpen(sArqLog, foReadWrite)
	ELSE
		nOk = fCreate(sArqLog)
	END
	IF nOk <> -1
		fWrite(sArqLog, sLinha)
		fClose(sArqLog)
	END
1 person likes this

Share this post


Link to post
Share on other sites

Respondendo a mim mesmo....kkkk desculpe pessoal, mas valeu ai pela atenção, descobri aki como fazer segue código, o segredo (conforme manual da função FOpen() esta em passar a constante foAdd para adicionar no final do arquivo

 


	sArqLog = CompleteDir(fExeDir())+g_sNomeArqLog

	nFileID is int 
	IF fFileExist(sArqLog) THEN
		nFileID = fOpen(sArqLog, foAdd+foReadWrite) // Aki esta o segredo, observem a constante foAdd
	ELSE
		nFileID = fCreate(sArqLog)
		IF nFileID = -1 THEN
			// Error("Erro ao criar o arquivo", ErrorInfo())
			RETURN
		END
		nFileID = fOpen(sArqLog, foAdd+foReadWrite) // Aki esta o segredo, observem a constante foAdd
	END
	IF nFileID = -1 THEN
		// Error("Erro ao abrir o arquivo",ErrorInfo())
		RETURN
	END
	fWriteLine(nFileID, sLinha)
	IF ErrorOccurred THEN
		// Error("Error writing to file",ErrorInfo())
		RETURN
	END
	fClose(nFileID)

 

4 people like this

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now