|
在编写 QTP脚本的过程中有一些经常使用的函数如果我们能熟悉这些常用的函数及其用法并合理地使用它们那么一些问题就很容易得到解决下面是我总结的VBScript中常用的函数及其用法 GetROProperty 说明You use the GetROProperty method to retrieve the current value of a test object property from a runtime object in your application 一般来说所有的对象都可以使用此方法得到运行时对象的实际值 语法objectGetROProperty （Property [PropertyData]） 如 ButtonName=Browser（QA Home Page）Page（QA Home Page）WebButton（Submit）GetTOProperty（Name） WaitProperty 说明Waits until the specified object property achieves the specified value or exceeds the specified timeout before continuing to the next step 此方法可以解决由于等待系统进行处理某些操作或网络原因引起的测试对象同步问题 语法objectWaitProperty （PropertyName PropertyValue [TimeOut]） 如 Window（Test）Static（Status）WaitProperty text Ready Instr Returns the position of the first occurrence of one string within another 可以得到一个字符串在另外一个字符串中首次出现的位置 语法 InStr（[start ]string string[ compare]） Split Returns a zerobased onedimensional array containing a specified number of substrings 此函数可以把原来用某个特殊字符串连接起来的字符串分割开得到一个一维的数组 UBound Returns the largest available subscript for the indicated dimension of an array 得到某个维度的最大值 Trim Returns a copy of a string without leading spaces （LTrim） trailing spaces （RTrim） or both leading and trailing spaces （Trim） 如果需要删除字符串左边的所有空格那么可以使用LTrim 函数如果需要删除字符串右边的所有空格那么可以使用RTrim 函数如果需要删除字符串左边和右边的所有空格那么可以使用Trim 函数 Ucase Returns a string that has been converted to uppercase 此函数可以把所有的字符都转换成相应的大写 LCase Returns a string that has been converted to lowercase 此函数可以把所有的字符都转换成相应的小写 Cstr Returns an expression that has been converted to a Variant of subtype String 由于VBScript只有一种类型Variant你可以使用此函数把某个变量强制转换成String类型 CInt Returns an expression that has been converted to a Variant of subtype Integer 由于VBScript只有一种类型Variant你可以使用此函数把某个变量强制转换成Integer类型 在描述性编程语句中最常用的函数有 Create 这是创建一类或一个对象时必须要使用的方法 ChildObjects 使用此方法可以得到符合某些条件的一类对象的集合 Count 使用使用此方法可以得到符合某些条件的一类对象的个数 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 Set EditDesc = DescriptionCreate（） EditDesc（micclass）Value = WebEdit EditDesc（Name）Value = userName Set Lists = Browser（Welcome Mercury）Page（Welcome Mercury）ChildObjects（EditDesc） NumberOfLists = ListsCount（） If NumberOfLists > Then Browser（Welcome Mercury）Page（Welcome Mercury）Lists（）Set MyName End If 一些具体的用法可以在 QTP的帮助里面找到 个人的建议是你最好按照 QTP里面提供的例子自己使用这些函数自己写几行语句运行后看一下运行结果结合QTP帮助里面的说明这样学习会快也记得牢固 在输出结果时 常用的函数有 Msgbox 和 Print 函数Msgbox 函数在 QTP 及其以上版本都可以使用Print 函数需要在 QTP 版本上使用QTP 不支持此函数不知道 QTP 是否支持此函数 希望大家共同总结一下一起进步 |
