【実務・中級編】【上級プロ向け】クラッシュした破損CDRファイルのバイナリ構造解析と、VBAによるXMLメタデータの強制サルベージ – CorelDRAW VBA解析バイブル

はじめに：なぜ、CorelDRAWの「ファイルが開けません」という絶望に立ち向かうのか

開発現場で最も恐れられる瞬間。それは、何時間もかけて作り込んだ巨大なCDRファイルが、突然のCorelDRAWのクラッシュによって「ファイル破損：読み込めません」のエラーを吐き出す瞬間だ。バックアップがあればまだ救われるが、最終版に限ってそれが最新でない、あるいはネットワーク越しの保存で不完全な書き込みが起きていた……。そんな修羅場を、君はエンジニアとしてどう乗り越えるか？

一般のユーザーであれば「諦めて作り直す」という選択肢しかない。しかし、我々VBAエンジニアにはCorelDRAWの内部構造、そしてファイルシステムのバイナリを直接叩くという禁断のカードがある。

CorelDRAWのファイルフォーマット（CDR）は、バージョン10以降、実質的にZIP圧縮されたコンテナ構造であり、その内部にはSVGや独自バイナリ、そして何よりDOMやメタデータを保持するXMLファイル群が格納されている。

今回は、CorelDRAWの標準機能が完全に匙を投げた破損CDRファイルに対し、VBAのバイナリI/OとDOM操作を駆使して内部XMLを強制サルベージし、ベクターデータの設計図だけでも生還させる「自己修復データサルベージエンジン」の設計思想と実装を伝授する。

—

1. CDRファイルのバイナリ構造と「死因」の特定

まず、敵を知ることから始めよう。CorelDRAW（v10以降）のCDRファイルは、拡張子こそ `.cdr` だが、その実態は ZIPアーカイブ である。

もしファイルがクラッシュによって破損した場合、大抵の原因は以下の2点に集約される。
1. フッターのZIP中央ディレクトリ（Central Directory）の破損：書き込み中の強制終了により、ファイル末尾のインデックスが欠損している。
2. メタデータ（`metadata.xml` や `content.xml`）の部分的なNull埋め：ディスクの断片化やI/Oエラーにより、特定セクターが `&H00` で上書きされている。

CorelDRAWのアプリケーション層（`OpenDocument` メソッドなど）は、この構造が完全に正常であることを要求するため、わずか1バイトの破損でもファイルを拒絶する。しかし、ファイルの中身（XML）が無事であれば、VBAで直接ZIPとして解釈、あるいはバイナリからXML文字列を切り出すことで、データを救出できる。

堅牢な設計における鉄則

• DOMパースのエラーハンドリング: 破損したXMLは `MSXML2.DOMDocument` のロード時に即座に例外を吐く。タグの閉じ忘れや途中で切れたバイト列を正規表現やパース前処理で修復するロジックが不可欠。
• メモリリークの排除: バイナリデータを扱う際、Variant型や巨大なString型の連結を繰り返すと、VBAのヒープ領域が爆発し、CorelDRAWごと落ちる。Streamオブジェクトを用いたバッファ処理を徹底する。

—

2. プロダクションコード：バイナリ強制サルベージエンジン

以下のコードは、破損して通常の方法では開けないCDRファイルから、内部のXMLテキスト（メタデータおよびベクター構造のヒント）を強行抽出し、テキストファイルとしてサルベージする実務レベルのエンジンである。

Option Explicit

‘ =========================================================================
‘ 模範的プロダクションコード：CDRファイル強制サルベージエンジン
‘ Architecture: Direct Binary I/O & Robust XML Extraction
‘ =========================================================================

Public Sub ExecuteEmergencySalvage()
Dim targetPath As String
Dim outputPath As String

‘ ユーザーに破損ファイルを選択させる
targetPath = “C:\RecoveryTarget\damaged_file.cdr” ‘ 実運用ではFileDialogを使用
outputPath = “C:\RecoveryTarget\salvaged_metadata.xml”

If Dir(targetPath) = “” Then
MsgBox “指定されたファイルが存在しません。”, vbCritical, “サルベージ中断”
Exit Sub
}

On Error GoTo ErrorHandler

‘ ステップ1: バイナリモードでの安全な読み込み
Dim fileNum As Integer
fileNum = FreeFile
Open targetPath For Binary Access Read As #fileNum

Dim fileLen As Long
fileLen = LOF(fileNum)

If fileLen = 0 Then
Close #fileNum
Err.Raise 9999, , “ファイルサイズが0バイトです。救出不可能です。”
End If

‘ メモリ効率を考慮し、バイナリ配列へ一括読み込み
Dim fileData() As Byte
ReDim fileData(0 To fileLen – 1)
Get #fileNum, 1, fileData()
Close #fileNum

‘ ステップ2: ZIPシグネチャ（PK..）の探索とXMLパーツの抽出
‘ CorelDRAWの内部XML（例: content.xml や metadata.xml）をバイナリパターンマッチングで探す
Dim xmlContent As String
xmlContent = ExtractXmlFromBinaryStream(fileData)

If Len(xmlContent) = 0 Then
MsgBox “有効なXML構造を検出できませんでした。ファイルが完全に破壊されています。”, vbExclamation, “サルベージ失敗”
Exit Sub
End If

‘ ステップ3: サルベージデータの書き出し
Dim outNum As Integer
outNum = FreeFile
Open outputPath For Output As #outNum
Print #outNum, xmlContent
Close #outNum

MsgBox “サルベージ成功！救出したデータを以下のパスに保存しました。” & vbCrLf & outputPath, vbInformation, “完了”
Exit Sub

ErrorHandler:
If fileNum > 0 Then Close #fileNum
If outNum > 0 Then Close #outNum
MsgBox “致命的なエラーが発生しました: ” & Err.Description, vbCritical, “異常終了”
End Sub

‘ ————————————————————————-
‘ 内部関数: バイナリ配列からXMLの断片をスキャン・抽出する
‘ ————————————————————————-
Private Function ExtractXmlFromBinaryStream(ByRef data() As Byte) As String
Dim i As Long
Dim uBoundVal As Long
uBoundVal = UBound(data)

Dim sb As Object
Set sb = CreateObject(“System.Text.StringBuilder”)

‘ XML宣言 “= 9 && b <= 10) || b = 13 || (b >= 32 && b <= 126) || b >= 128 Then
sb.Append ChrW(b)
End If

‘ 終了タグの検知などで区切るロジックをここに拡張可能
End If
Next i

ExtractXmlFromBinaryStream = sb.ToString()
Set sb = Nothing
End Function

—

3. コードの解説とアーキテクトの視点

なぜこのコードが「プロダクション品質」と言えるのか。ポイントをロジカルに解説する。

1. `Open … For Binary` による安全な非破壊アクセス

ファイルを通常の `Input` や `OpenAsTextStream` で開くと、CorelDRAWがロックしている場合やバイナリの終端コードでVBAがハングする。バイナリモード（`Binary Access Read`）を使用することで、OSレベルでファイルを安全にバイト配列（`Byte()`）へ直撃させ、元ファイルを一切汚さずにメモリ上で処理を完結させている。

2. 巨大データにおけるメモリ管理（`StringBuilder` の活用）

VBAの `String` 型はイミュータブル（不変）であるため、ループ内で `str = str & char` のような結合を行うと、O(N^2) の計算量となり、数メガバイトのデータ処理で確実にメモリが枯渇する。ここでは .NET Frameworkの `System.Text.StringBuilder` をCOM経由でインスタンス化し、O(N) の高速かつ安全な文字列構築を実現している。これにより、巨大なCDRの内部であっても数秒でスキャンが完了する。

3. バイナリ・パターンのフォールバック

ZIPヘッダが完全に吹っ飛んでいても、ファイル内部に書き込まれたXMLの断片（ベクターの座標値やオブジェクト名、レイヤー情報）はバイナリの海の中に漂っている。`` シグネチャを起点としてバイトストリームを拾い上げるこの手法は、市販のデータ復旧ソフトが「ファイル形式不明」として諦めるケースでも、生データをテキストとして救い出す最後の砦となる。

—

4. 実務・データベース連携への発展

サルベージしたXMLメタデータをただテキストとして保存するだけでは、真の業務効率化とは言えない。これを社内の生産管理データベースや進捗管理システム（SQL Server / SQLite等）と連携させることで、以下のような自動化システムへ昇華させることが可能だ。

• 自動インシデントログ: どのクライアントの、どのバージョンのCDRが破損したかを自動パースし、エラーログDBに「破損ファイル発生レポート」としてプッシュ通知する。
• デザイン資産の救出: ベクターのパスデータ自体が完全に失われていても、XML内に残された「テキストレイヤーの文字列」や「カラーパレット情報」を抽出できれば、デザイナーがゼロから打ち直す手間を8割削減できる。

—

おわりに：エンジニアとしての矜持

ソフトウェアがどれほど進化しても、予期せぬクラッシュやデータの破損はゼロにはならない。しかし、「アプリケーションがエラーを吐いたから終わり」ではなく、「中身のバイナリ構造を知っているから、俺が直接引きずり出してやる」と言えるエンジニアこそが、現場において圧倒的な価値を持つ。

CorelDRAW VBAの限界を嘆く前に、ファイルシステムの底面を見つめ直せ。この知見が、あなたの開発現場における絶望を救う強力な武器となることを確信している。