ログ生成用クラス (5)

ログ生成用クラス (4) に引き続き、CoreLog クラスの残りの実装をみていきましょう。 まずは処理のメインとなる2つのメソッドです。

  ' ---- Public methods ----
 
  Public Sub logText(message$)
    Me.getLog().AppendText(message$)
    Call Me.getLog().AddNewLine(1)
  End Sub
 
  Public Sub traceText(message$, level%)
    If level% <= Me.getTraceLevel() Then
      Me.getTrace().AppendText(message$)
      Call Me.getTrace().AddNewLine(1)
    End If
  End Sub

期待して待っていた方には多し訳ないのですが、ま、えてして重要な部分っていうのはシンプル作りなのです。(^-^;

で、残りはログをクローズする部分になります。

  Public Sub saveLog()
    Call Me.logDoc.Save(True, True)
  End Sub
 
  Public Sub closeLog()
    Dim timeComplete As NotesDateTime
 
    Me.logDoc.Status = "ok"		
    Set timeComplete = New NotesDateTime(Now())	
    Me.logDoc.End = timeComplete.LSLocalTime
    Me.logDoc.Elapsed =
     timeComplete.TimeDifference(Me.timeStart)
 
    Call saveLog()		
    Delete timeComplete
  End Sub

これで実装部分は終わりです。 次回は最終回として、全コードをまとめ、拡張の例をお見せします。