VBScriptで学ぶデザインパターン入門：効率的なコード設計法

' グローバル変数としてシングルトンのインスタンスを定義
Dim objSingleton
If IsEmpty(objSingleton) Then
    Set objSingleton = New Singleton
End If

Class Singleton
    Private data

    Private Sub Class_Initialize()
        data = "初期データ"
    End Sub

    Public Function GetData()
        GetData = data
    End Function

    Public Sub SetData(newData)
        data = newData
    End Sub
End Class

' 利用例
WScript.Echo "シングルトンデータ: " & objSingleton.GetData()
objSingleton.SetData "更新後のデータ"
WScript.Echo "更新されたデータ: " & objSingleton.GetData()

' オブジェクト生成を行うファクトリ関数
Function CreateLogger(type)
    Select Case LCase(type)
        Case "console"
            Set CreateLogger = New ConsoleLogger
        Case "file"
            Set CreateLogger = New FileLogger
        Case Else
            Set CreateLogger = Nothing
    End Select
End Function

' コンソール出力用ロガークラス
Class ConsoleLogger
    Public Sub Log(message)
        WScript.Echo "Console Log: " & message
    End Sub
End Class

' ファイル出力用ロガークラス（簡易例）
Class FileLogger
    Private filePath
    Private fileSystem

    Private Sub Class_Initialize()
        filePath = "C:\temp\log.txt"
        Set fileSystem = CreateObject("Scripting.FileSystemObject")
    End Sub

    Public Sub Log(message)
        Dim file
        Set file = fileSystem.OpenTextFile(filePath, 8, True)
        file.WriteLine Now() & " - " & message
        file.Close
    End Sub
End Class

' 利用例
Dim logger
Set logger = CreateLogger("console")
If Not logger Is Nothing Then
    logger.Log "ファクトリーパターンの実装例です。"
End If

' オブザーバー管理クラス
Class Subject
    Private observers
    Private state

    Private Sub Class_Initialize()
        Set observers = CreateObject("Scripting.Dictionary")
        state = ""
    End Sub

    Public Sub Attach(key, observer)
        observers.Add key, observer
    End Sub

    Public Sub Detach(key)
        If observers.Exists(key) Then
            observers.Remove key
        End If
    End Sub

    Public Sub SetState(newState)
        state = newState
        NotifyAll
    End Sub

    Public Function GetState()
        GetState = state
    End Function

    Private Sub NotifyAll()
        Dim key
        For Each key In observers.Keys
            observers.Item(key).Update state
        Next
    End Sub
End Class

' オブザーバークラスの例
Class Observer
    Public Sub Update(newState)
        WScript.Echo "オブザーバーに通知: 状態が " & newState & " に変化しました。"
    End Sub
End Class

' 利用例
Dim subject, observer1, observer2
Set subject = New Subject
Set observer1 = New Observer
Set observer2 = New Observer

subject.Attach "obs1", observer1
subject.Attach "obs2", observer2

subject.SetState "Active"

' インターフェース風計算クラス
Class CalculatorStrategy
    Public Function Calculate(a, b)
        ' 仮の実装（オーバーライドを前提）
        Calculate = 0
    End Function
End Class

' 加算戦略クラス
Class AdditionStrategy
    Public Function Calculate(a, b)
        Calculate = a + b
    End Function
End Class

' 減算戦略クラス
Class SubtractionStrategy
    Public Function Calculate(a, b)
        Calculate = a - b
    End Function
End Class

' コンテキストクラス
Class CalculatorContext
    Private strategy

    Public Sub SetStrategy(obj)
        Set strategy = obj
    End Sub

    Public Function ExecuteStrategy(a, b)
        If Not strategy Is Nothing Then
            ExecuteStrategy = strategy.Calculate(a, b)
        Else
            ExecuteStrategy = "戦略が設定されていません"
        End If
    End Function
End Class

' 利用例
Dim calc, addStrategy, subStrategy
Set calc = New CalculatorContext
Set addStrategy = New AdditionStrategy
Set subStrategy = New SubtractionStrategy

calc.SetStrategy addStrategy
WScript.Echo "加算結果: " & calc.ExecuteStrategy(10, 5)

calc.SetStrategy subStrategy
WScript.Echo "減算結果: " & calc.ExecuteStrategy(10, 5)