VBScript常用函数总结

　　在编写 QTP脚本的过程中，有一些经常使用的函数。如果我们能熟悉这些常用的函数及其用法，并合理地使用它们，那么一些问题就很容易得到解决。下面是我总结的VBScript中常用的函数及其用法。 网管u家u.bitsCN.com

　　1，GetROProperty

网管u家u.bitscn@com

　　说明：You use the GetROProperty method to retrieve the current value of a test object property from a run-time object in your application.

网管论坛bbs_bitsCN_com

　　一般来说，所有的对象都可以使用此方法得到运行时对象的实际值。 网管联盟bitsCN@com

　　语法：object.GetROProperty （Property， [PropertyData]）

网管bitscn_com

　　如   ButtonName=Browser（"QA Home Page"）。Page（"QA Home Page"）。WebButton（"Submit"）。GetTOProperty（"Name"）

网管u家u.bitsCN.com

　　2，WaitProperty 网管联盟bitsCN@com

　　说明：Waits until the specified object property achieves the specified value or exceeds the specified timeout before continuing to the next step. 中国网管论坛bbs.bitsCN.com

　　此方法可以解决由于等待系统进行处理某些操作或网络原因引起的测试对象同步问题。

　　语法：object.WaitProperty （PropertyName， PropertyValue， [TimeOut]） 中国网管论坛bbs.bitsCN.com

　　如 网管下载dl.bitscn.com

　　Window（"Test"）。Static（"Status："）。WaitProperty "text"， "Ready"， 30000 网管联盟bitsCN_com

　　3，Instr 网管联盟bitsCN@com

　　Returns the position of the first occurrence of one string within another.

网管论坛bbs_bitsCN_com

　　可以得到一个字符串在另外一个字符串中首次出现的位置。

中国网管论坛bbs.bitsCN.com

　　语法： InStr（[start， ]string1， string2[， compare]） 网管联盟bitsCN@com

　　4，Split 网管网www_bitscn_com

　　Returns a zero-based， one-dimensional array containing a specified number of substrings. 中国网管论坛bbs.bitsCN.com

　　此函数可以把原来用某个特殊字符串连接起来的字符串分割开，得到一个一维的数组。 网管网www.bitscn.com

　　5，UBound 网管联盟bitsCN_com

　　Returns the largest available subscript for the indicated dimension of an array. 网管网www.bitscn.com

　　得到某个维度的最大值。 中国网管论坛bbs.bitsCN.com

　　6，Trim

　　Returns a copy of a string without leading spaces （LTrim）， trailing spaces （RTrim）， or both leading and trailing spaces （Trim）。 网管网www.bitscn.com

　　如果需要删除字符串左边的所有空格，那么可以使用LTrim  函数；如果需要删除字符串右边的所有空格，那么可以使用RTrim  函数。如果需要删除字符串左边和右边的所有空格，那么可以使用Trim  函数。 中国网管论坛bbs.bitsCN.com

　　7，Ucase

　　Returns a string that has been converted to uppercase.

　　此函数可以把所有的字符都转换成相应的大写。 网管网www.bitscn.com

　　8，LCase 网管下载dl.bitscn.com

　　Returns a string that has been converted to lowercase. 中国网管论坛bbs.bitsCN.com

　　此函数可以把所有的字符都转换成相应的小写。 网管u家u.bitscn@com

　　9，Cstr

中国网管联盟bitsCN.com

　　Returns an expression that has been converted to a Variant of subtype String. 中国网管联盟bitsCN.com

　　由于VBScript只有一种类型Variant，你可以使用此函数把某个变量强制转换成String类型。

　　10，CInt 网管网www_bitscn_com

　　Returns an expression that has been converted to a Variant of subtype Integer.

中国网管联盟bitsCN.com

　　由于VBScript只有一种类型Variant，你可以使用此函数把某个变量强制转换成Integer类型。

　　在描述性编程语句中，最常用的函数有：

　　11，Create 网管网www.bitscn.com

　　这是创建一类或一个对象时必须要使用的方法。

网管联盟bitsCN_com

　　12，ChildObjects

网管联盟bitsCN_com

　　使用此方法可以得到符合某些条件的一类对象的集合。 网管u家u.bitscn@com

　　13，Count

　　使用使用此方法可以得到符合某些条件的一类对象的个数。 网管联盟bitsCN@com

　　The following example uses the Create method to return a Properties collection object named EditDescription， and then uses the returned object to instruct QuickTest to enter the text： MyName in the first WebEdit object in the Mercury Tours page with the name UserName. 网管论坛bbs_bitsCN_com

　　Set EditDesc = Description.Create（）

　　EditDesc（"micclass"）。Value = "WebEdit" 网管u家u.bitscn@com

　　EditDesc（"Name"）。Value = "userName"

　　Set Lists = Browser（"Welcome： Mercury"）。Page（"Welcome： Mercury"）。ChildObjects（EditDesc） 网管论坛bbs_bitsCN_com

　　NumberOfLists = Lists.Count（） 中国网管论坛bbs.bitsCN.com

　　If NumberOfLists > 0 Then

　　Browser（"Welcome： Mercury"）。Page（"Welcome： Mercury"）。Lists（0）。Set "MyName"

　　End If

网管网www_bitscn_com

　　一些具体的用法可以在 QTP的帮助里面找到。 个人的建议是：你最好按照 QTP里面提供的例子，自己使用这些函数自己写几行语句，运行后看一下运行结果，结合QTP帮助里面的说明，这样学习会快，也记得牢固。 网管u家u.bitsCN.com

　　在输出结果时， 常用的函数有 Msgbox 和 Print 函数。Msgbox 函数在 QTP8.2 及其以上版本都可以使用；Print 函数需要在 QTP 9.2 版本上使用，QTP 8.2 不支持此函数，不知道 QTP 9.0是否支持此函数。

网管联盟bitsCN_com

　　希望大家共同总结一下，一起进步。