[bb] delete Me by asdfasdf [ 1+ years ago ]

Started by BlitzBot, June 29, 2017, 00:28:42

Previous topic - Next topic

BlitzBot

Title : delete Me
Author : asdfasdf
Posted : 1+ years ago

Description : This small file will write a .log file when you call it.
ex.
Include "LogFile.bb"
LogFile=createLog("C:Log.log")

WriteLog(LogFile,"Hello")

EraseLog(LogFile)

WriteLog(LogFile,"Hello Again")

CloseLog(LogFile)


Code :
Code (blitzbasic) Select
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;LogFile.bb
;Contains Functions to write .log files
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Function CreateLog(St$)

file = WriteFile(St$)

Return file

End Function

Function WriteLog(LG$,St$)

SeekFile(LG$,FileSize(LG$))

WriteLine(LG$,St$)

End Function

Function EraseLog(LG$)

SeekFile(LG$,0)

WriteLine(LG$,"")

End Function

Function CloseLog(LG$)

CloseFile(LG$)

LG$ = 0

End Function


Comments :


soja(Posted 1+ years ago)

 May I suggest some improvements?1) It can all be done in one function with FileType.2) Eof doesn't seem to work (maybe it's a BlitzPlus thing)3) Adding the default parameter f$ makes it so you don't have to worry about variable scope issues and yet leaves the filename flexible (and you can have more than one).Include this function:
Function WriteLog(s$, f$="log.txt")
If FileType(f) Then
file = OpenFile(f)
SeekFile(file, FileSize(f))
Else
file = WriteFile(f)
EndIf
WriteLine(file, s)
CloseFile(file)
End Function
Example:WriteLog("Logging in file log.txt...")
WriteLog("Logging to log2.txt...", "log2.txt")
WriteLog("Logging to default log again...")
...Produces log.txt:<div class="quote"> Logging in file log.txt...Logging to default log again... </div>...and log2.txt:<div class="quote"> Logging to log2.txt... </div><edit> PS: This archive would probabyl be more at home under "File Utilities" or something, since it doesn't have much todo with userlibs. [/i]