【テクニカル・上級編】【上級プロフェッショナル向け】FSOでの巨大テキストパース時に処理途中の「行番号・バイト位置」を保存し障害発生後に再開（レジューム）できるチェックポイント機構 – VBScript (Visual Basic Scripting Edition)解析バイブル

レガシーの深淵を制御する：VBScriptにおける巨大テキスト処理と「レジューム機構」の設計思想

Windowsの自動化において、VBScriptはもはや「過去の遺物」ではない。極めて限定的なランタイム環境、あるいはレガシーなエンタープライズ・アーキテクチャにおいて、VBScriptは依然として最も強力かつ、最も誤解されている武器の一つである。

多くのエンジニアが、数千万行に及ぶ巨大なログファイルやCSVデータのパースに挑み、メモリ不足（Out of Memory）や、処理途中の予期せぬエラー、あるいはOSのメンテナンスによる強制終了によって、そのすべてを失う。最初からやり直すという選択肢は、時間の浪費であり、プロフェッショナルの仕事ではない。

本稿では、FileSystemObject (FSO) を用いた巨大テキスト処理において、処理状態を「チェックポイント」として外部化し、障害発生後に中断した地点から高速に再開（レジューム）するための、極限の設計パターンを伝授する。

1. 課題の本質：なぜ「単純なループ」では足りないのか

通常のエンジニアは、以下のようなコードを書く。

' ―― 典型的な、しかし未熟な実装 ――
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile("huge_data.txt", 1)

Do Until ts.AtEndOfStream
    line = ts.ReadLine
    ' 何らかの重い処理
Loop

この実装には、プロフェッショナルが忌避すべき致命的な欠陥が3つある。

1. 冪等性（Idempotency）の欠如: 処理が99%完了した状態でエラーが起きた場合、最初からやり直すことになり、二重処理の制御も困難になる。
2. リソースの脆弱性: 数千万行の処理中、メモリリークやネットワークの瞬断、あるいは不意の停電が発生した際、それまでの進捗が完全に消失する。
3. スケーラビリティの限界: ファイルサイズがテラバイト級に近づくにつれ、再試行のコストは指数関数的に増大する。

我々が構築すべきは、「状態を持つ（Stateful）ストリーム処理」である。

2. アーキテクチャ：チェックポイント・パターン

レジューム機構の核となるのは、「サイドカー・ファイル（Sidecar File）」を用いたメタデータの管理である。メインのデータファイルとは別に、現在の「行番号」を記録した極小のテキストファイルを生成する。

設計指針

• チェックポイントの粒度: 毎行保存するのはI/Oのオーバーヘッドが大きすぎる。1,000行、あるいは10,000行といった「チャンク（塊）」単位で書き出すのが定石である。
• アトミックな更新: チェックポイントファイルへの書き込みは、書き込み完了後にファイルハンドルを確実に閉じることで、破損を防ぐ。
• 高速スキップ（Fast-Forward）: 再開時には、保存された行数に到達するまで `ReadLine` を高速に回し、ポインタを移動させる。

3. 実装：プロフェッショナル・レジューム・エンジン

以下に、実戦投入可能なレベルのコード構造を示す。このスクリプトは、エラーハンドリング、オブジェクトの明示的解放、およびチェックポイント管理を統合している。

' **
' Professional Resume Engine for Large Text Files
' Author: Legendary Chief Architect
' Description: FSOを用いた巨大ファイルパースにおけるチェックポイント・レジューム実装
' **

Option Explicit

' 定数定義
Const CHK_INTERVAL = 5000 ' 何行ごとにチェックポイントを保存するか
Const TARGET_FILE  = "huge_data.txt"
Const CHK_FILE     = "process_state.ckpt"

Dim fso, ts, targetFile, checkpointFile
Dim currentLine, targetLine, errCount

Set fso = CreateObject("Scripting.FileSystemObject")

' メインルーチン
Main

Sub Main()
    On Error Resume Next ' エラーハンドリングの開始
    
    targetFile = TARGET_FILE
    checkpointFile = CHK_FILE
    currentLine = 0
    
    ' 1. チェックポイントの確認
    targetLine = LoadCheckpoint()
    If targetLine > 0 Then
        WScript.Echo "Resuming from line: " & targetLine
    Else
        WScript.Echo "Starting fresh processing..."
    End If

    ' 2. ファイルのオープン
    If Not fso.FileExists(targetFile) Then
        WScript.Echo "Error: Target file not found."
        Exit Sub
    End If
    
    Set ts = fso.OpenTextFile(targetFile, 1) ' 1 = ForReading
    
    ' 3. 高速スキップ・フェーズ
    ' チェックポイントがある場合、その行までReadLineで読み飛ばす
    If targetLine > 0 Then
        Do While currentLine < targetLine And Not ts.AtEndOfStream
            ts.ReadLine
            currentLine = currentLine + 1
        Loop
    End If

    ' 4. メイン処理フェーズ
    WScript.Echo "Processing started..."
    
    Do Until ts.AtEndOfStream
        ' 行の取得
        Dim rawLine
        rawLine = ts.ReadLine
        currentLine = currentLine + 1
        
        ' --- ここにビジネスロジックを実装 ---
        ' 例: データのパース、DBへの書き込み、外部API呼び出し等
        PerformHeavyLogic rawLine
        ' ----------------------------------

        ' 定期的なチェックポイント保存
        If currentLine Mod CHK_INTERVAL = 0 Then
            SaveCheckpoint currentLine
        End If
        
        ' エラーチェック
        If Err.Number <> 0 Then
            WScript.Echo "Critical Error at line " & currentLine & ": " & Err.Description
            SaveCheckpoint currentLine ' 失敗した行を記録して終了
            Cleanup
            WScript.Quit 1
        End If
    Loop

    ' 完了後のクリーンアップ
    WScript.Echo "Processing completed successfully."
    ClearCheckpoint
    Cleanup
End Sub

' --- サポート関数群 ---

Sub PerformHeavyLogic(ByVal content)
    ' 模擬的な重い処理。実際の実装ではここにロジックを記述。
    ' 意図的なエラー発生テスト用：
    ' If content = "ERROR_TRIGGER" Then Err.Raise 999, "Logic", "Simulated Failure"
End Sub

Sub SaveCheckpoint(ByVal lineNum)
    On Error Resume Next
    Dim ckFile
    Set ckFile = fso.CreateTextFile(checkpointFile, True)
    ckFile.WriteLine lineNum
    ckFile.Close
    Set ckFile = Nothing ' オブジェクトの明示的解放
    If Err.Number <> 0 Then WScript.Echo "Warning: Failed to save checkpoint."
End Sub

Function LoadCheckpoint()
    Dim lineNum, ckFile
    lineNum = 0
    If fso.FileExists(checkpointFile) Then
        On Error Resume Next
        Set ckFile = fso.OpenTextFile(checkpointFile, 1)
        If Not ckFile.AtEndOfStream Then
            lineNum = CLng(ckFile.ReadLine)
        End If
        ckFile.Close
        Set ckFile = Nothing
        On Error GoTo 0
    End If
    LoadCheckpoint = lineNum
End Function

Sub ClearCheckpoint()
    On Error Resume Next
    If fso.FileExists(checkpointFile) Then fso.DeleteFile(checkpointFile)
End Sub

Sub Cleanup()
    ' リソースの確実な解放（メモリリーク防止の鉄則）
    On Error Resume Next
    If Not ts Is Nothing Then
        ts.Close
        Set ts = Nothing
    End If
    Set fso = Nothing
End Sub

4. 深淵への考察：パフォーマンスとメモリ管理の極意

このコードを単なる「動くスクリプト」で終わらせてはならない。アーキテクトとして、以下の3点に留意せよ。

I/Oコストのトレードオフ

`targetLine` まで `ReadLine` でスキップする際、VBScriptは内部的にバッファを読み込みながら行の区切り（CRLF）を探し続ける。これは $O(N)$ の計算量を持つ。もし、バイト位置（Byte Offset）を記録できれば `Seek` 相当の高速移動が可能だが、FSOの `TextStream` はテキストモードでのランダムアクセスが制限されている。
UTF-8などのマルチバイト文字を扱う場合、バイト位置でのスキップは文字化けの温床となる。「安全性と速度の妥協点」として、行番号によるスキップを選択しているという判断を忘れてはならない。

オブジェクトのライフサイクル管理

VBScriptにおける `Set obj = Nothing` は、単なる作法ではない。特にループ内で一時的なオブジェクト（正規表現オブジェクトやDictionary等）を生成する場合、これを怠ると、ガベージコレクションが追いつかず、数千万行の処理中にメモリの枯渇を招く。「生成したものは、スコープを抜ける前に、明示的に殺す」。これがレガシー環境を生き抜く鉄則である。

エラーハンドリングの階層化

`On Error Resume Next` は、魔法の杖ではない。それは「エラーを無視する」のではなく、「エラーが発生した直後に `Err` オブジェクトを検査し、適切にハンドリングする責任をプログラマに転嫁する」宣言である。本実装では、致命的なエラーが発生した瞬間に、現在の行番号を保存してクリーンアップを行うことで、「再開可能な失敗」を実現している。

結論

巨大なデータセットを扱うとき、エンジニアの価値は「正常系をいかに速く書くか」ではなく、「異常系において、いかにシステムを堅牢に保ち、リソースを保護できるか」に集約される。

このチェックポイント機構を実装することで、君のスクリプトは単なる自動化ツールから、エンタープライズ級の「レジリエントなデータ・パイプライン」へと昇華する。