51Testing软件测试论坛

标题: QTP 中如何随即生成指定长度的字符串？ [打印本页]

作者: dycadrtf 时间: 2008-7-11 09:36
标题: QTP 中如何随即生成指定长度的字符串？
用哪些函数可以实现啊？具体怎么做？

还有个问题，我现在运行QTP录好的一段代码，它一直重复再运行，我在代码结尾处加了stop，还是不行，怎么设置让它只运行一次阿？

作者: dycadrtf 时间: 2008-7-11 09:45

作者: zte_boy 时间: 2008-7-11 10:02
用随机数就可以了
Function MakeString(inputlength)
Dim i
Dim j
Dim TempStr
Dim Arr
If IsNumeric(inputlength) Then
For i = 1 To inputlength
Arr = Array("a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z")
Randomize
j = CInt(23*Rnd)
TempStr = Arr(j)
RndStr =RndStr +TempStr
Next
MakeString = RndStr
else
msgbox ("只接受数字输入")
End If
End Function

作者: sidneylover 时间: 2008-7-11 10:58
不用定义这么长的数组

Randomize
j = 96+Int(27*Rnd)
TempStr = chr(j)
RndStr =RndStr +TempStr

作者: 陈能技 时间: 2008-7-11 11:01

还有个问题，我现在运行QTP录好的一段代码，它一直重复再运行，我在代码结尾处加了stop，还是不行，怎么设置让它只运行一次阿？

检查一下DataTable是不是有数据，还有Settings中是否设置为Iteration Run all Rows了？

作者: 假装不在 时间: 2008-7-11 11:14

如楼上所说的。

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)