VBScriptでコード量を減らしたい

Question

VBScriptでコード量を減らしたいです。
以下に現在の状況の疑似コードを示します。
同じ変数名の部分は同じものが記述されると思ってください。

function main()
    a()
    if hoge
        fuga
    b()
    if hoge
        fuga
    c()
    if hoge
        fuga

以上のようなものをうまく処理するためには高階関数というのを用いればよいということが
分かりました。しかし、VBScriptはそれを使うための条件である第一級関数ではないため、使えないようです(第一級関数のWikipedia参照)。そこで、他に同様のこどができる方法があれば教えてください。

Comments

[maisumakun]

fugaの実行回数も結果に影響する、という状況でしょうか？

[natsuki_yamamo]

しない状況でお願いします。

Answer 1

そのコードからは本当に高階関数が必要なのかどうかが判断できないので,
とりあえず VBScript で高階関数を実現する方法についてだけ書きます.

実は VBScript は本格的なオブジェクト指向言語に比べれば非力ですが,
クラスを作成することができ, 同じメソッドを備えていれば多態もできます.

Option Explicit

Class CHogeA
    Public Sub Fuga()
        MsgBox "A"
    End Sub
End Class

Class CHogeB
    Public Sub Fuga()
        MsgBox "B"
    End Sub
End Class

Dim I
Dim hogeArray(5)

Set hogeArray(0) = New CHogeA
Set hogeArray(1) = New CHogeB
Set hogeArray(2) = New CHogeB
Set hogeArray(3) = New CHogeA
Set hogeArray(4) = New CHogeB

For I = 0 To 4
    hogeArray(I).Fuga()
Next

これを使って高階関数を再現することができます.
3種類の関数を作り, 関数そのものを変数に入れる代わりに,
3種類の「同じメソッドを持つ」クラスを作り, オブジェクトを変数へ入れるのです.
すると同じメソッド呼び出しで, 入れられたオブジェクトに応じたメソッドが呼び出されるので高階関数の代わりとすることができます.

Comments

[natsuki_yamamo]

やっていることは理解できました、ありがとうございました。