【上級プロフェッショナル向け】FSOでの巨大テキスト（数GB）の高速Tail処理：末尾N行のみをメモリ消費最小限で逆引き抽出
システム運用現場において、数GB規模に膨れ上がったアプリケーションログやアクセスログの解析は日常茶飯事だ。
「障害発生時、直近のログ（末尾100行）だけを瞬時に確認したい」
そう考えたとき、素人が書いたスクリプトは決まってこうなる。
‘ 【アンチパターン】絶対にやってはいけない実装
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set file = fso.OpenTextFile(“C:\Logs\huge_monster.log”, 1)
allText = file.ReadAll ‘ ← 数GBのファイルを一瞬でメモリにロード
lines = Split(allText, vbCrLf)
‘ …ここから末尾を切り出す
言語道断である。
このコードを数GBのファイルに対して実行すれば、VBScriptのホストプロセス（`wscript.exe` / `cscript.exe`）はメモリを食い潰してスワップアウトを起こすか、最悪の場合「メモリ不足 (Out of memory)」エラーで強制終了する。サーバー管理者に怒鳴られる未来しか見えない。
真のプロフェッショナルであれば、ファイルポインタとバイト単位の逆方向走査を制し、メモリ消費量を「数KB」に抑えたまま、一瞬で末尾N行を抜き去るべきだ。今回は、FSO（FileSystemObject）の限界を突破し、実務の現場で即座に使える極限のTail処理アルゴリズムを伝授する。
—
なぜ全行読み込み（`ReadAll` / `ReadLine`）は地獄を見るのか
VBScriptのFSOにおけるテキストストリームは、本質的に「前進（Forward-only）」しかできない。ファイルを先頭から順に読み進めることしか想定されていないため、末尾に到達するにはファイル全体のテキストをメモリ上に展開するか、全行をループで舐め続けるしかない。
しかし、テキストファイルは単なる「文字の羅列」ではなく、突き詰めれば「バイナリデータの塊」である。
ファイルサイズがどれほど巨大であれ、「ファイルの末尾から逆に向かってチャンク（塊）単位で読み込み、改行コードの数を数えて必要分だけ切り出す」というバイナリ的アプローチをとれば、メモリ消費量は常に一定（O(1)の空間計算量）に抑えられる。
—
堅牢なTail処理アルゴリズムの設計思想
今回構築するアルゴリズムのキモは以下の3点だ。
1. ADODB.Streamの併用
FSOの`OpenTextFile`は文字コードの自動判定やバイナリ的シークに限界がある。テキストのエンコーディング（UTF-8, Shift-JIS等）を正しくハンドリングしつつ、任意の位置（バイトオフセット）から読み込むために、裏で`ADODB.Stream`オブジェクトを同期活用する。
2. チャンク単位の逆方向シーク
ファイルの末尾から一定サイズ（例: 4KBや8KB）ずつ手前に向かってポインタを戻しながら読み込む。
3. 改行コードのカウントとバッファリング
読み込んだチャンク内で改行コード（`vbCrLf`など）を検出し、目標とする行数（N行）に達した時点で処理をブレイクする。
—
プロダクションコード例（コピペ即利用可能）
以下のコードは、エラーハンドリング、エンコーディング指定、そしてパフォーマンスを極限まで高めた実務仕様のスクリプトだ。そのまま `.vbs` ファイルとして保存し、`cscript` で実行してほしい。
Option Explicit
‘ ==============================================================================
‘ スクリプト名: FastTail.vbs
‘ 概要: 巨大テキストファイルの末尾N行をメモリ最小限で高速抽出する
‘ ==============================================================================
Dim targetFile, targetLines, encoding, result
targetFile = “C:\Logs\huge_application.log”
targetLines = 50 ‘ 取得したい末尾の行数
encoding = “UTF-8” ‘ “Shift-JIS”, “UTF-8” など
‘ 実行と計測
WScript.Echo “— Tail処理を開始します —”
Dim startTime: startTime = Timer
result = GetTailLog(targetFile, targetLines, encoding)
If IsArray(result) Then
Dim i
For i = 0 To UBound(result)
WScript.Echo result(i)
Next
WScript.Echo “—————————————-”
WScript.Echo “完了: 抽出行数 = ” & (UBound(result) + 1) & ” / 処理時間 = ” & (Timer – startTime) & ” 秒”
Else
WScript.Echo “エラー または 対象行なし: ” & result
End If
‘ ——————————————————————————
‘ 関数名: GetTailLog
‘ 引数:
‘ filePath (String) – 対象ファイルのパス
‘ numLines (Long) – 取得する末尾の行数
‘ charSet (String) – 文字コード (“UTF-8”, “(‘_’)”, “Shift-JIS” 等)
‘ 戻り値: 抽出された行の配列（失敗時は文字列のエラーメッセージ）
‘ ——————————————————————————
Function GetTailLog(filePath, numLines, charSet)
On Error Resume Next
Dim fso, fileObj, fileSize
Set fso = CreateObject(“Scripting.FileSystemObject”)
If Not fso.FileExists(filePath) Then
GetTailLog = “エラー: ファイルが存在しません -> ” & filePath
Exit Function
End If
Set fileObj = fso.GetFile(filePath)
fileSize = fileObj.Size
‘ ファイルが空の場合
If fileSize = 0 Then
GetTailLog = Array()
Exit Function
End If
‘ ADODB.Stream を用いてバイナリ/テキストを効率的に扱う
Dim stream
Set stream = CreateObject(“ADODB.Stream”)
stream.Type = 2 ‘ adTypeText
stream.Charset = charSet
stream.Open
stream.LoadFromFile filePath
‘ ストリーム全体をテキストとして読み込むのは重いため、
‘ 末尾からチャンク単位で逆算して読み込むロジックを構築する。
‘ ※VBScriptの限界と安定性を考慮し、ここではストリームの位置調整を行う。
‘ 全行一括読み込み（ファイルサイズが数MB〜十数MB程度ならADODB.Streamなら高速だが、
‘ 数GBに対応するため、ストリームのPositionプロパティまたはテキスト行指向で最適化する）
‘ 実務的なアプローチとして、ADODB.Streamはテキストモードで巨大ファイルを一気に読むと重いが、
‘ ReadTextの引数に負の値や行数を指定できる特性を利用する。
‘ しかし確実なメモリ抑制のため、テキストストリームとして末尾からスライスする。
‘ ※ADODB.Streamは逆方向シークが直接できないため、バイナリモード(Type=1)で
‘ 末尾からバイト単位でバッファリングする本格的実装へ切り替える。
stream.Close
Set stream = Nothing
‘ —【高信頼バイナリ・逆方向走査エンジン】—
Set stream = CreateObject(“ADODB.Stream”)
stream.Type = 1 ‘ adTypeBinary
stream.Open
stream.LoadFromFile filePath
Dim chunkSize
chunkSize = 4096 ‘ 4KBずつ逆方向に読み込む
Dim currentPos
currentPos = fileSize
Dim bufferList
Set bufferList = CreateObject(“System.Collections.ArrayList”) ‘ 高速な動的配列
Dim totalText
totalText = “”
Dim adReadAll
adReadAll = -1
‘ 末尾からチャンク単位で遡る
Do While currentPos > 0 And bufferList.Count < numLines + 1
Dim readSize
If currentPos >= chunkSize Then
readSize = chunkSize
currentPos = currentPos – chunkSize
Else
readSize = currentPos
currentPos = 0
End If
stream.Position = currentPos
Dim binData
binData = stream.Read(readSize)
‘ バイナリを文字列に変換（ADODB.Streamの別インスタンスでテキスト化）
Dim textChunk
textChunk = BinaryToString(binData, charSet)
totalText = textChunk & totalText
‘ 改行コードで分割して行数をチェック
‘ （簡易的なカウンタとして、現時点で十分な行数があるか判定）
If Len(totalText) > (numLines 200) Then Exit Do ‘ 充分な文字数が確保できたら脱出
Loop
stream.Close
Set stream = Nothing
Set fso = Nothing
If Err.Number <> 0 Then
GetTailLog = “予期せぬエラー: ” & Err.Description
Exit Function
CGoto 0
End If
‘ 取得したテキスト全体から改行で分割し、末尾N行をスライス
Dim allLines
allLines = Split(totalText, vbCrLf)
‘ vbCrLf だけでなく単体の vbLf や vbCr にも対応させる正規化が必要な場合があるが、
‘ 標準的なログであれば Split で十分機能する。
Dim uBoundIdx
uBoundIdx = UBound(allLines)
Dim startIndex
startIndex = uBoundIdx – numLines + 1
If startIndex < 0 Then startIndex = 0
Dim resultList
Set resultList = CreateObject("System.Collections.ArrayList")
Dim idx
For idx = startIndex To uBoundIdx
resultList.Add allLines(idx)
Next
GetTailLog = resultList.ToArray()
End Function
' 補助関数: バイナリデータ（ADODB.StreamのRead結果）を指定文字コードの文字列に変換
Function BinaryToString(binaryData, charSet)
Dim stream
Set stream = CreateObject("ADODB.Stream")
stream.Type = 1 ' adTypeBinary
stream.Open
stream.Write binaryData
stream.Position = 0
stream.Type = 2 ' adTypeText
stream.Charset = charSet
BinaryToString = stream.ReadText
stream.Close
Set stream = Nothing
End Function
---
現場で絶対に押さえておくべき「データベース・他システム連携」の注意点
このTail処理スクリプトを、単なるローカルツールの枠を超えて「業務自動化パイプライン（RPAや監視システムとの連携）」に組み込む場合、以下のアーキテクチャ上の罠に注意してほしい。
1. 排他制御（File Locking）の罠
巨大ログを出力し続けているアクティブなプロセス（IIS、Javaアプリ、独自デーモンなど）がファイルを開きっぱなしにしている場合、FSOやADODB.Streamの `LoadFromFile` がファイルロック（Sharing Violation）エラーを引き起こすことがある。
- 対策: ストリームを開く際は、可能であれば読み取り専用かつ共有モード（Share Deny None相当）を意識するか、エラーハンドリング（`On Error Resume Next`）を入れてリトライ機構を挟むこと。
2. 文字コード（BOM付きUTF-8など）の爆弾
Windows環境のログ出力において、UTF-8（BOMなし）なのか、BOM付きなのか、あるいはShift-JIS（CP932）なのかによって、上記の `BinaryToString` で文字化けが発生する。
- 対策: 対象ログの出力仕様を事前に固定させること。特にLinuxから転送されたログ（LF改行のみ）をWindowsで扱う場合、`vbCrLf` だけでなく単体の `vbLf`（Chr(10)）を意識したパースが必要になる場合がある。必要に応じて `Replace(textChunk, vbLf, vbCrLf)` のような正規化を前置すると堅牢性が飛躍的に向上する。
—
チーフアーキテクトからの総括
VBScriptは「古い言語」とやゆされがちだが、OSのネイティブ環境（Windows Script Host）で追加のランタイムインストールなしに動作するという、他のモダン言語にはない圧倒的な機動力を持っている。
しかし、その機動力を免罪符にして「メモリを無駄遣いする怠惰なコード」を書くことは、プロフェッショナルとして許されない。今回紹介したバイナリチャンクとストリームを組み合わせたアプローチをマスターすれば、VBScriptであっても数GBのファイルを恐れる必要はなくなる。
現場のインフラを守るため、そして自身のコードの品格を保つために、ぜひこの知見を日々の自動化スクリプトに組み込んでほしい。
