軟件測試工具中QTP中常用的VBS函數

軟件測試工具中QTP中常用的VBS函數

Left 函數
返回 Variant (String)，其中包含字符串中從左邊算起指定數量的字符。
語(yǔ)法
Left(string, length)
Left 函數的語(yǔ)法有下面的命名參數：

部分        說(shuō)明          
string        必要參數。字符串表達式其中最左邊的那些字符將被返回。如果 string 包含 Null，將返回 Null。          
length        必要參數；為 Variant (Long)。數值表達式，指出將返回多少個(gè)字符。如果為 0，返回零長(cháng)度字符串 ("")。如果大于或等于 string 的字符數，則返回整個(gè)字符串。         

說(shuō)明
欲知 string 的字符數，使用 Len 函數。
注意    LeftB 函數作用于包含在字符串中的字節數據。所以 length 指定的是字節數，而不是要返回的字符數。


Mid 函數
從字符串中返回指定數目的字符。
Mid(string, start[, length])
參數
string
字符串表達式，從中返回字符。如果 string 包含 Null，則返回 Null。
Start
string 中被提取的字符部分的開(kāi)始位置。如果 start 超過(guò)了 string 中字符的數目，Mid 將返回零長(cháng)度字符串 ("")。
Length
要返回的字符數。如果省略或 length 超過(guò)文本的字符數（包括 start 處的字符），將返回字符串中從 start 到字符串結束的所有字符。
說(shuō)明
要判斷 string 中字符的數目，可使用 Len 函數。
下面的示例利用 Mid 函數返回字符串中從第四個(gè)字符開(kāi)始的六個(gè)字符：
Dim MyVar
MyVar = Mid("VB腳本is fun!", 4, 6) 'MyVar 包含 "Script"。
注意   MidB 函數與包含在字符串中的字節數據一起使用。其參數不是指定字符數，而是字節數。

Len 函數
返回字符串內字符的數目，或是存儲一變量所需的字節數。
Len(string | varname)
參數
string
任意有效的字符串表達式。如果 string 參數包含 Null，則返回 Null。
Varname
任意有效的變量名。如果 varname 參數包含 Null，則返回 Null。
說(shuō)明
下面的示例利用 Len 函數返回字符串中的字符數目：
Dim MyString
MyString = Len("VBSCRIPT") 'MyString 包含 8。
注意   LenB 函數與包含在字符串中的字節數據一起使用。LenB 不是返回字符串中的字符數，而是返回用于代表字符串的字節數。

Right 函數
從字符串右邊返回指定數目的字符。
Right(string, length)
參數
string
字符串表達式，其最右邊的字符被返回。如果 string 參數中包含 Null，則返回 Null。
Length
數值表達式，指明要返回的字符數目。如果為 0，返回零長(cháng)度字符串；如果此數大于或等于 string 參數中的所有字符數目，則返回整個(gè)字符串。
說(shuō)明
要確定 string 參數中的字符數目，使用 Len 函數。
下面的示例利用 Right 函數從字符串右邊返回指定數目的字符：
Dim AnyString, MyStr
AnyString = "Hello World"      ' 定義字符串。
MyStr = Right(AnyString, 1)    ' 返回 "d"。
MyStr = Right(AnyString, 6)    ' 返回 " World"。
MyStr = Right(AnyString, 20)   ' 返回 "Hello World"。
注意   RightB 函數用于字符串中的字節數據，length 參數指定返回的是字節數目，而不是字符數目。

InStr 函數
返回某字符串在另一字符串中第一次出現的位置。
InStr([start, ]string1, string2[, compare])
參數
start
可選項。數值表達式，用于設置每次搜索的開(kāi)始位置。如果省略，將從第一個(gè)字符的位置開(kāi)始搜索。如果 start 包含 Null，則會(huì )出現錯誤。如果已指定 compare，則必須要有 start 參數。
string1
必選項。接受搜索的字符串表達式。
string2
必選項。要搜索的字符串表達式。
compare
可選項。指示在計算子字符串時(shí)使用的比較類(lèi)型的數值。有關(guān)數值，請參閱“設置”部分。如果省略，將執行二進(jìn)制比較。
設置
compare 參數可以有以下值：

常數        值        描述          
vbBinaryCompare        0        執行二進(jìn)制比較。          
vbTextCompare        1        執行文本比較。         
返回值
InStr 函數返回以下值：

如果        InStr 返回          
string1 為零長(cháng)度        0          
string1 為 Null        Null          
string2 為零長(cháng)度        start          
string2 為 Null        Null          
string2 沒(méi)有找到        0          
在 string1 中找到 string2        找到匹配字符串的位置          
start > Len(string2)        0         
說(shuō)明
下面的示例利用 InStr 搜索字符串：
Dim SearchString, SearchChar, MyPos
SearchString ="XXpXXpXXPXXP"   ' 要搜索的字符串。
SearchChar = "P"   ' Search for "P".
MyPos = Instr(4, SearchString, SearchChar, 1)   ' 在位置 4 進(jìn)行的文本比較。返回 6。
MyPos = Instr(1, SearchString, SearchChar, 0)   ' 在位置 1 進(jìn)行的二進(jìn)制比較。返回 9。
MyPos = Instr(SearchString, SearchChar)   ' 默認情況下，進(jìn)行的是二進(jìn)制比較（省略了最后的參數）。返回 9。
MyPos = Instr(1, SearchString, "W")   ' 在位置 1 進(jìn)行的二進(jìn)制比較。返回 0（找不到 "W"）。
注意   InStrB 函數使用包含在字符串中的字節數據，所以 InStrB 返回的不是一個(gè)字符串在另一個(gè)字符串中第一次出現的字符位置，而是字節位置。

LTrim、RTrim與 Trim 函數
返回不帶前導空格 (LTrim)、后續空格 (RTrim) 或前導與后續空格 (Trim) 的字符串副本。
LTrim(string)
RTrim(string)
Trim(string)
string 參數是任意有效的字符串表達式。如果 string 參數中包含 Null，則返回 Null。
說(shuō)明
下面的示例利用 LTrim, RTrim, 和 Trim 函數分別用來(lái)除去字符串開(kāi)始的空格、尾部空格、 開(kāi)始和尾部空格：
Dim MyVar
MyVar = LTrim("   vbscript ")   'MyVar 包含 "vbscript "。
MyVar = RTrim("   vbscript ")   'MyVar 包含 "   vbscript"。
MyVar = Trim("   vbscript ")   'MyVar 包含 "vbscript"。

Rnd 函數
返回一個(gè)隨機數。
Rnd[(number)]
number 參數可以是任意有效的數值表達式。
說(shuō)明
Rnd 函數返回一個(gè)小于 1 但大于或等于 0 的值。number 的值決定了 Rnd 生成隨機數的方式：

如果 number 為        Rnd 生成          
小于零        每次都相同的值，使用 number 作為種子。          
大于零        序列中的下一個(gè)隨機數。          
等于零        最近生成的數。          
省略        序列中的下一個(gè)隨機數。         
因每一次連續調用 Rnd 函數時(shí)都用序列中的前一個(gè)數作為下一個(gè)數的種子，所以對于任何最初給定的種子都會(huì )生成相同的數列。
在調用 Rnd 之前，先使用無(wú)參數的 Randomize 語(yǔ)句初始化隨機數生成器，該生成器具有基于系統計時(shí)器的種子。
要產(chǎn)生指定范圍的隨機整數，請使用以下公式：
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
這里， upperbound 是此范圍的上界，而 lowerbound 是此范圍內的下界。
注意   要重復隨機數的序列，請在使用數值參數調用 Randomize 之前，立即用負值參數調用 Rnd。使用同樣 number 值的 Randomize 不能重復先前的隨機數序列。

Randomize 語(yǔ)句
初始化隨機數生成器。
語(yǔ)法
Randomize [number]
可選的 number 參數是 Variant 或任何有效的數值表達式。
說(shuō)明
Randomize 用 number 將 Rnd 函數的隨機數生成器初始化，該隨機數生成器給 number 一個(gè)新的種子值。如果省略 number，則用系統計時(shí)器返回的值作為新的種子值。
如果沒(méi)有使用 Randomize，則（無(wú)參數的）Rnd 函數使用第一次調用 Rnd 函數的種子值。
注意 若想得到重復的隨機數序列，在使用具有數值參數的 Randomize 之前直接調用具有負參數值的 Rnd。使用具有同樣 number 值的 Randomize 是不會(huì )得到重復的隨機數序列的。
Rnd 函數示例
本示例使用 Rnd 函數隨機生成一個(gè) 1 到 6 的隨機整數。
本示例用 Randomize 語(yǔ)句初始化隨機數生成器。由于忽略了數值參數， 所以 Randomize 用 Timer 函數的返回值作為新的隨機數種子值。

Dim MyValue
Randomize   ' 對隨機數生成器做初始化的動(dòng)作。

MyValue = Int((6 * Rnd) + 1)   ' 生成 1 到 6 之間的隨機數值。
Split函數
描述
返回一個(gè)下標從零開(kāi)始的一維數組，它包含指定數目的子字符串。
語(yǔ)法
Split(expression[, delimiter[, count[, compare]]])
Split函數語(yǔ)法有如下幾部分：

部分        描述          
expression        必需的。包含子字符串和分隔符的字符串表達式 。如果expression是一個(gè)長(cháng)度為零的字符串("")，Split則返回一個(gè)空數組，即沒(méi)有元素和數據的數組。          
delimiter        可選的。用于標識子字符串邊界的字符串字符。如果忽略，則使用空格字符(" ")作為分隔符。如果delimiter是一個(gè)長(cháng)度為零的字符串，則返回的數組僅包含一個(gè)元素，即完整的 expression字符串。          
count        可選的。要返回的子字符串數，–1表示返回所有的子字符串。          
compare        可選的。數字值，表示判別子字符串時(shí)使用的比較方式。關(guān)于其值，請參閱“設置值”部分。         

設置值
compare參數的設置值如下：

常數        值        描述          
vbUseCompareOption        –1        用Option Compare語(yǔ)句中的設置值執行比較。          
vbBinaryCompare        0        執行二進(jìn)制比較。          
vbTextCompare        1        執行文字比較。          
vbDatabaseCompare        2        僅用于Microsoft Access�；�于您的數據庫的信息執行比較。         

Replace 函數
返回字符串，其中指定數目的某子字符串被替換為另一個(gè)子字符串。
Replace(expression, find, replacewith[, compare[, count[, start]]])
參數
expression
必選項。字符串表達式包含要替代的子字符串。
Find
必選項。被搜索的子字符串。
Replacewith
必選項。用于替換的子字符串。
Start
可選項。expression 中開(kāi)始搜索子字符串的位置。如果省略，默認值為 1。在和count 關(guān)聯(lián)時(shí)必須用
count
可選項。執行子字符串替換的數目。如果省略，默認值為 -1，表示進(jìn)行所有可能的替換。在和 start 關(guān)聯(lián)時(shí)必須用。
Compare
可選項。指示在計算子字符串時(shí)使用的比較類(lèi)型的數值。有關(guān)數值，請參閱“設置”部分。如果省略,缺省值為 0 ,這意味著(zhù)必須進(jìn)行二進(jìn)制比較。
設置
compare 參數可以有以下值：

常數        值        描述          
vbBinaryCompare        0        執行二進(jìn)制比較。          
vbTextCompare        1        執行文本比較。         
返回值
Replace 返回以下值：

如果        Replace 返回          
expression 為零長(cháng)度        零長(cháng)度字符串 ("")。          
expression 為 Null        錯誤。          
find 為零長(cháng)度        expression 的副本。          
replacewith 為零長(cháng)度        expression 的副本，其中刪除了所有由 find 參數指定的內容。          
start > Len(expression)        零長(cháng)度字符串。          
count 為 0        expression 的副本。         
說(shuō)明
Replace 函數的返回值是經(jīng)過(guò)替換（從由 start 指定的位置開(kāi)始到 expression 字符串的結尾）后的字符串，而不是原始字符串從開(kāi)始至結尾的副本。
下面的示例利用 Replace 函數返回字符串：
Dim MyString
MyString = Replace("XXpXXPXXp", "p", "Y")   '二進(jìn)制比較從字符串左端開(kāi)始。返回 "XXYXXPXXY"。
MyString = Replace("XXpXXPXXp", "p", "Y", '文本比較從第三個(gè)字符開(kāi)始。返回 "YXXYXXY"。3，, -1, 1)

StrComp 函數
返回一個(gè)表明字符串比較結果的值。
StrComp(string1, string2[, compare])
參數
string1
必選項。任意有效的字符串表達式。
string2
必選項。任意有效的字符串表達式。
Compare
可選項。指示在計算字符串時(shí)使用的比較類(lèi)型的數值。如果省略，則執行二進(jìn)制比較。有關(guān)數值，請參閱“設置”部分。
設置
compare 參數可以有以下值：

常數        值        描述          
vbBinaryCompare        0        執行二進(jìn)制比較。          
vbTextCompare        1        執行文本比較。         
返回值
StrComp 函數有以下返回值：

如果        StrComp 返回          
string1 小于 string2        -1          
string1 等于 string2        0          
string1 大于 string2        1          
string1 或 string2 為 Null        Null         
說(shuō)明
下面的示例利用 StrComp 函數返回字符串比較的結果。如果第三個(gè)參數為 1 執行文本比較；如果第三個(gè)參數為 0 或者省略執行二進(jìn)制比較。
Dim MyStr1, MyStr2, MyComp
MyStr1 = "ABCD": MyStr2 = "abcd"   '定義變量。
MyComp = StrComp(MyStr1, MyStr2, 1)   ' 返回 0。
MyComp = StrComp(MyStr1, MyStr2, 0)   ' 返回 -1。
MyComp = StrComp(MyStr2, MyStr1)   ' 返回 1。

CInt 函數
返回表達式，此表達式已被轉換為 Integer 子類(lèi)型的 Variant。
CInt(expression)
expression 參數是任意有效的表達式。
說(shuō)明
通常，可以使用子類(lèi)型轉換函數書(shū)寫(xiě)代碼，以顯示某些操作的結果應被表示為特定的數據類(lèi)型，而不是默認類(lèi)型。例如，在出現貨幣、單精度或雙精度運算的情況下，使用 CInt 或 CLng 強制執行整數運算。
CInt 函數用于進(jìn)行從其他數據類(lèi)型到 Integer 子類(lèi)型的國際公認的格式轉換。例如對十進(jìn)制分隔符（如千分符）的識別，可能取決于系統的區域設置。
如果 expression 在 Integer 子類(lèi)型可接受的范圍之外，則發(fā)生錯誤。
下面的示例利用 CInt 函數把值轉換為 Integer:
Dim MyDouble, MyInt
MyDouble = 2345.5678      ' MyDouble 是 Double。
MyInt = CInt(MyDouble)    ' MyInt 包含 2346。
注意   CInt 不同于 Fix 和 Int 函數刪除數值的小數部分，而是采用四舍五入的方式。當小數部分正好等于 0.5 時(shí), CInt 總是將其四舍五入成最接近該數的偶數。例如， 0.5 四舍五入為 0, 以及 1.5 四舍五入為 2.

CStr 函數
返回表達式，該表達式已被轉換為 String 子類(lèi)型的 Variant。
CStr(expression)
expression 參數是任意有效的表達式。
說(shuō)明
通常，可以使用子類(lèi)型轉換函數書(shū)寫(xiě)代碼，以顯示某些操作的結果應被表示為特定的數據類(lèi)型，而不是默認類(lèi)型。例如，使用 CStr 強制將結果表示為 String。
CStr 函數用于替代 Str 函數來(lái)進(jìn)行從其他數據類(lèi)型到 String 子類(lèi)型的國際公認的格式轉換。例如對十進(jìn)制分隔符的識別取決于系統的區域設置。
expression 根據下表決定返回的數據：

如果 expression 為        CStr 返回          
Boolean        字符串，包含 True 或 False。          
Date        字符串，包含系統的短日期格式日期。          
Null        運行時(shí)錯誤。          
Empty        零長(cháng)度字符串 ("")。          
Error        字符串，包含跟隨有錯誤號碼的單詞 Error。          
其他數值        字符串，包含此數字。         
下面的示例利用 CStr 函數把數字轉換為 String:
Dim MyDouble, MyString
MyDouble = 437.324         ' MyDouble 是雙精度值。
MyString = CStr(MyDouble)  ' MyString 包含 "437.324"。

LCase 函數
返回字符串的小寫(xiě)形式。
LCase(string)
string 參數是任意有效的字符串表達式。如果 string 參數中包含 Null，則返回 Null。
說(shuō)明
僅大寫(xiě)字母轉換成小寫(xiě)字母；所有小寫(xiě)字母和非字母字符保持不變。

下面的示例利用 LCase 函數把大寫(xiě)字母轉換為小寫(xiě)字母：
Dim MyString
Dim LCaseString
MyString = "VBSCript"
LCaseString = LCase(MyString)   ' LCaseString 包含 "vbscript"。
UCase 函數
返回字符串的大寫(xiě)形式。
UCase(string)
string 參數是任意有效的字符串表達式。如果 string 參數中包含 Null，則返回 Null。
說(shuō)明
只有小寫(xiě)字母被轉換成大寫(xiě)字母；所有大寫(xiě)字母和非字母字符均保持不變。
下面的示例利用 UCase 函數返回字符串的大寫(xiě)形式：
Dim MyWord
MyWord = UCase("Hello World")   ' 返回"HELLO WORLD"。

MsgBox 函數
在對話(huà)框中顯示消息，等待用戶(hù)單擊按鈕，并返回一個(gè)值指示用戶(hù)單擊的按鈕。
MsgBox(prompt[, buttons][, title][, helpfile, context])
參數
prompt
作為消息顯示在對話(huà)框中的字符串表達式。prompt 的最大長(cháng)度大約是 1024 個(gè)字符，這取決于所使用的字符的寬度。如果 prompt 中包含多個(gè)行，則可在各行之間用回車(chē)符 (Chr(13))、換行符 (Chr(10)) 或回車(chē)換行符的組合 (Chr(13) & Chr(10)) 分隔各行。
Buttons
數值表達式，是表示指定顯示按鈕的數目和類(lèi)型、使用的圖標樣式，默認按鈕的標識以及消息框樣式的數值的總和。有關(guān)數值，請參閱“設置”部分。如果省略，則 buttons 的默認值為 0。
Title
顯示在對話(huà)框標題欄中的字符串表達式。如果省略 title，則將應用程序的名稱(chēng)顯示在標題欄中。
Helpfile
字符串表達式，用于標識為對話(huà)框提供上下文相關(guān)幫助的幫助文件。如果已提供 helpfile，則必須提供 context。在 16 位系統平臺上不可用。
Context
數值表達式，用于標識由幫助文件的作者指定給某個(gè)幫助主題的上下文編號。如果已提供 context，則必須提供 helpfile。在 16 位系統平臺上不可用。
設置
buttons 參數可以有以下值：

常數        值        描述          
vbOKOnly        0        只顯示確定按鈕。          
vbOKCancel        1        顯示確定和取消按鈕。          
vbAbortRetryIgnore        2        顯示放棄、重試和忽略按鈕。          
vbYesNoCancel        3        顯示是、否和取消按鈕。          
vbYesNo        4        顯示是和否按鈕。          
vbRetryCancel        5        顯示重試和取消按鈕。          
vbCritical        16        顯示臨界信息圖標。          
vbQuestion        32        顯示警告查詢(xún)圖標。          
vbExclamation        48        顯示警告消息圖標。          
vbInformation        64        顯示信息消息圖標。          
vbDefaultButton1        0        第一個(gè)按鈕為默認按鈕。          
vbDefaultButton2        256        第二個(gè)按鈕為默認按鈕。          
vbDefaultButton3        512        第三個(gè)按鈕為默認按鈕。          
vbDefaultButton4        768        第四個(gè)按鈕為默認按鈕。          
vbApplicationModal        0        應用程序模式：用戶(hù)必須響應消息框才能繼續在當前應用程序中工作。          
vbSystemModal        4096        系統模式：在用戶(hù)響應消息框前，所有應用程序都被掛起。         
第一組值 (0 - 5) 用于描述對話(huà)框中顯示的按鈕類(lèi)型與數目；第二組值 (16, 32, 48, 64) 用于描述圖標的樣式；第三組值 (0, 256, 512) 用于確定默認按鈕；而第四組值 (0, 4096) 則決定消息框的樣式。在將這些數字相加以生成 buttons 參數值時(shí)，只能從每組值中取用一個(gè)數字。
返回值
MsgBox 函數有以下返回值：

常數        值        按鈕          
vbOK        1        確定          
vbCancel        2        取消          
vbAbort        3        放棄          
vbRetry        4        重試          
vbIgnore        5        忽略          
vbYes        6        是          
vbNo        7        否         
說(shuō)明
如果同時(shí)提供了 helpfile 和 context，則用戶(hù)可以按 F1 鍵以查看與上下文相對應的幫助主題。
如果對話(huà)框顯示取消按鈕，則按 ESC 鍵與單擊取消的效果相同。如果對話(huà)框包含幫助按鈕，則有為對話(huà)框提供的上下文相關(guān)幫助。但是在單擊其他按鈕之前，不會(huì )返回任何值。
當MicroSoft Internet Explorer使用MsgBox函數時(shí)，任何對話(huà)框的標題總是包含"VBScript",以便于將其與標準對話(huà)框區別開(kāi)來(lái)。
下面的例子演示了 MsgBox 函數的用法：
Dim MyVar
MyVar = MsgBox ("Hello World!", 65, "MsgBox Example")
   ' MyVar 包含 1 或 2，這取決于單擊的是哪個(gè)按鈕。