QTP一些宝贵的总结（下）

发表于：2010-7-13 17:22 作者：未知来源：51Testing软件测试网采编

　　18、赋值语句有：

1：Browser("测试登录").Page("办公自动化系统").Frame("mainFrame").WebCheckBox("value:="&strUserid).Set"ON"
2：Browser("湛江信息化测试登录").Page("湛江东兴石油企业有限公司办公自动化系统").Frame("mainFrame").WebCheckBox("value:="&res(0)).Set"ON"
3：Browser("测试登录").Page("办公自动化系统").Frame("mainFrame").WebCheckBox("IDS").SetTOProperty"value",Cstr(res(0))'Cstr为转换成小数方法
4：Browser("测试登录").Page("办公自动化系统").Frame("mainFrame").WebCheckBox("IDS").SetTOProperty"value",strUserid

　　19、取字符串方法：

　　1：instr方法

　　InStr([start, ]string1, string2[, compare])

　　这个函数需要的的参数是起始位置、主体字符串、要查找的字符串；Compare是可选参数。指定字符串比较。此compare参数是可以省略的，也可以是 0, 1或 2。

　　指定0（缺省）做二进制比较。指定1做不区分大小写的文本比较。例如我们要查找在字符串“abcdefg”中是否存在“cd”并返回其位置，则使用下面的语句就可以实现：

　　pos=InStr(1,"abcdefg","cd") 则pos会返回3表示查找到并且位置为第三个字符开始。这就是“查找”的实现，而“查找下一个”功能的实现就是把当前位置作为起始位置继续查找。

　　或者：id=87444=ddddd

　　instr(1,id,"=")，从位置为第一个字符起，查找=字符

　　2：mid方法

　　Mid(string, start[, length])

　　如：MyVar =Mid("VB Script is fun!", 4, 6) 'MyVar contains "Script".从第4位字符开始，后面6位字符

　　例如：MyVar2=Mid("VB Script is fun",4) 'MyVar contains "Script is fun!"

　　'从第4位字符开始，后面的字符

　　3：Right方法

　　Right(string, length)

　　例子：

Dim AnyString, MyStr
AnyString = "Hello World" ' Define string.
MyStr = Right(AnyString, 1) ' Returns "d".
MyStr = Right(AnyString, 6) ' Returns " World".
MyStr = Right(AnyString, 20) ' Returns "Hello World".

　　20、datatable方法

　　1：AddSheet方法

　　DataTable.AddSheet(SheetName)

　　如：Variable=DataTable.AddSheet ("MySheet").AddParameter("Time", "8:00")

　　在global中，添加sheet，并在sheet添加列和列值

　　2：DeleteSheet方法

　　DataTable.DeleteSheet SheetID

　　例如：DataTable.DeleteSheet "MySheet"

　　3：Export方法

　　DataTable.Export(FileName)

　　例如：DataTable.Export ("C:\flights.xls")

　　4：ExportSheet方法