QTP中常用的VB函数 1.docx

QTP中常用的VB函数 1.docx

《QTP中常用的VB函数 1.docx》由会员分享，可在线阅读，更多相关《QTP中常用的VB函数 1.docx（13页珍藏版）》请在冰点文库上搜索。

QTP中常用的VB函数1

QTP中常用的VB函数

 Left函数

返回Variant（String），其中包含字符串中从左边算起指定数量的字符。

语法

Left（string,length）

Left函数的语法有下面的命名参数：

部分 说明   

string 必要参数。

字符串表达式其中最左边的那些字符将被返回。

如果string包含Null，将返回Null。

length 必要参数；为Variant（Long）。

数值表达式，指出将返回多少个字符。

如果为0，返回零长度字符串（""）。

如果大于或等于string的字符数，则返回整个字符串。

说明

欲知string的字符数，使用Len函数。

注意  LeftB函数作用于包含在字符串中的字节数据。

所以length指定的是字节数，而不是要返回的字符数。

Mid函数

从字符串中返回指定数目的字符。

Mid（string,start[,length]）

参数

string

字符串表达式，从中返回字符。

如果string包含Null，则返回Null。

Start

string中被提取的字符部分的开始位置。

如果start超过了string中字符的数目，Mid将返回零长度字符串（""）。

Length

要返回的字符数。

如果省略或length超过文本的字符数（包括start处的字符），将返回字符串中从start到字符串结束的所有字符。

说明

要判断string中字符的数目，可使用Len函数。

下面的示例利用Mid函数返回字符串中从第四个字符开始的六个字符：

DimMyVar

MyVar=Mid（"VB脚本isfun!

",4,6）'MyVar包含"Script"。

注意   MidB函数与包含在字符串中的字节数据一起使用。

其参数不是指定字符数，而是字节数。

Len函数

返回字符串内字符的数目，或是存储一变量所需的字节数。

Len（string|varname）

参数

string

任意有效的字符串表达式。

如果string参数包含Null，则返回Null。

Varname

任意有效的变量名。

如果varname参数包含Null，则返回Null。

说明

下面的示例利用Len函数返回字符串中的字符数目：

DimMyString

MyString=Len（"VBSCRIPT"）'MyString包含8。

注意   LenB函数与包含在字符串中的字节数据一起使用。

LenB不是返回字符串中的字符数，而是返回用于代表字符串的字节数。

Right函数

从字符串右边返回指定数目的字符。

Right（string,length）

参数

string

字符串表达式，其最右边的字符被返回。

如果string参数中包含Null，则返回Null。

Length

数值表达式，指明要返回的字符数目。

如果为0，返回零长度字符串；如果此数大于或等于string参数中的所有字符数目，则返回整个字符串。

说明

要确定string参数中的字符数目，使用Len函数。

下面的示例利用Right函数从字符串右边返回指定数目的字符：

DimAnyString,MyStr

AnyString="HelloWorld"     '定义字符串。

MyStr=Right（AnyString,1）   '返回"d"。

MyStr=Right（AnyString,6）   '返回"World"。

MyStr=Right（AnyString,20）  '返回"HelloWorld"。

注意   RightB函数用于字符串中的字节数据，length参数指定返回的是字节数目，而不是字符数目。

InStr函数

返回某字符串在另一字符串中第一次出现的位置。

InStr（[start,]string1,string2[,compare]）

参数

start

可选项。

数值表达式，用于设置每次搜索的开始位置。

如果省略，将从第一个字符的位置开始搜索。

如果start包含Null，则会出现错误。

如果已指定compare，则必须要有start参数。

string1

必选项。

接受搜索的字符串表达式。

string2

必选项。

要搜索的字符串表达式。

compare

可选项。

指示在计算子字符串时使用的比较类型的数值。

有关数值，请参阅“设置”部分。

如果省略，将执行二进制比较。

设置

compare参数可以有以下值：

常数 值 描述   

vbBinaryCompare 0 执行二进制比较。

vbTextCompare 1 执行文本比较。

返回值

InStr函数返回以下值：

如果 InStr返回   

string1为零长度 0   

string1为Null Null   

string2为零长度 start   

string2为Null Null   

string2没有找到 0   

在string1中找到string2 找到匹配字符串的位置   

start>Len（string2） 0 

说明

下面的示例利用InStr搜索字符串：

DimSearchString,SearchChar,MyPos

SearchString="XXpXXpXXPXXP"  '要搜索的字符串。

SearchChar="P"  'Searchfor"P".

MyPos=Instr（4,SearchString,SearchChar,1）  '在位置4进行的文本比较。

返回6。

MyPos=Instr（1,SearchString,SearchChar,0）  '在位置1进行的二进制比较。

返回9。

MyPos=Instr（SearchString,SearchChar）  '默认情况下，进行的是二进制比较（省略了最后的参数）。

返回9。

MyPos=Instr（1,SearchString,"W"）  '在位置1进行的二进制比较。

返回0（找不到"W"）。

注意   InStrB函数使用包含在字符串中的字节数据，所以InStrB返回的不是一个字符串在另一个字符串中第一次出现的字符位置，而是字节位置。

LTrim、RTrim与Trim函数

返回不带前导空格（LTrim）、后续空格（RTrim）或前导与后续空格（Trim）的字符串副本。

LTrim（string）

RTrim（string）

Trim（string）

string参数是任意有效的字符串表达式。

如果string参数中包含Null，则返回Null。

说明

下面的示例利用LTrim,RTrim,和Trim函数分别用来除去字符串开始的空格、尾部空格、开始和尾部空格：

DimMyVar

MyVar=LTrim（"  vbscript"）  'MyVar包含"vbscript"。

MyVar=RTrim（"  vbscript"）  'MyVar包含"  vbscript"。

MyVar=Trim（"  vbscript"）  'MyVar包含"vbscript"。

Rnd函数

返回一个随机数。

Rnd[（number）]

number参数可以是任意有效的数值表达式。

说明

Rnd函数返回一个小于1但大于或等于0的值。

number的值决定了Rnd生成随机数的方式：

如果number为 Rnd生成   

小于零 每次都相同的值，使用number作为种子。

大于零 序列中的下一个随机数。

等于零 最近生成的数。

省略 序列中的下一个随机数。

因每一次连续调用Rnd函数时都用序列中的前一个数作为下一个数的种子，所以对于任何最初给定的种子都会生成相同的数列。

在调用Rnd之前，先使用无参数的Randomize语句初始化随机数生成器，该生成器具有基于系统计时器的种子。

要产生指定范围的随机整数，请使用以下公式：

Int（（upperbound-lowerbound+1）*Rnd+lowerbound）

这里，upperbound是此范围的上界，而lowerbound是此范围内的下界。

注意   要重复随机数的序列，请在使用数值参数调用Randomize之前，立即用负值参数调用Rnd。

使用同样number值的Randomize不能重复先前的随机数序列。

Randomize语句

初始化随机数生成器。

语法

Randomize[number]

可选的number参数是Variant或任何有效的数值表达式。

说明

Randomize用number将Rnd函数的随机数生成器初始化，该随机数生成器给number一个新的种子值。

如果省略number，则用系统计时器返回的值作为新的种子值。

如果没有使用Randomize，则（无参数的）Rnd函数使用第一次调用Rnd函数的种子值。

注意若想得到重复的随机数序列，在使用具有数值参数的Randomize之前直接调用具有负参数值的Rnd。

使用具有同样number值的Randomize是不会得到重复的随机数序列的。

Rnd函数示例

本示例使用Rnd函数随机生成一个1到6的随机整数。

本示例用Randomize语句初始化随机数生成器。

由于忽略了数值参数，所以Randomize用Timer函数的返回值作为新的随机数种子值。

DimMyValue

Randomize  '对随机数生成器做初始化的动作。

MyValue=Int（（6*Rnd）+1）  '生成1到6之间的随机数值。

Split函数

描述

返回一个下标从零开始的一维数组，它包含指定数目的子字符串。

语法

Split（expression[,delimiter[,count[,compare]]]）

Split函数语法有如下几部分：

部分 描述   

expression 必需的。

包含子字符串和分隔符的字符串表达式。

如果expression是一个长度为零的字符串（""），Split则返回一个空数组，即没有元素和数据的数组。

delimiter 可选的。

用于标识子字符串边界的字符串字符。

如果忽略，则使用空格字符（""）作为分隔符。

如果delimiter是一个长度为零的字符串，则返回的数组仅包含一个元素，即完整的expression字符串。

count 可选的。

要返回的子字符串数，–1表示返回所有的子字符串。

compare 可选的。

数字值，表示判别子字符串时使用的比较方式。

关于其值，请参阅“设置值”部分。

设置值

compare参数的设置值如下：

常数 值 描述   

vbUseCompareOption –1 用OptionCompare语句中的设置值执行比较。

vbBinaryCompare 0 执行二进制比较。

vbTextCompare 1 执行文字比较。

vbDatabaseCompare 2 仅用于MicrosoftAccess。

基于您的数据库的信息执行比较。

Replace函数

返回字符串，其中指定数目的某子字符串被替换为另一个子字符串。

Replace（expression,find,replacewith[,compare[,count[,start]]]）

参数

expression

必选项。

字符串表达式包含要替代的子字符串。

Find

必选项。

被搜索的子字符串。

Replacewith

必选项。

用于替换的子字符串。

Start

可选项。

expression中开始搜索子字符串的位置。

如果省略，默认值为1。

在和count关联时必须用

count

可选项。

执行子字符串替换的数目。

如果省略，默认值为-1，表示进行所有可能的替换。

在和start关联时必须用。

Compare

可选项。

指示在计算子字符串时使用的比较类型的数值。

有关数值，请参阅“设置”部分。

如果省略,缺省值为0,这意味着必须进行二进制比较。

设置

compare参数可以有以下值：

常数 值 描述   

vbBinaryCompare 0 执行二进制比较。

vbTextCompare 1 执行文本比较。

返回值

Replace返回以下值：

如果 Replace返回   

expression为零长度 零长度字符串（""）。

expression为Null 错误。

find为零长度 expression的副本。

replacewith为零长度 expression的副本，其中删除了所有由find参数指定的内容。

start>Len（expression） 零长度字符串。

count为0 expression的副本。

说明

Replace函数的返回值是经过替换（从由start指定的位置开始到expression字符串的结尾）后的字符串，而不是原始字符串从开始至结尾的副本。

下面的示例利用Replace函数返回字符串：

DimMyString

MyString=Replace（"XXpXXPXXp","p","Y"）  '二进制比较从字符串左端开始。

返回"XXYXXPXXY"。

MyString=Replace（"XXpXXPXXp","p","Y",'文本比较从第三个字符开始。

返回"YXXYXXY"。

3，,-1,1）

StrComp函数

返回一个表明字符串比较结果的值。

StrComp（string1,string2[,compare]）

参数

string1

必选项。

任意有效的字符串表达式。

string2

必选项。

任意有效的字符串表达式。

Compare

可选项。

指示在计算字符串时使用的比较类型的数值。

如果省略，则执行二进制比较。

有关数值，请参阅“设置”部分。

设置

compare参数可以有以下值：

常数 值 描述   

vbBinaryCompare 0 执行二进制比较。

vbTextCompare 1 执行文本比较。

返回值

StrComp函数有以下返回值：

如果 StrComp返回   

string1小于string2 -1   

string1等于string2 0   

string1大于string2 1   

string1或string2为Null Null 

说明

下面的示例利用StrComp函数返回字符串比较的结果。

如果第三个参数为1执行文本比较；如果第三个参数为0或者省略执行二进制比较。

DimMyStr1,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子类型的Variant。

CInt（expression）

expression参数是任意有效的表达式。

说明

通常，可以使用子类型转换函数书写代码，以显示某些操作的结果应被表示为特定的数据类型，而不是默认类型。

例如，在出现货币、单精度或双精度运算的情况下，使用CInt或CLng强制执行整数运算。

CInt函数用于进行从其他数据类型到Integer子类型的国际公认的格式转换。

例如对十进制分隔符（如千分符）的识别，可能取决于系统的区域设置。

如果expression在Integer子类型可接受的范围之外，则发生错误。

下面的示例利用CInt函数把值转换为Integer:

DimMyDouble,MyInt

MyDouble=2345.5678     'MyDouble是Double。

MyInt=CInt（MyDouble）   'MyInt包含2346。

注意   CInt不同于Fix和Int函数删除数值的小数部分，而是采用四舍五入的方式。

当小数部分正好等于0.5时,CInt总是将其四舍五入成最接近该数的偶数。

例如，0.5四舍五入为0,以及1.5四舍五入为2.

CStr函数

返回表达式，该表达式已被转换为String子类型的Variant。

CStr（expression）

expression参数是任意有效的表达式。

说明

通常，可以使用子类型转换函数书写代码，以显示某些操作的结果应被表示为特定的数据类型，而不是默认类型。

例如，使用CStr强制将结果表示为String。

CStr函数用于替代Str函数来进行从其他数据类型到String子类型的国际公认的格式转换。

例如对十进制分隔符的识别取决于系统的区域设置。

expression根据下表决定返回的数据：

如果expression为 CStr返回   

Boolean 字符串，包含True或False。

Date 字符串，包含系统的短日期格式日期。

Null 运行时错误。

Empty 零长度字符串（""）。

Error 字符串，包含跟随有错误号码的单词Error。

其他数值 字符串，包含此数字。

下面的示例利用CStr函数把数字转换为String:

DimMyDouble,MyString

MyDouble=437.324        'MyDouble是双精度值。

MyString=CStr（MyDouble） 'MyString包含"437.324"。

LCase函数

返回字符串的小写形式。

LCase（string）

string参数是任意有效的字符串表达式。

如果string参数中包含Null，则返回Null。

说明

仅大写字母转换成小写字母；所有小写字母和非字母字符保持不变。

下面的示例利用LCase函数把大写字母转换为小写字母：

DimMyString

DimLCaseString

MyString="VBSCript"

LCaseString=LCase（MyString）  'LCaseString包含"vbscript"。

UCase函数

返回字符串的大写形式。

UCase（string）

string参数是任意有效的字符串表达式。

如果string参数中包含Null，则返回Null。

说明

只有小写字母被转换成大写字母；所有大写字母和非字母字符均保持不变。

下面的示例利用UCase函数返回字符串的大写形式：

DimMyWord

MyWord=UCase（"HelloWorld"）  '返回"HELLOWORLD"。

MsgBox函数

在对话框中显示消息，等待用户单击按钮，并返回一个值指示用户单击的按钮。

MsgBox（prompt[,buttons][,title][,helpfile,context]）

参数

prompt

作为消息显示在对话框中的字符串表达式。

prompt的最大长度大约是1024个字符，这取决于所使用的字符的宽度。

如果prompt中包含多个行，则可在各行之间用回车符（Chr（13））、换行符（Chr（10））或回车换行符的组合（Chr（13）&Chr（10））分隔各行。

Buttons

数值表达式，是表示指定显示按钮的数目和类型、使用的图标样式，默认按钮的标识以及消息框样式的数值的总和。

有关数值，请参阅“设置”部分。

如果省略，则buttons的默认值为0。

Title

显示在对话框标题栏中的字符串表达式。

如果省略title，则将应用程序的名称显示在标题栏中。

Helpfile

字符串表达式，用于标识为对话框提供上下文相关帮助的帮助文件。

如果已提供helpfile，则必须提供context。

在16位系统平台上不可用。

Context

数值表达式，用于标识由帮助文件的作者指定给某个帮助主题的上下文编号。

如果已提供context，则必须提供helpfile。

在16位系统平台上不可用。

设置

buttons参数可以有以下值：

常数 值 描述   

vbOKOnly 0 只显示确定按钮。

vbOKCancel 1 显示确定和取消按钮。

vbAbortRetryIgnore 2 显示放弃、重试和忽略按钮。

vbYesNoCancel 3 显示是、否和取消按钮。

vbYesNo 4 显示是和否按钮。

vbRetryCancel 5 显示重试和取消按钮。

vbCritical 16 显示临界信息图标。

vbQuestion 32 显示警告查询图标。

vbExclamation 48 显示警告消息图标。

vbInformation 64 显示信息消息图标。

vbDefaultButton1 0 第一个按钮为默认按钮。

vbDefaultButton2 256 第二个按钮为默认按钮。

vbDefaultButton3 512 第三个按钮为默认按钮。

vbDefaultButton4 768 第四个按钮为默认按钮。

vbApplicationModal 0 应用程序模式：

用户必须响应消息框才能继续在当前应用程序中工作。

vbSystemModal 4096 系统模式：

在用户响应消息框前，所有应用程序都被挂起。

第一组值（0-5）用于描述对话框中显示的按钮类型与数目；第二组值（16,32,48,64）用于描述图标的样式；第三组值（0,256,512）用于确定默认按钮；而第四组值（0,4096）则决定消息框的样式。

在将这些数字相加以生成buttons参数值时，只能从每组值中取用一个数字。

返回值

MsgBox函数有以下返回值：

常数 值 按钮   

vbOK 1 确定   

vbCancel 2 取消   

vbAbort 3 放