【软件测试自动化-VBScript基础讲座 6】== 单例模式 ==

学过JAVA开发的朋友都应该很清楚，在JAVA的设计模式中有单例模式、工厂模式等，由于JAVA是面向对象的语言，因此构造这些模式都很方便。其实在VBS中也可以通过代码来实现，今天就来讲一下单例模式的应用。

Option Explicit
Public oExcel '声明全局变量
Dim bAleadyInit '判断对象是否存在的标志位
'检查对象是否已经被初始化
bAlreadyInit = False
If IsObject(oExcel) = True Then
'对象初始化
If Not oExcel is Nothing Then
'激活状态
bAlreadyInit = True
End If
End If
'如果标志位是FALSE创建一个实例对象
If bAlreadyInit = False then Set oExcel = CreateObject("Excel.Application")
oExcel.Whatever '此处的WHATEVER只是代替是任意的方法，并没有此方法

相信大家在创建EOM的时候一定都碰到过，进程里创建了很多EXCEL.EXE，这种情况是很常见的，如果你没有使用单例模式的话，接下来我们先来解释下以上代码的具体含义

这里首先是声明一个全局变量，对这个变量做判断，如果存在就把标志位设置为TRUE，如果不存在就直接新建一个实例，这样就能保证他只会有一个实例，但是就这样一段并不能达到我们想要的效果，我们需要把它封装成函数，这样才能方便我们进行调用。

Option Explicit
Public oExcel '声明全局变量

Function GetExcel
Dim bAleadyInit '判断对象是否存在的标志位
'检查对象是否已经被初始化
bAlreadyInit = False
If IsObject(oExcel) = True Then
'对象初始化
If Not oExcel is Nothing Then
'激活状态
bAlreadyInit = True
End If
End If
'如果标志位是FALSE创建一个实例对象
If bAlreadyInit = False then Set oExcel = CreateObject("Excel.Application")
Set GetExcel = oExcel

End Function

Set oExcelInstace = GetExcel '获取对象
oExcelInstace.Whatever '使用对象

使用以上方法就可以达到永远只有一个实例对象，如果有创建，直接引用已创建的实例，如果没有直接创建一个。使oExcel 这个全局变量永远只有一个实例。但是这样写我们会发现一个问题，当我们在创建多个对象并将指针指向全局变量的这个实例时，我们都需要销毁这些对象，但是就算我们把这些对象全部销毁，全局变量的实例还是一直会持续下去，不会释放。因此我们需要使用类进行包装来改善这种情况。

Option Explicit
Public oExcel '声明全局变量
Class ExcelWrapper
Private oExcelObject
Private Sub Class_Initialize
Dim bAleadyInit '判断对象是否存在的标志位
'检查对象是否已经被初始化
bAlreadyInit = False
If IsObject(oExcel) = True Then
'对象初始化
If Not oExcel is Nothing Then
'激活状态
bAlreadyInit = True
End If
End If
'如果标志位是FALSE创建一个实例对象
If bAlreadyInit = False then Set oExcel = CreateObject("Excel.Application")
Set oExcelObject = oExcel
End Sub
Private Sub Class_Terminate
oExcelObject.Quit
Set oExcelObject = Nothing
End Sub
Public Sub Open(sFileName)
'写入打开文件的代码
End Sub
Public Function GetSheetData(sSheet)
'写如读取单元格的代码
End Sub
'********等等，可以写更多方法*******
End Class

Set oExcelInstace = New ExcelWrapper
oExcelInstace.Open("Something")

这样一个完美的单例模式就完成了，当我们创建ExcelWrapper这个类包装的时候就只会调用单个实例，在类销毁时，会自动把销毁此全局变量的实例，这样就可以使我们再也不会在进程里看到N多个EXCEL进程实例了。

在下次的课程中我会讲解工厂模式的应用，敬请期待！！