本文主要是介绍VBScript主要的对象，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！
VBScript作为脚本语言不仅能够编写简单的脚本，而且还能够创建及使用对象编写复杂的脚本，如Class对象，数据字典，操作文件夹及文件，错误处理，正则表达式等等。
1. Class对象
2. Dictionary对象
3. FileSystemObject对象
4. Err对象
5. RegExp对象
1. Class对象
使用Class语句可以创建一个对象，可以为它编写字段、属性及方法，它只有两个对象事件——Initialize与Terminate。首先来看一个简单的Class示例：
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 | Class User '私有字段，也可以使用Public语句定义公有字段 Private m_UserName Private m_Profile 'Initialize事件相当于构造函数 Private Sub Class_Initialize m_UserName = Empty '设置UserName初始值为空字符串 End Sub 'Terminate事件相当于析构函数 Private Sub Class_Terminate Set m_Profile = Nothing '将对象设置为Nothing，销毁对象 End Sub 'Property Get语句，获取属性值或对象引用，Default只与Public一起使用，表示该属性为类的默认属性 Public Default Property Get UserName UserName = m_UserName End Property 'Property Let语句，设置属性值 Public Property Let UserName(newUserName) m_UserName = newUserName End Property Public Property Get Profile Set Profile = m_Profile End Property 'Property Set语句，设置属性对象引用 Public Property Set Profile(newProfile) Set m_Profile = newProfile End Property 'ToString方法 Public Function ToString() ToString = "Hello! " & Me .UserName 'Me相当于C#中的this关键字 End Function End Class |
用VBScript创建的对象并不是真正的面向对象，它不能继承和实现多态，但是在QTP对象模型Utility中，提供了一个RegisterUserFunc方法可以覆写对象的方法，但这也不是真正意义上的面向对象。Class及其成员如何创建，上面已经简单介绍过，若要对其中的一些语句进一步了解，还需要去仔细阅读一些参考文档。下面我们来看看如何调用对象，在《VBScript基础上》变量赋值中也已经提到过。
| 1 2 3 4 | Dim u '定义对象变量名，注意变量名不能与类名相同，即使是大小写不同 Set u = New User '创建对象用New语句 u.UserName = "known" '给属性赋值 MsgBox u.ToString() '调用方法 |
2. Dictionary对象
Dictionary是存储数据键和项目对的对象，其主要属性有Count、Item、Key，主要方法有Add、Exists、Items、Keys、Remove、RemoveAll。下面是该对象的一个综合示例：
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 | '定义并创建Dictionary对象，使用CreateObject创建并返回自动化对象的引用 Dim d Set d = CreateObject( "Scripting.Dictionary" ) '向Dictionary对象中添加键值对 d.Add "a" , "Known" 'Add方法第一个参数是Key值，第二个是Item值 d.Add "b" , "Christina" d.Add "c" , "test" d.Add "d" , "fuck" Call ShowDictionary(d) '遍历Dictionary对象，更改Item值 For i = 0 To d.Count - 1 'Count返回Dictionary对象中的项目数 If d.Exists( "c" ) Then 'Exists判断Dictionary对象中是否存在指定关键字 d.Item( "c" ) = "Test" 'Item返回Dictionary对象中指定Key的Item值 End If Next d.Remove( "d" ) 'Remove从Dictionary对象中删除一个关键字，项目对。 Call ShowDictionary(d) '输出Dictionary对象所有键值 Sub ShowDictionary(dic) Dim str, a a = dic.Items 'Items返回一个包含所有Item值的数组 For i = 0 To dic.Count - 1 str = str & a(i) & vbCrlf Next MsgBox(str) End Sub |
3. FileSystemObject对象
FileSystemObject对象可以操作驱动器、文件夹及文件，其对象模型包含下面的对象和集合。
| 对象/集合 | 描述 |
|---|---|
| FileSystemObject | 主对象。包含用来创建、删除和获得有关信息，以及通常用来操作驱动器、文件夹和文件的方法和属性。和该对象相关联的许多方法，与其他 FSO 对象中的方法完全相似；它们是为了方便才被提供的。 |
| Drive | 对象。包含用来收集信息的方法和属性，这些信息是关于连接在系统上的驱动器的，如驱动器的共享名和它有多少可用空间。请注意，"drive" 并非必须是硬盘，也可以是 CD-ROM 驱动器，RAM 磁盘等等。并非必须把驱动器实物地连接到系统上；它也可以通过网络在逻辑上被连接起来。 |
| Drives | 集合。提供驱动器的列表，这些驱动器实物地或在逻辑上与系统相连接。Drives 集合包括所有驱动器，与类型无关。要可移动的媒体驱动器在该集合中显现，不必把媒体插入到驱动器中。 |
| File | 对象。包含用来创建、删除或移动文件的方法和属性。也用来向系统询问文件名、路径和多种其他属性。 |
| Files | 集合。提供包含在文件夹内的所有文件的列表。 |
| Folder | 对象。包含用来创建、删除或移动文件夹的方法和属性。也用来向系统询问文件夹名、路径和多种其他属性。 |
| Folders | 集合。提供在 Folder 内的所有文件夹的列表。 |
| TextStream | 对象。用来读写文本文件。 |
FileSystemObject对象所有属性、方法及对象和集合的详细说明，您可以查阅参考文档，因为内容比较多，我们就看一个简单的示例，直观地来了解一下该对象的使用，该示例是将一个文件复制到指定文件夹下。
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | '定义并创建对象 Dim fso, filePath, folderPath Set fso = CreateObject( "Scripting.FileSystemObject" ) filePath = "C:\\Test.txt" folderPath = "D:\\Test" Call MoveFile(filePath, folderPath) '将文件移动到指定文件夹 Sub MoveFile(sourceFile, targetFolder) Dim file, fileName '获取文件对象 Set file = fso.GetFile(sourceFile) '判断目标文件夹是否存在 If Not fso.FolderExists(targetFolder) Then fso.CreateFolder(targetFolder) End If '将文件移动到目标位置 file.Move(targetFolder & "\\" & file.Name) End Sub |
4. Err对象
Err对象是一个具有全局范围的内部对象，不必在代码中创建它的实例，含有关于运行时错误的信息。主要属性有Description、HelpContext、HelpFile、Number、Source，主要方法有Clear、Raise，其属性及方法的详细说明详见参考文档。下面的示例说明了Err对象的用法：
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | '示例1： On Error Resume Next Err.Raise 6 '产生溢出错误 MsgBox( "Error #" & CStr (Err.Number) & " " & Err.Description) Err.Clear '示例2： '定义数据库连接 Dim conn Set conn = CreateObject( "ADODB.Connection" ) conn.BeginTrans '开始事务 ... '提交数据库事务错误处理 On Error Resume Next If conn.Errors.Count > 0 Then conn.RollbackTrans '回滚事务 Else conn.CommitTrans '提交事务 End If Err.Clear |
5. RegExp对象
RegExp是正则表达式对象，提供简单的正则表达式支持功能。主要属性有Global、IgnoreCase、Pattern，主要方法有Execute、Replace、Test，其属性及方法的详细说明详见参考文档。下面的示例说明了RegExp对象的用法：
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | Function RegExpTest(patrn, strng) Dim regEx, match, matches '建立变量。 Set regEx = New RegExp '建立正则表达式。 regEx.Pattern = patrn '设置模式。 regEx.IgnoreCase = True '设置是否区分字符大小写。 regEx.Global = True '设置全局可用性。 Set matches = regEx.Execute(strng) '执行搜索。 For Each match in matches '遍历匹配集合。 retStr = retStr & "Match found at position " retStr = retStr & match.FirstIndex & ". Match Value is '" retStr = retStr & match.Value & "'." & vbCRLF Next RegExpTest = retStr End Function MsgBox(RegExpTest( "is." , "IS1 is2 IS3 is4" )) |
这篇关于VBScript主要的对象的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！
![Java实现将byte[]转换为File对象](/front/images/it_default.gif)