QTP自动化测试之VBScript对象

always_fly

VBScript作为脚本语言不仅能够编写简单的脚本，而且还能够创建及使用对象编写复杂的脚本，如
Class对象，数据字典，操作文件夹及文件，错误处理，正则表达式等等。

1. Class对象
2. Dictionary对象
3. FileSystemObject对象
4. Err对象
5. RegExp对象
1. Class对象
使用Class语句可以创建一个对象，可以为它编写字段、属性及方法，它只有两个对象事件——Initiali
ze与Terminate。首先来看一个简单的Class示例：

1. Class User
   
2.     '私有字段，也可以使用Public语句定义公有字段
   
3.     Private m_UserName
   
4.     Private m_Profile
   
5. 
   
6.     'Initialize事件相当于构造函数
   
7.     Private Sub Class_Initialize
   
8.         m_UserName = Empty   '设置UserName初始值为空字符串
   
9.     End Sub
   
10. 
    
11.     'Terminate事件相当于析构函数
    
12.     Private Sub Class_Terminate
    
13.         Set m_Profile = Nothing   '将对象设置为Nothing，销毁对象
    
14.     End Sub
    
15. 
    
16.     'Property Get语句，获取属性值或对象引用，Default只与Public一起使用，表示该属性为类的默认属性
    
17.     Public Default Property Get UserName
    
18.         UserName = m_UserName
    
19.     End Property
    
20.     'Property Let语句，设置属性值
    
21.     Public Property Let UserName(newUserName)
    
22.         m_UserName = newUserName
    
23.     End Property
    
24. 
    
25.     Public Property Get Profile
    
26.         Set Profile = m_Profile
    
27.     End Property
    
28.     'Property Set语句，设置属性对象引用
    
29.     Public Property Set Profile(newProfile)
    
30.         Set m_Profile = newProfile
    
31.     End Property
    
32. 
    
33.     'ToString方法
    
34.     Public Function ToString()
    
35.         ToString = "Hello! " & Me.UserName   'Me相当于C#中的this关键字
    
36.     End Function
    
37. End Class

复制代码

用VBScript创建的对象并不是真正的面向对象，它不能继承和实现多态，但是在QTP对象模型Utility中，
提供了一个RegisterUserFunc方法可以覆写对象的方法，但这也不是真正意义上的面向对象。Class及其
成员如何创建，上面已经简单介绍过，若要对其中的一些语句进一步了解，还需要去仔细阅读一些参考
文档。下面我们来看看如何调用对象，在《VBScript基础上》变量赋值中也已经提到过。

1. Dim u                  '定义对象变量名，注意变量名不能与类名相同，即使是大小写不同
   
2. Set u = New User       '创建对象用New语句
   
3. u.UserName = "known"   '给属性赋值
   
4. MsgBox u.ToString()    '调用方法

复制代码

2. Dictionary对象
Dictionary是存储数据键和项目对的对象，其主要属性有Count、Item、Key，主要方法有Add、
Exists、Items、Keys、Remove、RemoveAll。下面是该对象的一个综合示例：

1. '定义并创建Dictionary对象，使用CreateObject创建并返回自动化对象的引用
   
2. Dim d
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. 
   
5. '向Dictionary对象中添加键值对
   
6. d.Add "a", "Known"    'Add方法第一个参数是Key值，第二个是Item值
   
7. d.Add "b", "Christina"
   
8. d.Add "c", "test"
   
9. d.Add "d", "fuck"
   
10. Call ShowDictionary(d)
    
11. 
    
12. '遍历Dictionary对象，更改Item值
    
13. For i = 0 To d.Count - 1     'Count返回Dictionary对象中的项目数
    
14.     If d.Exists("c") Then    'Exists判断Dictionary对象中是否存在指定关键字
    
15.         d.Item("c") = "Test" 'Item返回Dictionary对象中指定Key的Item值
    
16.     End If
    
17. Next
    
18. d.Remove("d")  'Remove从Dictionary对象中删除一个关键字，项目对。
    
19. Call ShowDictionary(d)
    
20. 
    
21. '输出Dictionary对象所有键值
    
22. Sub ShowDictionary(dic)
    
23.     Dim str, a
    
24.     a = dic.Items  'Items返回一个包含所有Item值的数组
    
25.     For i = 0 To dic.Count - 1
    
26.         str = str & a(i) & vbCrlf
    
27.     Next
    
28.     MsgBox(str)
    
29. End Sub

复制代码

3. FileSystemObject对象
FileSystemObject对象可以操作驱动器、文件夹及文件，其对象模型包含下面的对象和集合。

对象/集合        描述
FileSystemObject        主对象。包含用来创建、删除和获得有关信息，以及通常用来操作驱动器、文
件夹和文件的方法和属性。和该对象相关联的许多方法，与其他 FSO 对象中的方法完全相似；它们
是为了方便才被提供的。
Drive        对象。包含用来收集信息的方法和属性，这些信息是关于连接在系统上的驱动器的，如驱
动器的共享名和它有多少可用空间。请注意，"drive" 并非必须是硬盘，也可以是 CD-ROM 驱动器，
RAM 磁盘等等。并非必须把驱动器实物地连接到系统上；它也可以通过网络在逻辑上被连接起来。
Drives        集合。提供驱动器的列表，这些驱动器实物地或在逻辑上与系统相连接。Drives 集合包
括所有驱动器，与类型无关。要可移动的媒体驱动器在该集合中显现，不必把媒体插入到驱动器中。
File        对象。包含用来创建、删除或移动文件的方法和属性。也用来向系统询问文件名、路径和多种
其他属性。
Files        集合。提供包含在文件夹内的所有文件的列表。
Folder        对象。包含用来创建、删除或移动文件夹的方法和属性。也用来向系统询问文件夹名、路
径和多种其他属性。
Folders        集合。提供在 Folder 内的所有文件夹的列表。
TextStream        对象。用来读写文本文件。
FileSystemObject对象所有属性、方法及对象和集合的详细说明，您可以查阅参考文档，因为内容比
较多，我们就看一个简单的示例，直观地来了解一下该对象的使用，该示例是将一个文件复制到指
定文件夹下。

1. '定义并创建对象
   
2. Dim fso, filePath, folderPath
   
3. Set fso = CreateObject("Scripting.FileSystemObject")
   
4. filePath = "C:\\Test.txt"
   
5. folderPath = "D:\\Test"
   
6. Call MoveFile(filePath, folderPath)
   
7. 
   
8. '将文件移动到指定文件夹
   
9. Sub MoveFile(sourceFile, targetFolder)
   
10.     Dim file, fileName
    
11.     '获取文件对象
    
12.     Set file = fso.GetFile(sourceFile)
    
13.     '判断目标文件夹是否存在
    
14.     If Not fso.FolderExists(targetFolder) Then
    
15.         fso.CreateFolder(targetFolder)
    
16.     End If
    
17.     '将文件移动到目标位置
    
18.     file.Move(targetFolder & "\\" & file.Name)
    
19. End Sub

复制代码

4. Err对象
Err对象是一个具有全局范围的内部对象，不必在代码中创建它的实例，含有关于运行时错误的信息。
主要属性有Description、HelpContext、HelpFile、Number、Source，主要方法有Clear、Raise，其属
性及方法的详细说明详见参考文档。下面的示例说明了Err对象的用法：

1. '示例1：
   
2. On Error Resume Next
   
3. Err.Raise 6  '产生溢出错误
   
4. MsgBox("Error #" & CStr(Err.Number) & " " & Err.Description)
   
5. Err.Clear
   
6. 
   
7. '示例2：
   
8. '定义数据库连接
   
9. Dim conn
   
10. Set conn = CreateObject("ADODB.Connection")
    
11. conn.BeginTrans  '开始事务
    
12. 
    
13. ...
    
14. 
    
15. '提交数据库事务错误处理
    
16. On Error Resume Next
    
17. If conn.Errors.Count > 0 Then
    
18.     conn.RollbackTrans  '回滚事务
    
19. Else
    
20.     conn.CommitTrans    '提交事务
    
21. End If
    
22. Err.Clear

复制代码

5. RegExp对象
RegExp是正则表达式对象，提供简单的正则表达式支持功能。主要属性有Global、IgnoreCase、
Pattern，主要方法有Execute、Replace、Test，其属性及方法的详细说明详见参考文档。下面的
示例说明了RegExp对象的用法：

1. Function RegExpTest(patrn, strng)
   
2.     Dim regEx, match, matches            '建立变量。
   
3.     Set regEx = New RegExp               '建立正则表达式。
   
4.     regEx.Pattern = patrn                '设置模式。
   
5.     regEx.IgnoreCase = True              '设置是否区分字符大小写。
   
6.     regEx.Global = True                  '设置全局可用性。
   
7.     Set matches = regEx.Execute(strng)   '执行搜索。
   
8.     For Each match in matches            '遍历匹配集合。
   
9.         retStr = retStr & "Match found at position "
   
10.         retStr = retStr & match.FirstIndex & ". Match Value is '"
    
11.         retStr = retStr & match.Value & "'." & vbCRLF
    
12.     Next
    
13.     RegExpTest = retStr
    
14. End Function
    
15. 
    
16. MsgBox(RegExpTest("is.", "IS1 is2 IS3 is4"))

复制代码

海海豚

谢谢分享~

梦想家