Excel VBA Log Utility - 版の履歴

2020年2月16日 (日) 04:25にPirotoによる

2020-02-16T04:25:26Z

2020年2月15日 (土) 08:35にPirotoによる

2020-02-15T08:35:32Z

2020年2月15日 (土) 08:19にPirotoによる

2020-02-15T08:19:37Z

2020年2月15日 (土) 08:02にPirotoによる

2020-02-15T08:02:25Z

Piroto: ページの作成:「==Excel VBA Log Utility== [Excel VBA]{{category VBAソース片}} [Excel VBA File Utility] [FileUtil.cls]を使用 *Excel VBA File Utility ==='''Log.bas'''=== Opt…」

2020-02-15T07:32:09Z

ページの作成:「==Excel VBA Log Utility== [Excel VBA]{{category VBAソース片}} [Excel VBA File Utility] [FileUtil.cls]を使用 *Excel VBA File Utility ==='''Log.bas'''=== Opt…」

新規ページ

==Excel VBA Log Utility==
[Excel VBA]{{category VBAソース片}}

[Excel VBA File Utility] [FileUtil.cls]を使用
*Excel VBA File Utility
==='''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}}

@@ 1行目: / 1行目: @@
-==Excel VBA Log Utility==
+==[[Excel VBA Log Utility]]==
-[[Excel VBA]] | {{category VBAソース片}}
+[[Excel VBA]] | [[Category:VBAソース片]]
-[[Excel VBA File Utility]] |  [[FileUtil.cls]] | を使用
+[[Excel VBA File Utility|FileUtil.cls]]を使用
-*Excel VBA File Utility
+*[[Excel VBA File Utility]]
 ==='''Log.bas'''===
   Option Explicit
@@ 71行目: / 71行目: @@
   End Function
+  '
-  ' タイムスタンプ文字列生成
+  ' [[タイムスタンプ]]文字列生成
+  '
-  ' @return タイムスタンプ文字列生成 "YYYY/MM/DD HH:MM:SS"
+  ' @return [[タイムスタンプ]]文字列生成 "YYYY/MM/DD HH:MM:SS"
+  '
-  Private Function getTimeStamp() As String
+  Private Function get[[TimeStamp]]() As String
-      getTimeStamp = Date & " " & Time
+      get[[TimeStamp]] = Date & " " & Time
   End Function
 {{ref Log.bas}}

@@ 1行目: / 1行目: @@
 ==Excel VBA Log Utility==
-[[Excel VBA]]{{category VBAソース片}}
+[[Excel VBA]] | {{category VBAソース片}}
-[[Excel VBA File Utility]] [[FileUtil.cls]]を使用
+[[Excel VBA File Utility]] |  [[FileUtil.cls]] | を使用
 *Excel VBA File Utility
 ==='''Log.bas'''===

@@ 2行目: / 2行目: @@
 [[Excel VBA]]{{category VBAソース片}}
-[[Excel VBA File Utility] [FileUtil.cls]]を使用
+[[Excel VBA File Utility]] [[FileUtil.cls]]を使用
 *Excel VBA File Utility
 ==='''Log.bas'''===