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