在編寫 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 是否支持此函數
希望大家共同總結一下一起進步
From:http://tw.wingwit.com/Article/program/net/201311/12288.html
