QTP生成随机数字+字母
Posted chenzy01
tags:
篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了QTP生成随机数字+字母相关的知识，希望对你有一定的参考价值。
以下函数实现随机生成17位数（包括字母和数字），仍有改进的空间，可根据具体要求适当修改
Dim targetstring
targetstring = targetrandstring("ABCDEFGHJKLMNPRSTUVWXYZ0123456789") ‘调用返回函数给变量。Function过程通过函数名返回一个值
‘msgbox "车架号="& targetstring
Function targetrandstring( constring)
‘ Const constring = "ABCDEFGHJKLMNPRSTUVWXYZ0123456789" ‘定义一个包含所有数字和字母的常量,但字母不包含IOQ
Dim i, randsting
Randomize ‘直接用rnid函数，每次取的值是一样的。所以要用函数 randomize 初始化随机数发生器
For i=1 To 17 ‘Int(Len(constring)*Rnd)+1 返回一个1到37的随机整数，包括1和37
‘Mid(constring, Int(Len(constring)*Rnd)+1, 1) 在constring中从第int个字符开始取1个字符
randsting = randsting& Mid(constring, Len(constring )*Rnd+1,1)
NEXT
targetrandstring = randsting
End Function
以上是关于QTP生成随机数字+字母的主要内容，如果未能解决你的问题，请参考以下文章