VBScriptを掌握せよ：GetRefで切り拓く「動的関数呼び出し」の世界
こんにちは。現場で泥臭い自動化を積み重ね、VBScriptの深淵まで潜り込んできたエンジニアです。
皆さんは普段、「この条件の時はこの処理、別の条件ならあの処理」と、`If`文や`Select Case`を何重にも重ねて書いていませんか？ そのコード、実は「GetRef（ゲット・レフ）」という魔法の関数を使うだけで、劇的にスマートで拡張性の高いものに生まれ変わります。
今日は、VBScriptにおける「関数ポインタ」の正体、GetRefを使いこなして、あなたのコードを「手続きの羅列」から「柔軟なモジュール」へ昇華させる術をお教えします。
—
1. なぜ「GetRef」なのか？
通常、VBScriptで関数を呼び出すときは `Call MyFunction()` のように、名前を直接指定しますよね。これは「静的」な呼び出しです。
しかし、GetRefを使うと、「関数そのもの」を「変数」として扱うことができます。つまり、状況に応じて「どの関数を実行するか」を動的に差し替えられるようになるのです。これができると、コードの疎結合化（部品同士の依存関係を減らすこと）が一気に進みます。
—
2. GetRefの基本：関数を変数に「代入」する
まずは、最もシンプルな形を見てみましょう。
‘ 実行したい関数を定義
Function SayHello()
WScript.Echo “こんにちは！”
End Function
Function SayGoodBye()
WScript.Echo “さようなら！”
End Function
‘ — ここがGetRefの魔法 —
Dim myAction
‘ GetRefを使うと、関数への「参照」を保持できる
Set myAction = GetRef(“SayHello”)
‘ 変数を通じて関数を呼び出す
myAction()
‘ 別の関数に差し替えることも一瞬
Set myAction = GetRef(“SayGoodBye”)
myAction()
ここがポイント！
- `GetRef(“関数名”)` は、その関数への「切符」のようなものです。
- `Set` を使って変数に格納するのがルール。
- 実行するときは、変数名に `()` をつけるだけでOKです。
—
3. 実践：コールバック関数で処理を委譲する
ここからが本題です。例えば、「ログを出力する」という共通処理の中で、具体的な「計算内容」だけを外から差し替えるような設計にしてみましょう。
‘ メイン処理：処理を実行してログを出す
Sub ProcessTask(taskName, callbackFunc)
WScript.Echo “— ” & taskName & ” を開始します —”
‘ 受け取った関数を動的に実行（コールバック）
callbackFunc()
WScript.Echo “— 完了しました —”
End Sub
‘ 差し替える具体的な処理
Function TaskA()
WScript.Echo “データAを読み込んでいます…”
End Function
Function TaskB()
WScript.Echo “データBを分析しています…”
End Function
‘ 呼び出し元
ProcessTask “タスクA”, GetRef(“TaskA”)
ProcessTask “タスクB”, GetRef(“TaskB”)
このように、`ProcessTask` という箱は「何をするか」を知らなくても、渡された関数を実行するだけで済みます。これが「関数のモジュール化」の第一歩です。
—
4. 陥りやすい罠：ここだけは注意！
GetRefを使う際、初心者が必ずと言っていいほどハマるポイントがあります。
1. Setを忘れる: GetRefはオブジェクト（参照）を返すため、必ず `Set` キーワードが必要です。これを忘れると「型が一致しません」というエラーになります。
2. 存在しない関数名: `GetRef(“NotExists”)` と書くと、実行時にエラーになります。文字列で関数名を渡すため、タイプミスに注意しましょう。
3. スコープ: GetRefで指定する関数は、呼び出す場所と同じスクリプト内にある必要があります。
—
5. 終わりに：ここをクリアすれば「脱・初心者」
GetRefを活用できるようになると、あなたの書くスクリプトは単なる「手順書」から、構成可能な「ツールキット」へと進化します。
- 条件分岐の嵐を減らす
- 処理を部品化して再利用しやすくする
- イベント駆動に近い柔軟な設計にする
最初は少し不思議な感覚かもしれませんが、一度この「関数を差し替える」感覚を掴めば、VBScriptはもっと楽しく、もっと強力な武器になります。
まずは、既存の `If` 文を一つだけ GetRef を使った構造に置き換えてみてください。その瞬間に、あなたのコードは一歩上のステージに到達しますよ！
何か詰まったら、いつでも聞いてくださいね。応援しています！
