站长资源脚本专栏

　我在软件测试这个行业也是做过很多年了，自己的方向也是自动化测试，对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