VBScript 常用函數總結
2020-07-26 11:52:47
供稿：網友
下面是我總結的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是否支持此函數。
希望大家共同總結一下，一起進步。
