QTP生成随机字符(纯字母)的VBS语句

网站编辑
1353
文章
2
评论
2010/11/1618:28:36
评论
7,837 views

想用QTP生成个随机字符,在网上搜了一下,找到一个前辈写的函数,复制过来发现不好用,看了一下,发现这个函数是用时间生成随机字符,字符可能是任何数字,字符或字母。且其中定义了一个函数内未声明的变量,不知此变量导致了该函数的无法运行。而我的项目要求此随机字符必须是数字。又在网上找了半天,没找到合适的,纠结了一下,心想算了,还是我自己写吧。

于是自己写了一个,用ASCII码随机出来,可以生成纯字母的随机字符串,感觉甚是和谐。

参数N为随机字符的长度,此函数仅仅能生成包含字母的字符,如果要包含数字,修改 sTemp = stemp + 65行内容(具体参照ASCII码相关信息)

Dim i, N, sUCharRand ,sTemp, sRDA

Function UCharRand(N)
For i=1 to N
Randomize 'ASC(MID(sRDA,1,1))
sTemp = cint(25*Rnd)
sTemp = sTemp + 65
UCharRand = UCharRand & chr(sTemp) 'chr方法可根据数字给出的ascii码值返回该ascii码对应的字母或数字
Next
End Function

'''''''''''''''''''''''''''''''''分隔符'''''''''''''''''''''''''''''''''''''''''''''''

'下列代码可生成纯数字的随机字符串,参数N为字符串长度

Dim i, N, sUCharRand ,sTemp, sRDA

Function UCharRand(N)

For i=1 to N

Randomize 'ASC(MID(sRDA,1,1))

sTemp = cint(10*Rnd)

sTemp = sTemp + 48

sUCharRand = sUCharRand & chr(sTemp) 'chr方法可根据数字给出的ascii码值返回该ascii码对应的字母或数字

Next

End Function

匿名

发表评论

匿名网友 填写信息

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: