Database Search

TechHome

	Array UDFs
	Binary Operations
	Conversion UDFs
	Dialog Boxes
	Directory and Deltree UDFs
	DOS Console UDFs
	FileMath UDFs
	Files and Directories
	Formatting UDFs
	List Manipulation
	Math Related UDFs
	Network Related
	Numbers
	Process UDFs
	Registry UDFs
	String Manipulation
	System UDFs
	Terminal Server
	Time UDFs
	Validation UDFs
	Web UDFs
	WinBatch Function UDFs
	Windows UDFs

• !! UDFs Explained !!
• !! UDFs vs Subroutines !!
• !!A Quick Course on UDFs
• !!Calling UDF from Main Script
• !!Check if UDF is Defined
• !!Debugging UDFs
• !!Passing Variables in UDFs
• !!UDFs and Gotos
• !!Variables inside and outside a UDF
• Bitmask Deciphering UDF
• Content Addressable Memory
• Detlevs UDFs
• Free WinBatch Resources UDF
• Get Pixel Deluxe with Zoom
• Global Memory Status
• IsIpInRange
• Optional Parameters
• PauseCheck UDF
• RouteAdd - Create a Static Route - UDF
• Sample UDFs from Stan Littlefield
• Serial SendkeyLock UDF
• The xGlobal Extender
• TIF Page Counter
• UDF UDS Parameter Limit
• UDS and Global Variables
• User Defined Function - memory usage
• VarTypeEx to Detect Pointer Variables
• WIL Function List
• Write to a log file UDF
• Zip File Lister

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Write to a log file UDF

 Keywords: write log file logfile 

;*******************************************************************
;***** Function : F_WRITELOGFILE 
;***** Description : Write to a log file 
;***** log file is written when Logging=YesCreate or YesAppend!
;***** Release : 1.4
;***** Programmer : Theo Coolen 
;***** Returns : Always 0
;***** CATAGORY : Universal function 
;***** STATUS : Tested, OK
;*******************************************************************
#DefineFunction F_WRITELOGFILE(Logging,LocalLogFile,Glob_progpart,Glob_logmsg)

Logging=strUpper(Logging)

If Logging == "YESCREATE"
Tries = 0
FhandleLog = FileOpen(LocalLogFile, "WRITE")
while FhandleLog == 0 ;// if error try to open until it is ok
Tries = Tries + 1
FhandleLog = FileOpen(LocalLogFile, "WRITE") ;// get the handle until it succeed
beep
TimeDelay(3)
endwhile 
EndIf

if Logging == "YESAPPEND" 
Tries = 0
FhandleLog = FileOpen(LocalLogFile, "APPEND")
while FhandleLog == 0 ;// if error try to open until it is ok
Tries = Tries + 1
FhandleLog = FileOpen(LocalLogFile, "APPEND") ;// get the handle until it succeed
beep
TimeDelay(3)
endwhile 
Endif

a = TimeDate()
sub_LogMsg = strcat(a,": ")
part = Strfix("%Glob_progpart%"," ",25) ;// not longer than 15 characters for label in logfile

if IsDefined(Glob_logmsg)
final_Msg = strcat(sub_logMsg," %part%")
final_Msg = strcat(final_Msg,Glob_logmsg%j%)
FileWrite(FhandleLog, Final_Msg)
endif 

FileClose(FhandleLog)
return 0
#EndFunction
;*******************************************************************
;***** End of function F_WRITELOGFILE 
;*******************************************************************

;***************************************************************************
;* FUNCTION : F_WriteLogFileHeader 
;* DATE : 21 mei 2002 
;* PURPOSE : Writes the header for a logfile
;* AUTHOR : T. Coolen 
;* VERSION : 1.00 
;* INPUT : logfile and message 
;* RETURNS : always 0 
;* CATAGORY : Universal function 
;* STATUS : Tested, OK
;***************************************************************************
#DefineFunction F_WriteLogFileHeader(logfile,ProgramName,versie,devver,companyname,developer,Developdate)
F_WRITELOGFILE("YesCreate","%logfile%","Main"," ")
F_WRITELOGFILE("YesAppend","%logfile%","Main","*******************************************")
F_WRITELOGFILE("YesAppend","%logfile%","Main","* %ProgramName% : versie:%versie% build:%devver% started.")
F_WRITELOGFILE("YesAppend","%logfile%","Main","* Company : %CompanyName%.")
F_WRITELOGFILE("YesAppend","%logfile%","Main","* Developed by : %Developer%.")
F_WRITELOGFILE("YesAppend","%logfile%","Main","* Develop date : %DevelopDate%.")
F_WRITELOGFILE("YesAppend","%logfile%","Main","*******************************************")
F_WRITELOGFILE("YesAppend","%logfile%","Main"," ")
F_WRITELOGFILE("YesAppend","%logfile%","Main","If you are reading this file then you should ask yourself if you are allowed too?")
F_WRITELOGFILE("YesAppend","%logfile%","Main"," ")
return 0
#EndFunction
;*******************************************************************
;***** End of function F_WriteLogFileHeader 
;*************************************************

Article ID:   W15745

File Created: 2003:05:13:11:29:54

Last Updated: 2003:05:13:11:29:54