あなたは、目の前の業務を自動化しようとVB.NETの学習を始めたばかりかもしれません。しかし、ただ構文を覚えるだけでは、実戦で通用する堅牢なアプリケーションは構築できません。特に「繰り返し処理」は、その設計一つでシステムの安定性、パフォーマンス、そして保守性が決定づけられる、まさに業務自動化の”心臓部”です。
今回は、VB.NETの繰り返し処理における二大巨頭、`Do…Loop`と`While…End While`について、単なる構文解説に留まらず、業務アプリ開発における「無限ループ回避」「堅牢な設計」「可読性向上」という、チーフアーキテクトとしての私の知見を余すところなく伝授しましょう。
【VB.NET極限の知見】無限ループを断つ！Do…LoopとWhile…End Whileの使い分けと堅牢設計
業務自動化の要諦：確実な繰り返し処理を掌握せよ
業務自動化ツールは、定型作業をミスなく、迅速にこなすために存在します。ファイルの一括処理、データベースからのデータ取得、外部APIとの連携、ユーザーからの入力検証など、あらゆる場面で「繰り返し」が不可欠です。
しかし、この繰り返し処理を安易に設計すると、システムはあっという間に破綻します。最悪の場合、無限ループに陥り、CPUリソースを食い尽くし、他の業務プロセスを巻き込んでシステム全体を停止させることすらあり得ます。
ここで重要なのは、`Do…Loop`と`While…End While`が提供する「ループ制御の特性」を深く理解し、それぞれのシナリオに最適な選択をすることです。この二つの構文は非常に似ていますが、そのわずかな違いが、システムの安定性を左右するのです。
While…End While：防御的なループ制御の旗手
`While…End While`は、最も直感的で「防御的」なループ構造です。
動作特性：条件が真の間、繰り返す（事前評価型）
このループは、ループ本体の処理が実行される前に、まず条件式を評価します。条件式が`True`であればループ本体が実行され、再び条件評価に戻ります。条件式が`False`になった瞬間にループを抜けます。
重要なのは、最初から条件が`False`の場合、ループ本体の処理は一度も実行されないという点です。これは、特定の条件下でしか処理を実行したくない場合に極めて有効な特性です。
.net
‘ While…End While の基本構文
While 条件式
‘ 条件式が True の間、ここに記述された処理が繰り返される
End While
コード例：ファイル監視と安全なタイムアウト処理
業務シナリオでよくあるのが「特定のファイルが生成されるまで待つ」という処理です。この時、ファイルが最初から存在しない可能性もあれば、タイムアウトで処理を打ち切る必要もあります。このような「不確実な外部リソース」を扱う際に、`While…End While`の事前評価型は非常に適しています。
.net
Imports System.IO
Imports System.Threading
Public Module FileMonitor
”’
”’
”’ 監視対象のファイルパス
”’ 最大待機時間（秒）
Public Sub MonitorFileUntilReady(ByVal filePath As String, ByVal timeoutSeconds As Integer)
Dim startTime As DateTime = DateTime.Now ‘ 監視開始時刻を記録
Dim fileExists As Boolean = False ‘ ファイル存在フラグ
Console.WriteLine($”ファイル監視開始: {filePath}”)
‘ ファイルが存在しない、かつタイムアウトしていない間ループを続ける
‘ ◆POINT: 事前評価型なので、最初からファイルが存在すればループは実行されない
While Not fileExists AndAlso (DateTime.Now – startTime).TotalSeconds < timeoutSeconds
If File.Exists(filePath) Then
fileExists = True ' ファイルが見つかったらフラグを立てる
Exit While ' ループを抜ける (早期終了)
Else
Console.WriteLine($"ファイル '{filePath}' はまだ見つかりません。待機中...")
Thread.Sleep(1000) ' 1秒待機し、CPUを過剰に消費しないようにする
End If
End While
' ループ終了後の結果判定
If fileExists Then
Console.WriteLine($"ファイル '{filePath}' が見つかりました。処理を続行します。")
' ここにファイルを見つけた後の処理を記述
' 例: Dim fileContent As String = File.ReadAllText(filePath)
' Console.WriteLine($"ファイル内容の一部: {fileContent.Substring(0, Math.Min(fileContent.Length, 50))}...")
Else
' タイムアウトが発生した場合
Console.WriteLine($"エラー: ファイル '{filePath}' は {timeoutSeconds} 秒以内に見つかりませんでした。")
' 業務要件に応じてエラーログ記録や例外スローを行う
Throw New TimeoutException($"ファイル '{filePath}' の待機がタイムアウトしました。")
End If
End Sub
' 実行例:
' Sub Main()
' Try
' ' 存在しないファイルを10秒間監視（実際はファイルを手動で作成してテスト）
' MonitorFileUntilReady("C:\Temp\MyImportantData.txt", 10)
' Catch ex As TimeoutException
' Console.WriteLine($"処理中断: {ex.Message}")
' Catch ex As Exception
' Console.WriteLine($"予期せぬエラー: {ex.Message}")
' End Try
' End Sub
End Module
こんな時に使え：安全第一、不確実な外部リソース連携
- ファイルやネットワークリソースの存在確認: ファイルが存在しない、ネットワーク接続がない場合でも、余計な処理を実行せず安全に終了したい場合。
- APIやデータベースからのデータ取得: 最初からデータがない可能性があり、その場合はループ処理自体が不要な場合。
- ユーザー入力のオプション処理: 特定の条件が満たされた場合にのみ、繰り返し入力検証を行いたい場合。
`While…End While`は、ループの開始前に「本当にこの処理を繰り返す必要があるのか？」と問いかける、極めて防御的な選択肢と言えるでしょう。
Do…Loop：柔軟なループ制御、その4つの顔
`Do…Loop`は、`While…End While`よりも柔軟な制御を提供し、特に「最低1回は処理を実行したい」というシナリオで真価を発揮します。しかし、その分、条件式の位置によって動作が異なる4つのバリエーションが存在するため、それぞれの特性を正確に理解する必要があります。
1. Do While…Loop：While…End Whileに似て非なる事前評価型
While…End Whileと同様に、ループ本体の実行前に条件を評価します。
.net
‘ Do While…Loop の基本構文
Do While 条件式
‘ 条件式が True の間、ここに記述された処理が繰り返される
Loop
`While…End While`と機能的にはほぼ同じですが、`Do…Loop`の構文の一部として存在します。どちらを使うかは個人の好みやチームのコーディング規約に依りますが、「最低1回は実行されるか否か」というDo…Loopの他のバリエーションとの区別を明確にするため、私個人としては事前評価型は`While…End While`を推奨します。明確な意図がない限り、構文が混在すると可読性を損ねる可能性があるからです。
2. Do Until…Loop：条件が偽の間、繰り返す（事前評価型）
`Do While…Loop`の条件を反転させたものです。`Until`句は「〜まで」という意味で、条件式が`True`になるまでループを続けます。
.net
‘ Do Until…Loop の基本構文
Do Until 条件式
‘ 条件式が False の間、ここに記述された処理が繰り返される
Loop
これは「〜が真になるまで、〜を繰り返す」という日本語の思考に近く、特定の状態になるまで待機するシナリオで非常に直感的に記述できます。
コード例：特定の状態になるまで待機（API応答など）
外部APIやバッチ処理の完了を待つ際、特定のリトライ回数やタイムアウトを設定しながら、処理の成功を待つケースです。
.net
Imports System.Threading ‘ Thread.Sleep のために必要
Public Module ApiCaller
”’
”’
”’ 最大リトライ回数
”’
Public Function WaitForApiResponse(ByVal maxRetries As Integer) As String
Dim retryCount As Integer = 0 ‘ 現在のリトライ回数
Dim apiResponse As String = “” ‘ APIからの応答を格納する変数
Dim isSuccessful As Boolean = False ‘ API呼び出しが成功したかどうかのフラグ
‘ API呼び出しが成功するまで、または最大リトライ回数に達するまで繰り返す
‘ ◆POINT: 条件が真 (isSuccessful = True または retryCount >= maxRetries) になるまでループを続ける
Do Until isSuccessful OrElse retryCount >= maxRetries
Console.WriteLine($”API呼び出し試行 {retryCount + 1}/{maxRetries}…”)
‘ ここに実際のAPI呼び出しロジックを記述
‘ 例: apiResponse = CallExternalApiFunction()
‘ ◆モックアップ処理: 3分の1の確率で成功と仮定
Dim random As New Random()
If random.Next(1, 4) = 1 Then
apiResponse = “API処理成功！データ取得完了。”
isSuccessful = True ‘ 成功フラグを立てる
Else
apiResponse = “API処理失敗。リトライします。”
Console.WriteLine(apiResponse)
Thread.Sleep(500) ‘ 0.5秒待機 (サーバへの負荷軽減と待機)
End If
retryCount += 1 ‘ リトライ回数をインクリメント
Loop
‘ ループ終了後の結果判定
If isSuccessful Then
Console.WriteLine(“API処理が成功しました。”)
Return apiResponse
Else
Console.WriteLine($”エラー: API処理が {maxRetries} 回のリトライで成功しませんでした。”)
Throw New ApplicationException(“API処理リトライ上限到達。処理を中断します。”)
End If
End Function
‘ 実行例:
‘ Sub Main()
‘ Try
‘ Dim response As String = WaitForApiResponse(5) ‘ 最大5回リトライ
‘ Console.WriteLine($”APIからの最終応答: {response}”)
‘ Catch ex As Exception
‘ Console.WriteLine($”エラー発生: {ex.Message}”)
‘ End Try
‘ End Sub
End Module
3. Do…Loop While：最低1回は実行される事後評価型
このバリエーションこそ、`Do…Loop`が`While…End While`と決定的に異なる最大のポイントです。ループ本体の処理を最低1回は実行し、その後で条件式を評価します。
.net
‘ Do…Loop While の基本構文
Do
‘ この処理は最低1回は実行される
Loop While 条件式 ‘ 条件式が True の間、繰り返される
「まずやってみて、それから続けるかどうか判断する」というシナリオに最適です。
コード例：ユーザー入力強制、データベース接続のリトライ
ユーザーに必ず何かを入力させたい場合や、最初の接続試行は必ず行い、失敗した場合にのみリトライしたい場合などに有用です。
.net
Public Module UserInput
”’
”’
”’
Public Function GetValidNumericInput_DoLoopWhile() As Integer
Dim userInput As String = “” ‘ ユーザー入力文字列
Dim isValidInput As Boolean = False ‘ 入力が有効かどうかのフラグ
Dim parsedValue As Integer = 0 ‘ パースされた数値
‘ ◆POINT: 最低1回は入力を求め、有効な数値が入力されるまで繰り返す
Do
Console.Write(“数値を入力してください: “)
userInput = Console.ReadLine()
‘ 入力値のパースを試みる
If Integer.TryParse(userInput, parsedValue) Then
isValidInput = True ‘ 有効な数値であればフラグを立てる
Console.WriteLine($”有効な入力: {parsedValue}”)
Else
Console.WriteLine(“無効な入力です。数値を入力してください。”)
End If
Loop While Not isValidInput ‘ isValidInputがFalseの間 (つまり無効な入力の間)、繰り返す
Return parsedValue
End Function
‘ 実行例:
‘ Sub Main()
‘ Dim mandatoryInput As Integer = GetValidNumericInput_DoLoopWhile()
‘ Console.WriteLine($”最終的に取得した数値: {mandatoryInput}”)
‘ End Sub
End Module
4. Do…Loop Until：最低1回実行後、条件が偽の間繰り返す（事後評価型）
`Do…Loop While`の条件を反転させたものです。最低1回実行後、条件式が`True`になるまでループを続けます。
.net
‘ Do…Loop Until の基本構文
Do
‘ この処理は最低1回は実行される
Loop Until 条件式 ‘ 条件式が True になるまで繰り返される
「〜が完了するまで、この処理を繰り返す」というような、完了条件が明確な場合に適しています。
コード例：外部プロセス完了待機（特定の終了コードまで）
別のアプリケーションやスクリプトを起動し、そのプロセスが終了するまで待機するようなシナリオです。初回は必ずプロセスの状態を確認し、終了していなければ待機を続けるという流れになります。
.net
Imports System.Diagnostics ‘ Process クラスのために必要
Imports System.Threading ‘ Thread.Sleep のために必要
Public Module ProcessWatcher
”’
”’
”’ 監視対象のプロセス名 (例: “notepad”)
”’ 最大待機時間（秒）
Public Sub WaitForProcessCompletion(ByVal processName As String, ByVal maxWaitTimeSeconds As Integer)
Dim processRunning As Boolean = True ‘ プロセスが実行中かどうかのフラグ
Dim startTime As DateTime = DateTime.Now ‘ 待機開始時刻を記録
Console.WriteLine($”プロセス ‘{processName}’ の完了を待機中…”)
‘ ◆POINT: 最低1回はチェックし、プロセスが終了するか、タイムアウトするまで繰り返す
‘ processRunning が False (プロセス終了) またはタイムアウト条件が真になるまでループ
Do
‘ ここでプロセス監視ロジックを実装
‘ Process.GetProcessesByName は指定された名前の実行中プロセスを配列で返す
Dim processes() As Process = Process.GetProcessesByName(processName)
If processes.Length = 0 Then
processRunning = False ‘ プロセスが終了した
Console.WriteLine($”プロセス ‘{processName}’ が終了しました。”)
Else
Console.WriteLine($”プロセス ‘{processName}’ はまだ実行中です。”)
Thread.Sleep(2000) ‘ 2秒待機 (CPU負荷軽減と状態変化のポーリング間隔)
End If
‘ タイムアウトチェック
If (DateTime.Now – startTime).TotalSeconds >= maxWaitTimeSeconds Then
Console.WriteLine($”警告: プロセス ‘{processName}’ が {maxWaitTimeSeconds} 秒以内に終了しませんでした。”)
‘ 必要に応じてここでプロセスを強制終了するなどの処理を検討
‘ 例: For Each p As Process In processes : p.Kill() : Next
processRunning = False ‘ タイムアウトでループを終了させる
End If
Loop Until Not processRunning ‘ processRunning が False になるまで (つまりプロセスが終了するまで)
‘ ループ終了後の結果判定
If Not processRunning AndAlso (DateTime.Now – startTime).TotalSeconds < maxWaitTimeSeconds Then
Console.WriteLine("プロセス完了待機処理が正常に終了しました。")
Else
Console.WriteLine("プロセス完了待機処理がタイムアウトにより終了しました。")
End If
End Sub
' 実行例 (例として Notepad を起動してから待機する):
' Sub Main()
' Dim notepadProcess As Process = Nothing
' Try
' ' Notepad を起動
' notepadProcess = Process.Start("notepad.exe")
' Console.WriteLine("Notepad を起動しました。手動で閉じてください。")
'
' WaitForProcessCompletion("notepad", 15) ' 15秒間待機
' Catch ex As Exception
' Console.WriteLine($"エラー: {ex.Message}")
' Finally
' ' 待機時間終了後もプロセスが残っていれば強制終了
' If notepadProcess IsNot Nothing AndAlso Not notepadProcess.HasExited Then
' Console.WriteLine("notepadプロセスを強制終了します。")
' notepadProcess.Kill()
' End If
' End Try
' End Sub
End Module
【チーフアーキテクトの金言】無限ループを絶対に回避する設計思想
ここからが本番です。構文を理解するだけでは初心者レベル。真のプロは、無限ループを「発生させない」設計思想を確立します。
原則1：ループ制御変数の「初期化」「更新」「終了条件」を明確にせよ
無限ループのほとんどは、この3つの要素のいずれかが欠けているか、誤っているために発生します。
1. 初期化: ループに入る前に、制御変数が適切な初期値を持っているか？
2. 更新: ループ本体内で、制御変数が必ず終了条件に向かって変化しているか？
3. 終了条件: いつループを抜けるべきか、明確かつ到達可能な条件が設定されているか？
これらの要素がコード上で視認しやすく、論理的に破綻がないか常に確認してください。
原則2：タイムアウトと最大試行回数を常に考慮せよ
外部リソース（ファイル、データベース、API、ネットワーク）との連携では、予期せぬ遅延や応答不能が常に発生する可能性があります。このような場合、無限に待機し続けるのは愚策です。
- タイムアウト: `DateTime.Now`と開始時刻を比較し、指定時間を超えたらループを強制終了する。
- 最大試行回数: カウンタ変数を導入し、特定のリトライ回数を超えたらループを強制終了する。
これにより、外部要因による無限ループや、システム全体のハングアップを防ぎ、堅牢性を飛躍的に高めます。
原則3：外部リソース連携時のエラーハンドリングを徹底せよ
ループ内でファイルI/Oやネットワーク通信などを行う場合、`Try…Catch…Finally`ブロックを適切に配置してください。
- `Catch`ブロックで例外を捕捉し、必要に応じてリトライロジックに組み込むか、安全にループを終了させる。
- `Finally`ブロックで、ファイルハンドルやデータベース接続といったリソースを必ず解放する。
- エラー発生時にもループ制御変数が正しく更新されるか、またはループが終了するよう設計する。
原則4：可読性向上のためのコード規約とコメント
複雑なループほど、可読性が重要になります。
- 意味のある変数名: `i`や`j`だけでなく、`retryCount`、`fileFound`など、用途が明確な変数名を使用する。
- 適切なインデント: ループのネストが深いほど、インデントで構造を明確にする。
- 簡潔なコメント: ループの目的、終了条件、制御変数の役割など、複雑な部分には簡潔なコメントを付与する。ただし、自明なコードに冗長なコメントは不要です。
- `Exit Do` / `Exit While` の慎重な使用: ループの途中で条件を満たして抜ける場合に便利ですが、多用するとループの終了条件が分散し、可読性を損ねる可能性があります。極力、単一の終了条件を目指し、必要な場合にのみ使用しましょう。
原則5：パフォーマンスへの配慮とデバッグの極意
- ループ内の処理を最小限に: ループ内でデータベースへの頻繁なアクセスや、重い計算、不要なオブジェクト生成は避ける。可能であれば、ループの前に一度にデータを取得し、ループ内で処理する。
- `Thread.Sleep`の活用: 無限ループを防ぐため、ポーリング処理などではCPUを過剰に消費しないよう、適切な待機時間（例: `Thread.Sleep(100)`）を設ける。
- デバッガの活用: ステップ実行（F10/F11）で、ループ制御変数の値や条件式の評価結果を逐一確認する癖をつけましょう。無限ループに陥った際に、どこで条件が変化しなくなったのか、一目で把握できます。
まとめ：ループ処理のマスターが、堅牢な業務アプリを創造する
`Do…Loop`と`While…End While`は、一見するとシンプルな構文ですが、その動作特性のわずかな違いが、業務アプリケーションの安定性と信頼性を大きく左右します。
- `While…End While`: 「まず条件を確認し、真であれば繰り返す」という防御的なアプローチ。不確実な外部リソース連携で、最初から処理が不要な可能性がある場合に最適です。
- `Do…Loop While`: 「最低1回は処理を実行し、その後条件を確認し真であれば繰り返す」という積極的なアプローチ。初回は必ず処理が必要な場合や、ユーザー入力検証などに適しています。
- `Do Until…Loop` / `Do…Loop Until`: `While`の条件を反転させたもので、「〜になるまで繰り返す」という直感的な記述が可能です。
これら基礎構文の特性を理解し、さらに無限ループを回避するための設計原則、つまり「初期化・更新・終了条件の明確化」「タイムアウト/最大試行回数」「堅牢なエラーハンドリング」を徹底することで、あなたは単なるプログラマーではなく、真に信頼される業務自動化のチーフアーキテクトへと進化できるでしょう。
この極限の知見を血肉とし、あなたの手で、バグの起きない、堅牢で効率的な業務アプリケーションを創造してください。未来のシステムは、あなたの確かな設計にかかっています。
