【VB.NET極限講座】Option Strict On が救う現場：暗黙の型変換という「見えない爆弾」の解体新書
開発現場でシステム改修を行っていると、次のようなコードに遭遇して頭を抱えることがないだろうか。
‘ 現場でよく見かける「動くけれど危険な」コード
Dim total As String
total = 100 + “50” ‘ 結果はどうなる？
VB.NETを長年触ってきた者なら、「動くから問題ない」という幻想がいかに危険かを知っている。このコードが許容される背景には、VB.NETのデフォルト設定である `Option Strict Off` が存在する。
我々は業務効率化ツールや企業向けシステムを作るプロフェッショナルだ。「動けばいい」ではなく、「バグが入り込む余地のない堅牢なコード」を書かなければならない。
今回は、VB.NETのデータ型の本質と、プロジェクトの生死を分ける `Option Strict On` の重要性、そして実務で直面するファイル・データベース連携における正しい型安全の設計思想を伝授しよう。
—
1. なぜ「Option Strict Off」は業務システムの敵なのか？
暗黙の型変換（Late Binding / Widening & Narrowing）の罠
VB.NETは、開発者の手間を減らす（という名の甘やかし）ため、データ型が厳密に一致していなくても、コンパイラが勝手に型を変換してくれる「暗黙の型変換（Coercion）」機能を持っている。
例えば、文字列と数値を足し算したり、小数点を整数型に代入したりといった処理だ。
一見すると便利に思えるが、これが実務において「原因不明の型不一致エラー（InvalidCastException）」や「意図しないデータの切り捨て（サイレントバグ）」を引き起こす最大の元凶となる。
パフォーマンスと保守性の劣化
`Option Strict Off` の最も恐ろしい点は、型チェックをコンパイル時ではなく実行時（Runtime）に先送りすることだ。
これにより、以下の深刻な問題が発生する。
1. 実行時エラーの多発: テスト環境ではパスしたのに、本番環境でユーザーが想定外の文字列を入力した瞬間にアプリがクラッシュする。
2. パフォーマンスの低下: 実行時に型の判定や変換（ボクシング・アンボクシング含む）が行われるため、処理速度が犠牲になる。
3. リファクタリングの恐怖: コードの変更がどこに波及するか予測できなくなり、保守性が著しく低下する。
プロフェッショナルとして、コンパイラに甘えるコードを書くべきではない。コンパイラを厳格な門番として使え。 そのためのスイッチが `Option Strict On` である。
—
2. Option Strict On で実現する「安全な型変換」の作法
プロジェクトの先頭（またはプロジェクトのプロパティ）に `Option Strict On` を宣言すると、曖昧な型変換はすべてコンパイルエラーとして検出されるようになる。
これにより、開発者は「正しい型キャスト手法」を明示的に選択せざるを得なくなる。実務で使うべき主要な変換手法を整理しておこう。
① `CType` 関数 / 各種型変換関数 (`CInt`, `CStr` など)
VB.NET固有の高速な変換構文。.NETの共通型システムに基づき、明示的にキャストを行う。
Dim inputStr As String = “123”
‘ Option Strict On でも安全に数値へ変換
Dim number As Integer = CInt(inputStr)
② `Integer.TryParse`（ファイル・DB連携の神髄）
ユーザー入力、CSVファイル、外部データベースから取得するデータは、「必ずしも期待通りの型であるとは限らない」。
例外をスローせず、安全に変換成否を判定できる `TryParse` パターンを使うのが、プログラマの常識である。
Dim rawData As String = “ABC” ‘ 不正な数値文字列
Dim result As Integer
‘ 変換に失敗しても例外でアプリが落ちず、Falseを返す
If Integer.TryParse(rawData, result) = True Then
‘ 成功時の処理
Console.WriteLine($”変換成功: {result}”)
Else
‘ 失敗時のフォールバック処理
Console.WriteLine(“数値以外のデータが検出されました。デフォルト値を使用します。”)
result = 0
End If
—
3. 【実践】ファイル・DB連携における堅牢なプロダクションコード
ここからは、実務の現場（CSVファイルの読み込みと集計）を想定した、コピペ可能かつ保守性の高いプロダクションコードを示す。
`Option Strict On` を前提とし、例外処理と型安全を徹底した設計になっている。
Option Strict On
Option Explicit On
Imports System
Imports System.IO
Imports System.Collections.Generic
Namespace EnterpriseTools
‘ 業務データを格納する堅牢な構造体（またはクラス）
Public Structure SalesRecord
Public Property DateString As String
Public Property StoreName As String
Public Property Amount As Decimal ‘ 金額は精度の高い Decimal を使用
End Structure
Public Class DataProcessor
”’
”’
”’ CSVファイルのパス Public Sub ProcessSalesCsv(filePath As String)
‘ ファイルが存在するか事前検証
If Not File.Exists(filePath) Then
Throw New FileNotFoundException($”指定されたファイルが見つかりません: {filePath}”)
End If
Dim validRecords As New List(Of SalesRecord)()
Dim errorCount As Integer = 0
‘ StreamReader を用いてメモリ効率良く行単位で読み込む
Using reader As New StreamReader(filePath, System.Text.Encoding.UTF8)
‘ ヘッダー行をスキップ
Dim header As String = reader.ReadLine()
Dim lineNo As Integer = 1
While Not reader.EndOfStream
lineNo += 1
Dim line As String = reader.ReadLine()
If String.IsNullOrWhiteSpace(line) Then Continue While
‘ カンマ区切りで分解
Dim columns As String() = line.Split(CChar(“,”))
‘ 列数の整合性チェック（データの欠損を防ぐ）
If columns.Length < 3 Then
Console.WriteLine($"[警告] 行 {lineNo}: フォーマット不正のためスキップします。")
errorCount += 1
Continue While
End If
' 型安全なパース処理
Dim parsedAmount As Decimal
If Decimal.TryParse(columns(2).Trim(), parsedAmount) Then
' 正常なレコードの構築
Dim record As New SalesRecord With {
.DateString = columns(0).Trim(),
.StoreName = columns(1).Trim(),
.Amount = parsedAmount
}
validRecords.Add(record)
Else
' 型変換エラーのロギング（実務ではログファイルに出力）
Console.WriteLine($"[エラー] 行 {lineNo}: 金額データの型不正 ('{columns(2)}')。")
errorCount += 1
End If
End While
End Using
' 集計結果の出力
CalculateAndReport(validRecords, errorCount)
End Sub
Private Sub CalculateAndReport(records As List(Of SalesRecord), errorCount As Integer)
Dim totalAmount As Decimal = 0
' LINQを用いた安全な集計
For Each rec As SalesRecord In records
totalAmount += rec.Amount
}
Console.WriteLine("----------------------------------------")
Console.WriteLine($" 処理完了レポート")
Console.WriteLine($" 有効レコード数: {records.Count} 件")
Console.WriteLine($" エラー除外数 : {errorCount} 件")
Console.WriteLine($" 総売上金額 : {totalAmount.ToString("N0")} 円")
Console.WriteLine("----------------------------------------")
End Sub
End Class
End Namespace
このコードのアーキテクチャ的ポイント
1. `Option Strict On` の徹底: すべての変数宣言、型変換において曖昧さを排除している。
2. `Decimal` 型の採用: 金額や通貨を扱う際、浮動小数点の誤差を排除するため `Double` や `Single` ではなく `Decimal` を使用。
3. ディフェンシブ・プログラミング: ファイルの存在確認、列数の検証、`Decimal.TryParse` によるフォールバックにより、不正なデータが混入してもシステムがクラッシュしない。
4. リソースの確実な解放: `Using` ステートメントにより、ファイルストリームのリークを完全に防止。
—
4. 結びにかえて：プロとしての誇りを持て
「動くコードを書くこと」はプログラマのスタートラインに過ぎない。
「予期せぬ入力があっても壊れないこと」「後からコードを読む開発者が絶望しないこと」が、プロフェッショナルとアマチュアを分ける境界線だ。
今日からあなたのプロジェクトでも `Option Strict On` を有効化し、コンパイラの力を借りて「型安全な要塞」を築き上げてほしい。バグに怯える日々に、これで終止符を打とう。
