- 追加された行はこのように表示されます。
- 削除された行は
このように表示されます。
!!!Excel VBA Log Utility
[Excel VBA]
[Excel VBA]{{category VBAソース片}}
[[FileUtil.cls|Excel VBA File Utility]]を使用
*Excel VBA File Utility
'''Log.bas'''
!!'''Log.bas'''
Option Explicit
'
Private log As FileUtil
Private m_IsOpen As Boolean
'
' ログの初期化
'
' @param fileName 出力先ファイル
'
Public Sub initialLog(fileName As String)
m_IsOpen = False
Set log = New FileUtil
m_IsOpen = log.openFile(fileName, FileMode.AppendMode)
End Sub
'
' ログの解放
'
Public Sub terminateLog()
Call log.closeFile
m_IsOpen = False
Set log = Nothing
End Sub
'
' [INFO] ログの出力
'
' @param str メッセージ
'
Public Sub info(str As String)
If Not isWritable() Then
Exit Sub
End If
Call log.println(getTimeStamp & "[INFO] " & str)
End Sub
'
' [ERROR] ログの出力
'
' @param str メッセージ
'
Public Sub error(str As String)
If Not isWritable() Then
Exit Sub
End If
Call log.println(getTimeStamp & "[ERROR] " & str)
End Sub
'
' ログが書き込み可能か否か
'
' @param str メッセージ
'
Private Function isWritable() As Boolean
isWritable = (m_IsOpen And log.isOpen)
End Function
'
' タイムスタンプ文字列生成
'
' @return タイムスタンプ文字列生成 "YYYY/MM/DD HH:MM:SS"
'
Private Function getTimeStamp() As String
getTimeStamp = Date & " " & Time
End Function
{{ref Log.bas}}