テキストファイルを最終行から検索するには？ (ID:102227)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

まるるうさん、ななさん、早急な回答ありがとうございます。
また、ご指導ありがとうございます。
対象ファイルは、ななさんがおっしゃる通りログファイルで、ファイルサイズは1GBを超えてしまうこともあります。
現状作成出来ているものは、テキストファイルを先頭行から順に読み込んで、18:00以降となる行を抽出するところまでで、当然結果は以下のようになってしまいます・・・
  19:30 操作②  ←不要
  22:30 操作③  ←不要
  21:00 操作⑥  ←必要
  23:00 操作⑦  ←必要

以下、作成したコードです。（本当に基本的な部分しか出来ておりません）
Sub main()
    '変数宣言
    Dim iPath As String       '入力ファイルパス
    Dim oPath As String       '出力ファイルパス
    Dim iTS As TextStream     '入力ファイル
    Dim oTS As TextStream     '出力ファイル
    Dim objFSO As New FileSystemObject
    Dim chkStr As String        'チェック文字
    
    'ファイル選択
    iPath = Application.GetOpenFilename("ログファイル(*.log),*.log", , "ログファイルを指定")
    If iPath = "" Then
        MsgBox "パスが空なので処理終了"
        Exit Sub
    End If
    
    '出力ファイル作成
    oPath = objFSO.GetParentFolderName(iPath) + "\出力.log"
    Set oTS = objFSO.CreateTextFile(oPath, True)
    
    'ファイル内容読み込み
    Set iTS = objFSO.OpenTextFile(iPath, ForReading)
    With iTS
        Do While .AtEndOfStream <> True
            chkStr = .ReadLine
            If StrComp(chkStr, "18:00") = 1 Then
                oTS.WriteLine (chkStr)
            End If
        Loop
        .Close
    End With
End Sub

←解決時は質問者本人がここをチェックしてください。

戻る