「AtEndOfLine」を使いこなせ：VBScriptにおける堅牢なテキストパースの極意
業務自動化の現場において、テキストファイルの解析（パース）は避けて通れない道だ。しかし、多くの「動けばいい」レベルのスクリプトが、本番環境で予期せぬエラーを吐き出し、処理を中断させる。
その原因の多くは、「ファイルの終端（EOF）」と「行の終端（EOL）」の概念の混同、そして最終行の改行コードの有無に対する考慮不足にある。
今回は、VBScriptの`TextStream`オブジェクトが持つ`AtEndOfLine`プロパティに焦点を当て、単なる読み込みを超えた、プロフェッショナルが実践する「壊れないパース設計」を伝授する。
1. 初心者が陥る「境界条件」の罠
多くの開発者は、ファイルを読み込む際に以下のようなロジックを書く。
' 典型的な、しかし脆弱なコード例
Do While Not objStream.AtEndOfStream
strLine = objStream.ReadLine
' ここでstrLineを処理する
Loop一見、完璧に見える。しかし、このコードには設計上の「脆さ」が潜んでいる。
なぜこの書き方では不十分なのか？
1. 最終行の挙動: ファイルの最後の行に改行コード（CRLF）が含まれていない場合、`ReadLine`の挙動やその後の処理で、空文字や予期せぬ終端判定が発生することがある。
2. データの境界判定: 特定のフォーマット（例えば、固定長やデリミタ区切り）において、「行の終わり」に到達した瞬間に、その行の最後のフィールドが「空」なのか「改行によって存在しない」のかを区別できない。
3. ストリームポインタの意識不足: `AtEndOfStream`は「ファイル全体」の終わりを指すが、`AtEndOfLine`は「現在の行」の終わりを指す。この使い分けができていないと、カーソル位置の制御が必要な複雑なパースにおいて、必ずバグを生む。
2. AtEndOfLine プロパティの本質的価値
`TextStream.AtEndOfLine`は、現在のファイルポインタ（読み込み位置）が、次の改行文字の直前にあるかどうかを返すプロパティである。
これを利用する最大のメリットは、「データが物理的に存在しているのか、それとも改行によって区切られているだけなのか」を、読み込みのコンテキスト（文脈）として把握できる点にある。
例えば、CSVのような形式で、最後のカラムが空である場合、`AtEndOfLine`を適切にチェックすることで、「値が空文字として存在する」のか「行がそこで唐突に終わっている」のかを論理的に判別できる。これは、データベース（SQL ServerやOracle等）へデータをインサートする際、NULLを許容するか、空文字を入れるかという設計判断に直結する極めて重要な情報だ。
3. 実務レベルの堅牢なパース・パターン
では、どのように設計すべきか。
「読み込んだ文字列を分割する」という受動的なアプローチではなく、「ストリームの状態を確認しながら、境界を制御する」という能動的なアプローチが必要だ。
以下に、実務でそのまま利用できる、堅牢なテキストパースのテンプレートを示す。
'**
' Module: RobustTextParser
' Description: AtEndOfLineを活用した、境界条件に強いテキストパース実装例
'**
Option Explicit
' メイン処理のシミュレーション
Call Main()
Sub Main()
Dim strFilePath : strFilePath = "C:\temp\data_sample.txt" ' 解析対象ファイル
' ファイルの存在確認（基本中の基本）
Dim fso : Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FileExists(strFilePath) Then
WScript.Echo "Error: Target file not found."
WScript.Quit
End If
' ファイルを読み込みモードで開く
Dim objStream : Set objStream = fso.OpenTextFile(strFilePath, 1) ' 1 = ForReading
On Error Resume Next ' エラーハンドリングの開始
Do While Not objStream.AtEndOfStream
' 1行読み込み
Dim strLine : strLine = objStream.ReadLine
' --- 堅牢なパースロジックの核心 ---
' 読み込んだ行の処理
ProcessLine strLine, objStream.AtEndOfLine
If Err.Number <> 0 Then
WScript.Echo "Critical Error during parsing: " & Err.Description
Exit Do
End If
Loop
objStream.Close
Set objStream = Nothing
Set fso = Nothing
WScript.Echo "Process completed successfully."
End Sub
'**
' Sub: ProcessLine
' Description: 1行のデータを解析し、業務ロジックへ渡す
' Arguments:
' strLine (String) : 読み込まれた行の内容
' isEndOfLine (Boolean) : 行末に改行文字が存在するかどうか
'**
Sub ProcessLine(ByVal strLine, ByVal isEndOfLine)
' 1. 空行のスキップ（業務要件に応じて調整）
If Trim(strLine) = "" Then Exit Sub
' 2. デリミタ（カンマ）による分割例
Dim arrData : arrData = Split(strLine, ",")
Dim i : i = 0
' 3. 各フィールドの精査
' ここでは例として、各要素をループで処理
For i = 0 To UBound(arrData)
Dim val : val = Trim(arrData(i))
' 最終フィールドかつ、行末判定が特殊な場合のロジック
' （例：最終カラムが空であっても、改行があれば「空文字」として扱う）
If i = UBound(arrData) Then
If Not isEndOfLine And val = "" Then
' 最終要素が空で、かつ改行がない場合の特殊処理（必要に応じて）
' val = "[EOF_WITHOUT_NEWLINE]"
End If
End If
' --- ここでDB連携やファイル出力などの業務ロジックを呼び出す ---
' Debug.Print "Field[" & i & "]: " & val
Next
End Sub設計のポイント：
1. `AtEndOfStream`と`AtEndOfLine`の分離:
`AtEndOfStream`で「ファイルがまだ続くか」を判定し、`AtEndOfLine`を引数として`ProcessLine`に渡すことで、各行の「末尾の状態」をロジックに注入している。
2. エラーハンドリングの局所化:
`On Error Resume Next`を使いつつ、ループ内でエラーを検知して適切にクリーンアップ（`Close`）を行う構造にしている。これは、ファイルハンドルを掴みっぱなしにしてシステムを不安定にさせる事態を防ぐためだ。
3. データの正規化:
`Trim()`を徹底することで、目に見えないスペースによるデータ不備（DBの桁数オーバーなど）を未然に防いでいる。
4. データベース・システム連携へのアドバイス
このテクニックを実務（特にDB連携）に適用する場合、以下の2点に留意せよ。
① 文字列長（String Length）の制約
`ReadLine`で取得した文字列をそのままSQLの`INSERT`文に組み込むのは素人の仕事だ。`AtEndOfLine`で判定した結果、最終行が異常な長さであったり、改行コードの解釈違いでデータが結合していたりする場合、DB側の型定義（`VARCHAR(50)`など）に抵触し、バッチ処理全体がロールバックされる。必ず、読み込み後のデータ長を検証するガード節を入れよ。
② エンコーディングの壁
VBScriptの`FileSystemObject`は、基本的にANSI（Shift-JIS）を前提としている。UTF-8（BOMなし）のファイルを扱う際、`AtEndOfLine`の挙動がマルチバイト文字の境界と干渉し、誤判定を起こすリスクがある。現代的な業務環境では、`ADODB.Stream`を使用してエンコーディングを明示的に指定する設計への移行も視野に入れるべきだ。
結論
`AtEndOfLine`は、単なるプロパティではない。それは、「データが意図した形式で、正しく構造化されているか」を検証するための、守護神である。
「動くコード」を書く者は多い。しかし、「運用に耐えうる、堅牢なコード」を書ける者は限られている。境界条件を制する者が、自動化エンジニアとして真に信頼される存在となるのだ。
