QTP中几个交换值的方法

发表于：2010-6-09 15:52

作者：bagwell333 来源：51Testing软件测试博客

　　3）存储在QTP的GlobalTable中。

　　涉及2个函数。一个是写入到GlobalTalbe，另一个是从其读入。

Function setValue(strColName, strColValue)
On Error Resume Next
DataTable.Value(strColName, dtGlobalSheet) = strColValue
If Err.Number <> 0 Then DataTable.GlobalSheet.AddParameter strColName, strColValue
setValue = strColValue
End Function

Function getValue(strColName)
Dim outputTemp
On Error Resume Next
outputTemp = DataTable.Value(strColName, dtGlobalSheet)
If Err.Number <> 0 Then
getValueFromGS = ""
Exit Function
Else
getValue = outputTemp
End If
End Function

　　一般这个方法的实现，可能还要遍历列名来判断是否存在，这样如果变量很多肯定效率低。QTP对于DataTable取数的实现肯定也进行了遍历或Find这样的方法，所以任务尽量让QTP来解决比较好，比如随机数干脆就直接用RandomNumber对象而取代 vbscript的Randomize加Rnd。

　　而On Error在这里很好用，不能把它只想用于容错恢复，这里算巧用吧，好像还是容错。（以上言论仅代表作者的个人观点，不代表51Testing观点）

原创作品，转载时请务必以超链接形式标明本文原始出处、作者信息和本声明，否则将追究法律责任。

22/2<12

《2023软件测试行业现状调查报告》独家发布~

搜索风云榜

测试技术了解

2023测试行业调查报告

挣点稿费

AI与软件测试

文章资料精选