<menu id="4i424"><strong id="4i424"></strong></menu>
  • <nav id="4i424"><nav id="4i424"></nav></nav>
    <dd id="4i424"></dd>
  • <nav id="4i424"></nav>
  • 使用VBScript开发自动化测试脚本

     
    古城
    @ 2008.03.17
    分类:技术笔记
    点击:1468  评论:0
     
     
     
      很多人都觉得微软的VBScript功能比较弱,如果从开发自动化测试的角度来讲,更是不可能了。从我对VBScript脚本的了解来看,对一个脚本是否可以做自动化测试需要这个测试人员具备两方面的知识,第一个,就是对VBScript脚本开发语言精通,要了解VBScript的核心技术如何更广泛的应用;第二个,就是要有自动化的测试思想,这个一定得是做过测试工作的能够了解的多一些。

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

    本文评论

     
     

    发表评论

    你的评论
    ← 填你的昵称
    以下内容非必填,可根据需要填写
    ← 可以展示在你的评论上方
    ← 不会在页面展示
    ← 不会在页面展示
    ← 只给我看?勾选上
    这是一个别人称之为角落的世界
    幸而,它的确是我的世界
    贵州快3QQ群