VBScript主要的对象

本文主要是介绍VBScript主要的对象，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

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

1. Class对象
2. Dictionary对象
3. FileSystemObject对象
4. Err对象
5. RegExp对象

1. Class对象

使用Class语句可以创建一个对象，可以为它编写字段、属性及方法，它只有两个对象事件——Initialize与Terminate。首先来看一个简单的Class示例：

  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基础上》变量赋值中也已经提到过。

  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。下面是该对象的一个综合示例：

  '定义并创建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

主对象。包含用来创建、删除和获得有关信息，以及通常用来操作驱动器、文件夹和文件的方法和属性。和该对象相关联的许多方法，与其他 FSO 对象中的方法完全相似；它们是为了方便才被提供的。

Drive

对象。包含用来收集信息的方法和属性，这些信息是关于连接在系统上的驱动器的，如驱动器的共享名和它有多少可用空间。请注意，"drive" 并非必须是硬盘，也可以是 CD-ROM 驱动器，RAM 磁盘等等。并非必须把驱动器实物地连接到系统上；它也可以通过网络在逻辑上被连接起来。

Drives

集合。提供驱动器的列表，这些驱动器实物地或在逻辑上与系统相连接。Drives 集合包括所有驱动器，与类型无关。要可移动的媒体驱动器在该集合中显现，不必把媒体插入到驱动器中。

File

对象。包含用来创建、删除或移动文件的方法和属性。也用来向系统询问文件名、路径和多种其他属性。

Files

集合。提供包含在文件夹内的所有文件的列表。

Folder

对象。包含用来创建、删除或移动文件夹的方法和属性。也用来向系统询问文件夹名、路径和多种其他属性。

Folders

集合。提供在 Folder 内的所有文件夹的列表。

TextStream

对象。用来读写文本文件。

FileSystemObject对象所有属性、方法及对象和集合的详细说明，您可以查阅参考文档，因为内容比较多，我们就看一个简单的示例，直观地来了解一下该对象的使用，该示例是将一个文件复制到指定文件夹下。

  '定义并创建对象 
 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： 
 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对象的用法：

  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" )) 
 