【テクニカル・上級編】【安全なCSVエスケープ処理】ダブルクォーテーションやカンマを含む文字列の完全エスケープ関数 – VBScript (Visual Basic Scripting Edition)解析バイブル

VBScriptを掌握する極限の知見：RFC 4180完全準拠・安全なCSVエスケープ処理の実装

レガシーシステムの基盤、あるいは日々の業務自動化の裏方として、いまだに現役で稼働し続けるVBScript（WSH）。
モダンな言語が全盛の今、この枯れた技術をあえて深掘りする理由はただ一つ——「インフラのどこにでも存在し、追加のランタイムを要求しない圧倒的なフットプリントの軽さ」にある。

しかし、このVBScriptにおける「CSV出力」ほど、見過ごされ、かつ重大なバグの温床となっている処理はない。
`Print #1, val1 & “,” & val2` ── このような安易な文字列結合によるCSV生成は、データ内にカンマやダブルクォーテーション、さらには改行コードが含まれた瞬間、下流のシステム（BIツールやRDBのバルクインサート）を沈黙させる凶器へと変貌する。

今回は、RFC 4180（Text/CSVファイルの共通フォーマットおよびmimeタイプ）に完全に準拠し、メモリ効率と堅牢性を極限まで高めた「安全なCSVエスケープ処理関数」を、チーフアーキテクトの知見を込めて公開する。

—

1. なぜ「単純な置換」ではCSVが壊れるのか？

多くのアマチュアプログラマは、CSVのエスケープ処理を以下のように実装して失敗する。

‘ 悪夢のアンチパターン
Function BadEscape(str)
‘ ダブルクォーテーションを2つに置換しているだけ
BadEscape = “””” & Replace(str, “”””, “”””””) & “”””
End Function

このアプローチは、以下の重大な要件を見落としている。

1. メタ文字を含まないフィールドへの無駄な囲み: すべてのフィールドを強制的にダブルクォーテーションで囲むことは仕様上許容される（RFC 4180準拠の観点では安全側）が、データ構造の視認性を著しく損なう。
2. 制御文字（改行・CR/LF）のハンドリング: フィールド内に改行が含まれている場合、ダブルクォーテーションで全体を囲んでいなければ、レコードの行数が狂い、パーサーが致命的なパースエラーを起こす。
3. VBScript特有の文字列処理のコスト: 不必要な `Replace` の連鎖は、大規模データを扱う際にメモリのガベージコレクションを圧迫する。

—

2. RFC 4180の要件と実装方針

RFC 4180が定めるCSVの基本ルールは以下の通りだ。

• フィールドの区切り文字はカンマ（`,`）。
• レコードの区切りは改行（CRLF: `vbCrLf`）。
• フィールド内に カンマ `,`、ダブルクォーテーション `”`、または 改行（CR/LF） が含まれる場合、フィールド全体をダブルクォーテーションで囲まなければならない。
• フィールド内のダブルクォーテーションは、二重のダブルクォーテーション `””` にエスケープしなければならない。

これをVBScriptの型システムとメモリ効率を意識しながら実装する。

—

3. 【実装】完全準拠・安全なCSVエスケープ関数

以下に提示するコードは、単なる関数の切り貼りではない。大規模なDBエクスポートやログ出力の現場で耐えうる、メモリとパフォーマンスに配慮した実用コードである。

Option Explicit

‘ ==============================================================================
‘ 処理名: EscapeCsvField
‘ 概要 : RFC 4180に準拠し、CSVの整合性を保つためのエスケープ処理を行う
‘ 引数 : ByVal strValue As Variant (処理対象のデータ)
‘ 戻り値: String (エスケープおよびクォーテーション処理済みの文字列)
‘ ==============================================================================
Function EscapeCsvField(ByVal strValue)
‘ Null値やEmpty値は空文字列として安全に処理する
If IsNull(strValue) Or IsEmpty(strValue) Then
EscapeCsvField = “”
Exit Function
End If

‘ 型の強制変換（数値や日付オブジェクトも安全に文字列化）
Dim str
str = CStr(strValue)

‘ エスケープが必要かどうかの判定フラグ
Dim needsQuotes
needsQuotes = False

‘ 1. カンマ、ダブルクォーテーション、改行（CR/LF）のいずれが含まれているか走査
If InStr(str, “,”) > 0 Or _
InStr(str, “”””) > 0 Or _
InStr(str, vbCr) > 0 Or _
InStr(str, vbLf) > 0 Then
needsQuotes = True
End If

‘ 2. エスケープ処理の実行
If needsQuotes Then
‘ 内部のダブルクォーテーションを “” に置換し、全体を ” で囲む
EscapeCsvField = “””” & Replace(str, “”””, “”””””) & “”””
Else
‘ メタ文字を含まない場合はそのまま返す（パフォーマンス最適化）
EscapeCsvField = str
End If
End Function

—

4. 実戦での活用：FileSystemObjectを駆使した堅牢なファイル出力

関数単体では意味がない。これを実務で利用する `FileSystemObject` （FSO）を用いたストリーム出力のテンプレートを示す。
ここで重要なのは、文字コードの指定（UTF-8 with BOM や Shift-JIS）と、オブジェクトの確実な解放によるリソースリークの防止だ。

Sub ExportDataToCsv()
Dim fso, ts
Dim filePath
filePath = “C:\Data\Output_Secure.csv”

Set fso = CreateObject(“Scripting.FileSystemObject”)

‘ TextStreamを開く (ForWriting = 2, Create = True, Format = -2(システム既定ANSI) または -1(Unicode))
‘ レガシー環境のExcelで文字化けを防ぐため、シフトJISや適切なコードページを意識する
On Error Resume Next
Set ts = fso.OpenTextFile(filePath, 2, True)
If Err.Number <> 0 Then
WScript.Echo “致命的エラー: ファイルを開けません – ” & Err.Description
Exit Sub
End If
On Error GoTo 0

‘ サンプルデータの定義（カンマ、ダブルクォーテーション、改行を含む悪条件のデータ）
Dim headers, row1, row2
headers = Array(“ID”, “氏名”, “備考”, “住所”)
row1 = Array(1, “山田 太郎”, “「特記事項なし」,確認済”, “東京都千代田区1-1”)
row2 = Array(2, “佐藤 花子”, “改行を含む” & vbCrLf & “コメントです”, “大阪府大阪市北区2-2”)

‘ ヘッダーの書き込み
WriteCsvLine ts, headers

‘ データ行の書き込み
WriteCsvLine ts, row1
WriteCsvLine ts, row2

‘ クリーンアップ（メモリの明示的解放）
ts.Close
Set ts = Nothing
Set fso = Nothing

WScript.Echo “CSVエクスポートが正常に完了しました。”
End Sub

‘ ==============================================================================
‘ 配列を受け取り、安全にエスケープした上で1行のCSVとして書き出すヘルパーサブルーチン
‘ ==============================================================================
Sub WriteCsvLine(ByRef ts, ByRef arrData)
Dim i, lineStr
lineStr = “”

For i = 0 To UBound(arrData)
‘ 各フィールドをエスケープ
lineStr = lineStr & EscapeCsvField(arrData(i))

‘ 最後の要素以外にはカンマを付与
If i < UBound(arrData) Then lineStr = lineStr & "," End If Next ' ファイルへ書き込み（改行コード付与） ts.WriteLine lineStr End Sub ' 実行のエントリーポイント ExportDataToCsv() ---

5. チーフアーキテクトからの警鐘：レガシー環境における設計思想

VBScriptのようなスクリプト言語において、最も恐れるべきは「予期せぬ型変換による暗黙のエラー」と「オブジェクトの解放漏れによるメモリリーク」である。

1. `Variant` 型の罠: VBScriptの変数はデフォルトで `Variant` である。DBから取得したNULLデータや、Excelのセルから取得したオブジェクトが生のまま関数に流れ込むと、`InStr` や `Replace` が型不一致（Error 13）を引き起こす。今回のコードのように `IsNull` や `CStr` による防御的プログラミングが不可欠である。
2. 巨大データの扱い: 数十万行に及ぶCSVをVBScriptのメモリ上で組み立てようとしてはならない。FSOの `TextStream` を用いて、1行生成してはストリームに吐き出す（ストリーミング処理）アーキテクチャを厳守すること。

枯れた技術であるからこそ、その挙動を完全に掌握し、寸分の狂いもないコードを書くこと。それが、システム運用の信頼性を担保する唯一の道である。