GRAVAR LOG DO QUE O USUARIO FEZ NO FORM

BYDUMORAES 01/05/2005 11:57:09
#81214
Como gravar um arquivo de log.txt, que possa ter todas as alteracoes que o usuario fez em um form e depois recuperar essas informacoes para mostrar em um formulario?

Exemplo num form de cadastro:

Usuario Fulano fez alteracoes no campo NOME as 14:00:01 - 01/5/2005
Usuario Beltrano fez alteracoes no campo cidade as 14:30:01 -30/4/2005
GABRIEL.LOGAN 01/05/2005 12:06:09
#81215 Resposta escolhida
Cara, usa um arquivo INI, que é a mesma estrutura do arquivo TXT:

Um exemplo de arquivo INI , que pode ser feito no Bloco de notas e salvo como extensão INI:

[TESTE]
campo1=mudou a fonte
campo2=mudou o nome
campo3=mudou outra coisa


Pra você ler esse arquivo faz assim:

Módulo:

Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long


No seu Form:

Public Function ReadINI(Secao As String, Entrada As String, Arquivo As String)
  'Arquivo=nome do arquivo ini
  'Secao=O que esta entre []
  'Entrada=nome do que se encontra antes do sinal de igual
 Dim retlen As String
 Dim Ret As String
 Ret = String$(255, 0)
 retlen = GetPrivateProfileString(Secao, Entrada, "", Ret, Len(Ret), Arquivo)
 Ret = Left$(Ret, retlen)
 ReadINI = Ret
End Function
Public Sub WriteINI(Secao As String, Entrada As String, Texto As String, Arquivo As String)
  'Arquivo=nome do arquivo ini
  'Secao=O que esta entre []
  'Entrada=nome do que se encontra antes do sinal de igual
  'texto= valor que vem depois do igual
  WritePrivateProfileString Secao, Entrada, Texto, Arquivo
End Sub


Exemplo deu Utilização:

Para ler:
Text1.Text = ReadINI("Geral", "logan", App.Path & "    est.ini")

Para escrever:
WriteINI "Logan", "Gabriel", Testando, App.Path & "    est.ini"


Falo :P
Tópico encerrado , respostas não são mais permitidas
Voltar