Fox Desde Guate

Bueno, esta vez de regreso con un programita un tanto sencillo, que nos permite generar un log sencillo de un proceso dado.

un ejemplo de uso:

Local oLog As oLog Of iLog.prg
oLog = Newobject("oLog")
lnTime = Datetime()
oLog.icLog = "C:\log_prueba.txt"
oLog.agregar("Inicio del log","*Inicio*")
lnCont = 0
For lnCiclo  = 1 To 10000
	If lnCont >= 7
		If Mod(lnCiclo,3)!=0
			oLog.agregar("Ocurrió un error interno #" +;
	 Transform(lnCiclo),"Error")
			lnCont = 0
		Else
			oLog.agregar("Evento Procesado" + [# ] +;
 	Alltrim(Transform(lnCiclo)),”Proceso”)
		Endif
	Else
		oLog.agregar(”Nuevo evento” + [# ]+;
	Alltrim(Transform(lnCiclo)),”Evento”)

	Endif
	lnCont = lnCont + 1
	Wait Window trans((lnCiclo/10000) * 100,[###]) + [%] Nowait
Endfor

oLog.agregar(”Final  del log”,”*Fin*”,.T.)

Messagebox([Tiempo utilizado para registrar 10,000 eventos: ] +;
	 Transform(Datetime()-lnTime) + [ segs.])

La clase cuenta con una propiedad icLog que es el archivo de Texto en el que deseamos generar el log, también el método Agregar, que requiere de 3 parametros, los primeros 2 son necesarios y son Cadena que queremos almacenar (información del evento) y Tipo del evento: proceso, error, alerta, etc., el tercer parametro, al pasarse como .T. hace que la clase escriba el contenido del log al disco (hasta que se pasa como .T. se genera el log en el disco), también puede invocarse el método GenerarLog() para el mismo resultado.

Una parte del log generado con el ejemplo:

*Eventos registrados *
Error: 1333
Evento: 8001
Proceso: 666

12:51:32.87| *Inicio*: Inicio del log
12:51:32.87| Evento: Nuevo evento# 1
12:51:32.87| Evento: Nuevo evento# 2
12:51:32.87| Evento: Nuevo evento# 3
12:51:32.87| Evento: Nuevo evento# 4
12:51:32.87| Evento: Nuevo evento# 5
12:51:32.87| Evento: Nuevo evento# 6
12:51:32.87| Evento: Nuevo evento# 7
12:51:32.87| Error: Ocurrió un error interno #8
12:51:32.87| Evento: Nuevo evento# 9
12:51:32.87| Evento: Nuevo evento# 10
12:51:32.89| Evento: Nuevo evento# 11
12:51:32.89| Evento: Nuevo evento# 12
12:51:32.89| Evento: Nuevo evento# 13

Para descargar el código (incluye el código del ejemplo):
http://fox.desdeguate.com/descargas/vfp/ilog.prg

Saludos y hasta la próxima.

Trackback para este post | Suscribete a los comentarios de este post

Vea también: