在VBScript中使用对象

工作需要，用vbs写了个小工具，回归原始了一把。 鉴于本人长期使用java，与对象异常亲热。 今天也试了下在VBScript中使用对象，感觉不错！有兴趣的朋友可以自己试试

 

[一] VBScript对象声明

 

Class ClassName
    ' Fields, Functions, Properties go here.
End Class

 

其中ClassName为类名，创建对象的语句也很简单，即： Set obj = new ClassName

 

 

 

[二] 对象中的成员

 

常用的即public成员与private成员，private成员只能在类内部可见。 以Person类为例,我们定义了如下4个成员变量。私有变量前加"m_"为VBScript通常的命名规约。

 

 

 

 

Class Person
    public name
    private m_age
    private m_gender
    private m_bestFriend
End Class

 

 

 外部调用public变量时，可直接用.[变量名]， 若我们想为Person定义名字为John，即：

Set John = new Person

John.name = "John"

 

[三] 对象中Properties的Let, Set与Get

 

在VBScript脚本中，我们通常把成员变量称之为Properties，我们可以为它定义Let, Set, Get Procedure。 由于我们经常会将变量设为private的，因此这三个方法就显得很重要了。 其中若Property为普通变量，则用Let进行设值，若为对象则需要定义Set。 取值直接用Get。

 

Class Person
public name
private m_age
private m_gender
private m_bestFriend

'==========================================================================
' Name: age
' Summary: Let & Get method m_age
'==========================================================================
public Property Get age()
    age = m_age
End Property

public Property Let age(intAge)
    m_age = intAge
End Property

'==========================================================================
' Name: gender
' Summary: Let & Get method m_gender
'==========================================================================
public Property Get gender()
    gender = m_gender
End Property

public Property Let gender(strGender)
    m_gender = strGender
End Property 

'==========================================================================
' Name: bestFriend
' Summary: Set & Get method m_bestFriend
'==========================================================================
public Property Get bestFriend()
    Set bestFriend = m_bestFriend
End Property

public Property Set bestFriend(objFriend)
    Set m_bestFriend = objFriend
End Property 

End Class

 

 

调用Let/Set/Get, 例子如下：

Set John = new Person

John.name = "John"

John.age = 25

John.gender = "Male"

 

Set Annie = new Person

Annie.name = "Annie"

Annie.age = 23

Annie.gender = "Female"

 

Set John.bestFriend = Annie

wscript.echo "John's best friend: " & John.bestFriend.name

 

[四] 对象中定义函数

 

与java/c++一样VBScript也支持在对象内部定义函数。 格式与用法都很简单。 给个加好友的例子。

 

 

Class Person
public name
private m_friends

'==========================================================================
' Name: addFriend
' Summary: Add a friend to Person
'==========================================================================
Public Function addFriend(objFriend)

    If (NOT IsEmpty(m_friends)) Then
        ' Use Preserve keyword to avoid erasing while Redim.
        ReDim Preserve m_friends(UBound(m_friends) + 1)
    Else
        ReDim m_friends(0)
    End If

     ' Add Friend
    Set m_friends(UBound(m_friends)) = objFriend
End Function 

'==========================================================================
' Name: getFriends
' Summary: Get all the friends
'==========================================================================
Public Function getFriends()
    getFriends = m_friends
End Function

End Class

 

 

测试例子：

Set John = new Person

John.name = "John"

Set Annie = new Person

Annie.name = "Annie"

Set Michael= new Person

Annie.name = "Michael"

 

John.addFriend(Annie)

John.addFriend(Michael)

 

wscript.echo "John has " & UBound(John.getFriends()) + 1 & " friends."

 

 

Hope it can relax your eyes : )