QTP 中如何随即生成指定长度的字符串？

dycadrtf

用哪些函数可以实现啊？具体怎么做？

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

dycadrtf

zte_boy

用随机数就可以了
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

不用定义这么长的数组

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

陈能技

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

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

假装不在

如楼上所说的。