|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Arquivos/Diretórios)
|
|
 |
Título da Dica: Criação e leitura de Logs e exibido-os em uma Grid
|
 |
|
|
|
Postada em 30/10/2002 por Alessandro
=====>>>> Para a gravação de uma log
destino = App.Path & "\logs\acessos.log"
txtlog = Usuario & Chr(9) & Data_entrada & Chr(9) & Hora_entrada & Chr(9) & Data_saida & Chr(9) & Hora_saida
Open destino For Append As #1
Print #1, txtlog
Close #1
======>>>> Para leitura da Log, a mesma esta sendo colocada em um Grid (FgrLogs) e separada por colunas.
Open Origem For Input As #1
Do While Not EOF(1)
Line Input #1, Slinha
FgrLogs.Rows = Cont + 1
ArrayGerado = Split(Slinha, vbTab, -1)
FgrLogs.TextMatrix(Cont, 0) = Cont
FgrLogs.TextMatrix(Cont, 1) = ArrayGerado(0)
FgrLogs.TextMatrix(Cont, 2) = ArrayGerado(1)
FgrLogs.TextMatrix(Cont, 3) = ArrayGerado(2)
FgrLogs.TextMatrix(Cont, 4) = ArrayGerado(3)
FgrLogs.TextMatrix(Cont, 5) = ArrayGerado(4)
Cont = Cont + 1
Loop
Close #1
|
|
|
|
|
