【VBScriptの極意】DictionaryとClassで叶える「超高速データアクセス」！ ～マクロの記録から卒業、次世代スクリプトへの扉を開け～
皆さん、こんにちは！ VBScriptの世界へようこそ。私は、皆さんがVBScriptの深淵に触れ、その真価を最大限に引き出すお手伝いをさせていただく、ささやかな案内人です。
「マクロの記録」で生成された、あの読みにくいコード。一生懸命書いたのに、ファイルを開くたびに「ジーーーッ…」と待たされる。そんな経験、ありませんか？ 大丈夫、それはあなたが悪いのではなく、「効率」という名の魔法を知らなかっただけなんです。
今日は、そんな悩みを一発で解消する、VBScriptの隠された強力なテクニックをご紹介します。その名も、「DictionaryとClassを組み合わせたオンメモリキャッシュ」！
「え、いきなり難しそう…」と思ったあなた、ご安心ください。まるで、複雑なパズルを一つずつ丁寧に解き明かすように、基礎から本質まで、優しく、そして力強く解説していきます。この扉を開けば、あなたのVBScriptは、まるでジェット機のように生まれ変わるはずです！
なぜ「待たされる」のか？ ～I/O負荷の正体～
まず、なぜスクリプトが遅くなるのか、その原因を「I/O負荷」という言葉で理解しましょう。
- I/O（アイ・オー） とは、「Input/Output（入力/出力）」の略です。
- 負荷 とは、その処理にかかる「重さ」や「負担」のこと。
つまり、I/O負荷が高いというのは、コンピューターが「ファイルを開く」「データベースに問い合わせる」「ネットワークから情報を取得する」といった、外部の資源とのやり取りに多くの時間を費やしている状態を指します。
特に、繰り返し同じファイルやデータベースにアクセスする場合、その都度、ディスクを読み込んだり、ネットワークを介したりするため、どうしても時間がかかってしまいます。まるで、毎回お店に行くたびに、遠くまで歩いて、レジに並んで、商品を選んで…という手間を繰り返しているようなものです。
解決策は「頭の中（メモリ）にしまっておく」こと！ ～キャッシュの概念～
ここで登場するのが、今日の主役である「キャッシュ」の考え方です。
キャッシュとは、頻繁に使うデータを、すぐに取り出せるように一時的に保存しておく場所のこと。一番分かりやすいのは、あなたの「記憶」です。一度覚えた電話番号は、毎回電話帳を開かなくても、すぐに思い出せますよね？
コンピューターの世界でも同じです。「メモリ（RAM）」という、コンピューターの「作業机」のような場所は、ディスク（「倉庫」のようなもの）よりもずっと高速にアクセスできます。このメモリ上に、よく使うデータを置いておくのが「オンメモリキャッシュ」です。
今回のテクニックでは、この「オンメモリキャッシュ」を実現するために、VBScriptの強力な2つの要素を組み合わせます。
1. `Scripting.Dictionary` オブジェクト: キーと値のペアでデータを管理する、非常に便利な「連想配列」です。
2. 自作の `Class` オブジェクト: 関連するデータや処理をひとまとめにした、オリジナルの「箱」のようなものです。
この二つを組み合わせることで、あたかも「賢い秘書」のように、必要なデータを素早く取り出せる仕組みを作り上げます。
`Scripting.Dictionary` を使いこなす！ ～キーと値の魔法～
まずは、`Scripting.Dictionary` の基本から見ていきましょう。これはVBScriptで最も重宝するオブジェクトの一つです。
`Scripting.Dictionary` の作成と基本操作
‘ Scripting.Dictionary オブジェクトを作成します。
‘ まずは、FileSystemObject などと同様に、CreateObject でインスタンスを生成します。
Dim objDict
Set objDict = CreateObject(“Scripting.Dictionary”)
‘ — データの追加 —
‘ Add メソッドで、キーと値のペアを追加します。
‘ キーは一意である必要があり、値は何でも格納できます（文字列、数値、配列、オブジェクトなど）。
objDict.Add “apple”, 100 ‘ キー: “apple”, 値: 100
objDict.Add “banana”, 150 ‘ キー: “banana”, 値: 150
objDict.Add “orange”, 120 ‘ キー: “orange”, 値: 120
‘ — データの参照 —
‘ キーを指定して値を取得します。
Wscript.Echo “りんごの価格: ” & objDict(“apple”) ‘ 出力: りんごの価格: 100
‘ — データの更新 —
‘ 既存のキーを指定して新しい値を設定します。
objDict(“banana”) = 160 ‘ バナナの価格を更新
‘ — データの削除 —
‘ キーを指定してデータを削除します。
objDict.Remove “orange”
‘ — データが存在するか確認 —
‘ Exists メソッドで、キーが存在するかどうかを真偽値 (True/False) で返します。
If objDict.Exists(“apple”) Then
Wscript.Echo “りんごは存在します。”
End If
‘ — 全てのキーを取得 —
‘ Keys メソッドで、全てのキーを配列として取得できます。
Dim arrKeys
arrKeys = objDict.Keys
Wscript.Echo “現在のキー: ” & Join(arrKeys, “, “) ‘ 出力: 現在のキー: apple, banana
‘ — 全ての要素数を取得 —
‘ Count プロパティで、格納されている要素の数を取得します。
Wscript.Echo “要素数: ” & objDict.Count
‘ — オブジェクトの解放 —
‘ 使い終わったら、メモリを解放するために Nothing を設定します。
Set objDict = Nothing
ポイント:
- `Dictionary` は、キーを指定すれば高速にデータにアクセスできます。これは、配列のようにインデックス番号で探すのではなく、「このキーはどこかな？」と直接探しに行くイメージです。
- 値には、数値や文字列だけでなく、他のオブジェクト（配列や、後述する自作Classオブジェクト）も格納できるのが、今回のテクニックの肝となります！
陥りやすいエラーとその対策
- エラー1: 存在しないキーでアクセスしようとする
- `Wscript.Echo objDict(“grape”)` のように、`Add` していないキーでアクセスするとエラーになります。
- 対策: `Exists` メソッドで事前に存在確認をするか、`On Error Resume Next` を使ってエラーを回避し、後でチェックするなどの処理を入れましょう。
- エラー2: 同じキーで `Add` しようとする
- `objDict.Add “apple”, 200` と、既に存在するキーで `Add` しようとするとエラーになります。
- 対策: 更新したい場合は `Add` ではなく、直接 `objDict(“apple”) = 200` のように値を代入するか、`Exists` で確認してから `Add` しましょう。
自作 `Class` で「データ＋振る舞い」を gói gọn （ gói gọn = 包み込む ）！
次に、自作 `Class` の出番です。Classは、関連するデータ（プロパティ）と、そのデータを操作する処理（メソッド）をひとまとめにした「設計図」のようなものです。
例: 商品情報を格納する `ProductInfo` Class
商品の「名前」「価格」「在庫数」といったデータを、まとめて扱えるようにClassを作成してみましょう。
‘=======================================================
‘ ProductInfo クラス定義
‘=======================================================
Class ProductInfo
‘ — プロパティ (データを格納する変数) —
Public ProductName
Public Price
Public StockCount
‘ — メソッド (処理を行う関数) —
‘ 初期化メソッド (オブジェクト生成時に自動で呼ばれる)
Public Sub Class_Initialize(sName, nPrice, nStock)
Me.ProductName = sName
Me.Price = nPrice
Me.StockCount = nStock
End Sub
‘ 商品情報を表示するメソッド
Public Sub DisplayInfo()
Wscript.Echo “商品名: ” & Me.ProductName & “, 価格: ” & Me.Price & “円, 在庫: ” & Me.StockCount & “個”
End Sub
‘ 在庫を減らすメソッド
Public Sub DecreaseStock(nQuantity)
If Me.StockCount >= nQuantity Then
Me.StockCount = Me.StockCount – nQuantity
Wscript.Echo nQuantity & “個、在庫を減らしました。現在の在庫: ” & Me.StockCount & “個”
Else
Wscript.Echo “エラー: 在庫が不足しています。(要求数: ” & nQuantity & “, 現在在庫: ” & Me.StockCount & “)”
End If
End Sub
End Class
‘=======================================================
`Class` の使い方
‘ — ProductInfo オブジェクトの作成 —
‘ New キーワードを使って、Classの設計図から実体（オブジェクト）を作成します。
‘ Class_Initialize メソッドが自動で呼び出されます。
Dim objProduct1
Set objProduct1 = New ProductInfo(“ノートパソコン”, 120000, 10)
Dim objProduct2
Set objProduct2 = New ProductInfo(“USBメモリ”, 2500, 50)
‘ — プロパティへのアクセス —
‘ ドット (.) を使って、プロパティにアクセスします。
Wscript.Echo objProduct1.ProductName ‘ 出力: ノートパソコン
‘ — メソッドの呼び出し —
‘ ドット (.) を使って、メソッドを呼び出します。
objProduct1.DisplayInfo ‘ 出力: 商品名: ノートパソコン, 価格: 120000円, 在庫: 10個
objProduct2.DecreaseStock 5 ‘ 出力: 5個、在庫を減らしました。現在の在庫: 45個
‘ — オブジェクトの解放 —
Set objProduct1 = Nothing
Set objProduct2 = Nothing
ポイント:
- `Class` を使うことで、関連するデータと処理をひとつのまとまりとして扱えます。これにより、コードが整理され、理解しやすくなります。
- `Me` キーワードは、そのClass自身を指します。`Me.ProductName` は、このClassのインスタンス（オブジェクト）の `ProductName` プロパティを意味します。
- `Class_Initialize` は、`New` でオブジェクトが生成される際に自動的に実行される特別なメソッドで、初期設定を行うのに便利です。
いよいよ本番！ Dictionary + Class でキャッシュを構築する
お待たせしました！ ここまで学んだ `Scripting.Dictionary` と自作 `Class` を組み合わせることで、いよいよ「オンメモリキャッシュ」の強力な仕組みを構築します。
シナリオ: 商品リストの読み込みと更新
例えば、外部のファイル（CSVなど）から商品情報を読み込む処理を考えます。このファイルに毎回アクセスするのは時間がかかるので、一度読み込んだらメモリ上のDictionaryに保存しておき、次回以降はそこから取り出すようにします。
‘ — ProductInfo クラス定義 (上記で定義したものを使用) —
‘ Class ProductInfo … (省略)
‘ — メイン処理 —
‘ Dictionary オブジェクトを作成し、商品情報をキャッシュします。
Dim objCache
Set objCache = CreateObject(“Scripting.Dictionary”)
‘ 商品情報を取得する関数 (本来はファイルやDBから読み込む想定)
Function GetProductDataFromFile(sProductID)
Wscript.Echo “>>> ファイルから商品ID ‘” & sProductID & “‘ を読み込んでいます…”
‘ — ここで、実際のファイル読み込み処理を記述 —
‘ 例: CSVファイルから特定の行を読み込むなど
‘ 今回はダミーデータを使用します
Dim sProductName, nPrice, nStock
Select Case sProductID
Case “P001”
sProductName = “高性能CPU”
nPrice = 35000
nStock = 5
Case “P002”
sProductName = “大容量SSD”
nPrice = 18000
nStock = 15
Case “P003”
sProductName = “ゲーミングマウス”
nPrice = 7500
nStock = 30
Case Else
sProductName = “不明”
nPrice = 0
nStock = 0
End Select
‘ ProductInfo オブジェクトを作成して返します
Set GetProductDataFromFile = New ProductInfo(sProductName, nPrice, nStock)
End Function
‘ — 1回目の商品情報取得 (ファイルから読み込み、キャッシュに追加) —
Dim sProductID1, objProduct1
sProductID1 = “P001”
If objCache.Exists(sProductID1) Then
‘ キャッシュにあれば、キャッシュから取得
Set objProduct1 = objCache(sProductID1)
Wscript.Echo “[キャッシュヒット] 商品ID: ” & sProductID1 & ” の情報を取得しました。”
Else
‘ キャッシュになければ、ファイルから読み込み、キャッシュに追加
Set objProduct1 = GetProductDataFromFile(sProductID1)
Set objCache(sProductID1) = objProduct1 ‘ DictionaryにProductInfoオブジェクトを格納
Wscript.Echo “[ファイル読み込み] 商品ID: ” & sProductID1 & ” をキャッシュに追加しました。”
End If
objProduct1.DisplayInfo ‘ 取得した情報を表示
Wscript.Echo “—————————————-”
‘ — 2回目の商品情報取得 (キャッシュから取得) —
Dim sProductID2, objProduct2
sProductID2 = “P002”
If objCache.Exists(sProductID2) Then
‘ キャッシュにあれば、キャッシュから取得
Set objProduct2 = objCache(sProductID2)
Wscript.Echo “[キャッシュヒット] 商品ID: ” & sProductID2 & ” の情報を取得しました。”
Else
‘ キャッシュになければ、ファイルから読み込み、キャッシュに追加
Set objProduct2 = GetProductDataFromFile(sProductID2)
Set objCache(sProductID2) = objProduct2
Wscript.Echo “[ファイル読み込み] 商品ID: ” & sProductID2 & ” をキャッシュに追加しました。”
End If
objProduct2.DisplayInfo
Wscript.Echo “—————————————-”
‘ — 3回目の商品情報取得 (P001は既にキャッシュ済み) —
Dim sProductID3, objProduct3
sProductID3 = “P001” ‘ 再度P001を取得
If objCache.Exists(sProductID3) Then
‘ キャッシュにあれば、キャッシュから取得
Set objProduct3 = objCache(sProductID3)
Wscript.Echo “[キャッシュヒット] 商品ID: ” & sProductID3 & ” の情報を取得しました。”
Else
‘ キャッシュになければ、ファイルから読み込み、キャッシュに追加
Set objProduct3 = GetProductDataFromFile(sProductID3)
Set objCache(sProductID3) = objProduct3
Wscript.Echo “[ファイル読み込み] 商品ID: ” & sProductID3 & ” をキャッシュに追加しました。”
End If
objProduct3.DisplayInfo
Wscript.Echo “—————————————-”
‘ — キャッシュ内の情報を更新してみる —
‘ 例えば、P002の在庫を減らす
If objCache.Exists(“P002”) Then
Wscript.Echo “商品ID: P002 の在庫を更新します。”
Dim objProductToUpdate
Set objProductToUpdate = objCache(“P002”) ‘ キャッシュからProductInfoオブジェクトを取得
objProductToUpdate.DecreaseStock 10 ‘ ProductInfoオブジェクトのメソッドを呼び出す
‘ Dictionary に格納されている objProductToUpdate は、
‘ objCache(“P002”) と同じオブジェクトを参照しているので、
‘ この変更は自動的にキャッシュに反映されます。
objCache(“P002”).DisplayInfo ‘ 更新後の情報を表示
End If
Wscript.Echo “—————————————-”
‘ — 全ての商品情報を表示 (キャッシュから) —
Wscript.Echo “— 現在キャッシュにある全商品情報 —”
Dim arrKeys
arrKeys = objCache.Keys
For Each sKey In arrKeys
objCache(sKey).DisplayInfo ‘ DictionaryからProductInfoオブジェクトを取得して表示
Next
‘ — オブジェクトの解放 —
Set objCache = Nothing
‘ ProductInfo オブジェクトは Dictionary が解放される際に、
‘ 参照がなくなるため、自動的にメモリから解放されます。
‘ (明示的に Nothing にする必要はありませんが、習慣づけるのも良いでしょう)
コードの解説:
1. `objCache` の作成: `Scripting.Dictionary` を作成し、これがキャッシュの役割を果たします。
2. `GetProductDataFromFile` 関数: 実際にはファイルやデータベースからデータを読み込む処理を想定しています。ここでは、便宜上 `Select Case` を使ってダミーデータを返しています。重要なのは、この関数が `ProductInfo` オブジェクトを返すという点です。
3. キャッシュの確認 (`Exists`): 商品ID (`sProductID`) が `objCache` に存在するかどうかを確認します。
4. キャッシュヒットの場合: `objCache(sProductID)` で、格納されている `ProductInfo` オブジェクトを取得します。これで、ファイルアクセスをスキップできます！
5. キャッシュミスの場合: `GetProductDataFromFile` を呼び出してデータを取得し、`objCache(sProductID) = objProduct` のように、取得した `ProductInfo` オブジェクトを `Dictionary` に格納します。これにより、次回のアクセスに備えます。
6. キャッシュ内の更新: キャッシュから `ProductInfo` オブジェクトを取得し、そのオブジェクトのメソッド（例: `DecreaseStock`）を呼び出すだけで、キャッシュされているデータも更新されます。これは、`objCache(sProductID)` と `objProductToUpdate` が、メモリ上の全く同じ `ProductInfo` オブジェクトを参照しているためです。
このテクニックの真価:
- 圧倒的な高速化: 一度読み込んだデータは、ファイルアクセスという「重い処理」をスキップして、メモリ上の `Dictionary` から瞬時に取り出せます。
- コードの整理: `ProductInfo` Class が、商品に関するデータと操作を一つにまとめているため、コードの見通しが良くなります。
- 柔軟性: Class の中身を修正すれば、商品に追加情報を持たせたり、新しい操作を追加したりすることも容易です。
どこで役立つ？ ～実用的な応用例～
この「Dictionary + Class」キャッシュテクニックは、様々な場面で活躍します。
- 設定ファイルやマスターデータの読み込み: アプリケーション起動時や、定期的に更新される設定ファイル（CSV, INIなど）の読み込みを高速化。
- データベースアクセスの最適化: 頻繁に参照されるテーブルのデータをキャッシュし、DBへのクエリ回数を削減。
- Web APIからのデータ取得: レート制限のあるAPIや、レスポンスに時間のかかるAPIからのデータをキャッシュ。
- 複雑な計算結果の一時保存: 時間のかかる計算結果をキャッシュしておき、再利用。
まとめ：VBScriptの可能性を最大限に引き出すために
いかがでしたでしょうか？ `Scripting.Dictionary` と自作 `Class` を組み合わせることで、VBScriptスクリプトのパフォーマンスを劇的に向上させる「オンメモリキャッシュ」という強力なテクニックを解説しました。
「マクロの記録」だけでは決して到達できない、「自分で考え、効率化する」という、プログラミングの醍醐味を味わっていただけたなら幸いです。
今回ご紹介した内容は、VBScriptの基礎をしっかり理解し、それを応用することで、より高度な処理が可能になることを示しています。この知識を活かせば、皆さんの日常業務は、きっともっと効率的で、快適なものになるはずです。
ここをクリアすれば、VBScriptの基本はバッチリですよ！ ぜひ、このテクニックをあなたのスクリプトに取り入れて、その効果を実感してみてください。
これからも、皆さんのVBScriptライフを応援しています！
