VBScriptはこんな感じにもかける

ここで知ったので、とりあえずメモって感じ。

Class CString
Private m_str
' 初期化
Private Sub Class_Initialize()
m_str = ""
End Sub

' プロパティに値を代入するメソッド
Public Sub SetString(str)
m_str = str
End sub

Public Property Get Length()
Length = Len(m_str)
End Property


' プロパティに値を書き込めるようにするメソッド
' パブリックなのでこのクラス外からもアクセスできる
' メソッドになる
Public Property Let Str(StrText)
m_str = StrText
End Property

End Class

Dim ObjStr
Set ObjStr = New CString
ObjStr.SetString("This is a test")
Wscript.Echo ObjStr.Length
ObjStr.Str = "TestTestTest"
Wscript.Echo ObjStr.Length