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

 Rss订阅IQuickTest（关于如何订阅？）

订阅地址： http://blog.csdn.net/zzxxbb112/rss/list

作者：zzxxbb112
时间：2009/11/26 版权所有，侵权必究。

出处：http://blog.csdn.net/zzxxbb112

    学过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进程实例了。

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