C# と VB.NET の質問掲示板

VB.NET 2005
Windows XP Pro SP2

お世話になります。

以下のように、指定した時間以降のイベントログの内容を
データベースに保存しています。

============================================================================
Dim wevtLogs() As EventLog

        'IPアドレスセット
        wevtLogs = Diagnostics.EventLog.GetEventLogs("xxx.xxx.xxx.xxx")

        'EVENTLOGループ
        For Each wevtLog As EventLog In wevtLogs
            'ENTRYループ
            For Each wentry As EventLogEntry In wevtLog.Entries

                '指定された時間より過去のデータは何もしない
                If wentry.TimeWritten.ToString("yyyy/MM/dd HH:mm:ss") < "指定した時間" Then
                    Continue For
                End If

                'データベース保存

            Next wentry
        Next wevtLog
============================================================================

イベントログをループして、ログの更新時間が指定された時間以降の物を保存対象としているのですが、
この方法だとイベントログが何十万と膨大な量の場合、処理時間がかなり掛かります。

もし、処理時間があまり掛からない方法があるようでしたら、ご教授願えないでしょうか。
よろしくお願い致します。

> wevtLogs = Diagnostics.EventLog.GetEventLogs("xxx.xxx.xxx.xxx")
>この部分のコードの実行時間はどの程度かかっているのでしょうか？
この部分の処理時間は1秒も掛かりませんでした。

とりあえずログが時系列順に登録されていると仮定して
以下のように修正しました。これによって、処理時間も大幅に短縮できました。

============================================================================
        Dim wevtLogs() As EventLog
        Dim wentry As EventLogEntry

        'IPアドレスセット
        wevtLogs = Diagnostics.EventLog.GetEventLogs("xxx.xxx.xxx.xxx")

        'EVENTLOGループ
        For Each wevtLog As EventLog In wevtLogs
            'ENTRYループ
            For i As Integer = wevtLog.Entries.Count - 1 To 0 Step -1
                wentry = wevtLog.Entries(i)

                '前回チェック時間より以前のデータは取得しない
                If wentry.TimeWritten < "指定した時間" Then
                    Exit For
                End If

                'データベース保存

            Next i
        Next wevtLog
============================================================================

ログの登録順に関しては、この後も色々調べてみます。
ありがとうございました。

■No48546 (ゴボウ さん) に返信

> ログの登録順に関しては、この後も色々調べてみます。

↓この部分を実行した場合と、しない場合の結果を比較すればいいですね。

>                 '前回チェック時間より以前のデータは取得しない
>                 If wentry.TimeWritten < "指定した時間" Then
>                     Exit For
>                 End If

まぁ、たまたま時系列になってただけかも知れないので
完全な証明にはなりませんが。。。