メモリの限界を突破せよ：VB.NET `Yield` による遅延評価とイテレータの極意
大規模なシステム改修やデータ移行の現場で、私たちは常に「メモリ枯渇」という悪魔と隣り合わせだ。VBA時代から続く「配列に全データをぶち込んで処理する」という悪癖を、いい加減に捨て去る時が来た。
VB.NETにおける `Yield` キーワードは、単なる構文の糖衣ではない。これは実行コンテキストを一時的に凍結し、必要な時に必要な分だけデータを引き出す、高度なメモリ制御技術だ。本稿では、レガシーシステムを現代のアーキテクチャへと昇華させるための、イテレータ実装の極意を伝授する。
—
1. なぜ「全件展開」が罪なのか
例えば、数百万行のCSVログ解析や、数万件のWindows APIを叩いて取得するシステム情報リストを扱う際、`List(Of T)` に全件格納して返却するコードを書いていないか？
‘ 【アンチパターン】メモリを浪費する実装
Public Function GetLargeData() As List(Of DataRow)
Dim list As New List(Of DataRow)
‘ データを全てメモリに乗せる（数GBのメモリを食いつぶす可能性）
For Each item In Source
list.Add(item)
Next
Return list
End Function
このコードは、処理を開始する前に全データをメモリ上に確保する。大規模データであれば、ここで `OutOfMemoryException` が発生する。また、Garbage Collector (GC) に多大な負荷をかけ、アプリケーションのレスポンスを著しく低下させる。
—
2. Yield による「遅延評価」のアーキテクチャ
`Yield` は、メソッドの実行状態を保持したまま呼び出し元に制御を戻す。これにより、消費者は「次の要素」が必要になった瞬間にだけ処理が実行される。これが「遅延評価」の正体だ。
実装例：メモリ効率を最大化したイテレータ
Public Iterator Function GetSystemLogs(filePath As String) As IEnumerable(Of String)
‘ StreamReaderでストリームを保持し、1行ずつ遅延読み込みを行う
Using reader As New System.IO.StreamReader(filePath)
Dim line As String
While (InlineAssignHelper(line, reader.ReadLine())) IsNot Nothing
‘ フィルタリング等のロジックをここに挟む
If line.Contains(“ERROR”) Then
‘ 必要な瞬間まで値は確定しない
Yield line
End If
End While
End Using
End Function
‘ ヘルパー: VB.NETでReadLineの代入を式中で行うための定石
Private Function InlineAssignHelper(Of T)(ByRef target As T, value As T) As T
target = value
Return value
End Function
この実装の真髄
- スコープの限定: `StreamReader` は `Using` ブロック内で適切に管理され、`Iterator` が最後まで消費されるか、途中で中断された時点で確実にリソースが解放される。
- 低メモリ消費: メモリ上に存在するのは「現在の1行」のみ。データが100万件あろうが1億件あろうが、メモリ消費量は一定だ。
—
3. レガシーAPI連携における最適化戦略
Windows API呼び出しを伴う処理では、`Marshal.AllocHGlobal` などで確保したアンマネージメモリとの戦いになる。`Yield` を使う際は、例外発生時にメモリリークを起こさないための「後始末」が重要だ。
Public Iterator Function QuerySystemProcessInfo() As IEnumerable(Of IntPtr)
Dim hSnapshot As IntPtr = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0)
Try
Dim pe32 As PROCESSENTRY32 = … ‘ API定義
While Process32Next(hSnapshot, pe32)
‘ 処理して返却
Yield pe32.th32ProcessID
End While
Finally
‘ イテレータの終了やループの中断時にも必ず実行される
If hSnapshot <> IntPtr.Zero Then CloseHandle(hSnapshot)
End Try
End Function
`Try…Finally` ブロックを `Iterator` 内で使うことで、呼び出し元が途中で `Break` した場合でも、確実にハンドルを解放できる。これが中級者とプロフェッショナルを分かつ境界線だ。
—
4. チーフアーキテクトからの提言
- LINQとの親和性: `Yield` で実装されたイテレータは `IEnumerable(Of T)` を返すため、そのまま `Where` や `Select` といったLINQメソッドと連結できる。これにより、非常に宣言的で美しいデータパイプラインを構築できる。
- パフォーマンスの誤解: `Yield` はイテレータオブジェクトを作成するため、非常に小さなオーバーヘッドはある。しかし、巨大なリストを生成・コピー・GC回収するコストに比べれば、無視できるほど小さい。
- 保守の観点: コードを「手続きの羅列」から「データの流れ（パイプライン）」へ変えることで、複雑な条件分岐の入れ子を解消できる。
結論
メモリ効率を意識しないコーディングは、現代のシステム開発では「技術的負債」そのものだ。`Yield` を使いこなし、データの流れを制御せよ。ハードウェアの限界をソフトウェアの設計でねじ伏せることこそが、我々エンジニアの矜持である。
さあ、今すぐ既存の `List(Of T)` を返すメソッドを `Iterator` にリファクタリングしてみろ。その軽快な動作が、貴殿の設計が正解であることの何よりの証明となるはずだ。
