我在软件测试这个行业也是做过很多年了，自己的方向也是自动化测试，对VBScript脚本也算是了解，在测试过程中

也应用了一些，所以来谈谈如何使用VBScript来开发自动化测试。

首先先介绍几个可以在自动化测试开发中用到的VBScript的几个函数。

1、InStr 函数

描述

返回某字符串在另一字符串中第一次出现的位置。

语法

InStr([start, ]string1, string2[, compare])

InStr 函数的语法有以下参数：

参数 描述

start 可选。数值表达式，用于设置每次搜索的开始位置。如果省略，将从第一个字符的位置开始搜索。如果 start 包含 Null，则会出现错误。如果已指定 compare，则必须要有 start 参数。

string1 必选。接受搜索的字符串表达式。

string2 必选。要搜索的字符串表达式。

compare 可选。指示在计算子字符串时使用的比较类型的数值。有关数值，请参阅“设置”部分。如果省略，将执行二进制比较。

示例：

这个函数说明的是一个字符串在另一个字符串中出现的位置，在自动化测试中，经常用作比较结果来使用。

比如：

Dim a,b

a="rtyi"

b="1345krkrtyi:{""><?"

If InStr(b,a)>0 Then

MsgBox"测试结果通过"

Else

MsgBox "测试结果失败"

End If

2、Split 函数

描述

返回基于0的一维数组，其中包含指定数目的子字符串。

语法

Split(expression[, delimiter[, count[, start]]])

Split 函数的语法有以下参数：

参数 描述

expression 必选。字符串表达式，包含子字符串和分隔符。如果 expression 为零长度字符串，Split 返回空数组，即不包含元素和数据的数组。

delimiter 可选。用于标识子字符串界限的字符。如果省略，使用空格 ("") 作为分隔符。如果 delimiter 为零长度字符串，则返回包含整个 expression 字符串的单元素数组。

count 可选。被返回的子字符串数目，-1 指示返回所有子字符串。

compare 可选。指示在计算子字符串时使用的比较类型的数值。有关数值，请参阅“设置”部分。

示例：

这个函数主要用于拆分字符串用，在自动化测试开发中主要用于拆分测试数据。

比如：

Dim a,b,i

a="rt124,y556,57777,<>:/*&%"

b=Split(a,",")

For i=0 To Ubound(b)

MsgBox b(i)

Next