想用QTP生成个随机字符，在网上搜了一下，找到一个前辈写的函数，复制过来发现不好用，看了一下，发现这个函数是用时间生成随机字符，字符可能是任何数字，字符或字母。且其中定义了一个函数内未声明的变量，不知此变量导致了该函数的无法运行。而我的项目要求此随机字符必须是数字。又在网上找了半天，没找到合适的，纠结了一下，心想算了，还是我自己写吧。
于是自己写了一个，用ASCII码随机出来，可以生成纯字母的随机字符串，感觉甚是和谐。文章源自原紫番博客-https://www.yuanzifan.com/344.html
参数N为随机字符的长度，此函数仅仅能生成包含字母的字符，如果要包含数字，修改 sTemp = stemp + 65行内容（具体参照ASCII码相关信息）文章源自原紫番博客-https://www.yuanzifan.com/344.html
Dim i, N, sUCharRand ,sTemp, sRDA文章源自原紫番博客-https://www.yuanzifan.com/344.html
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文章源自原紫番博客-https://www.yuanzifan.com/344.html
'''''''''''''''''''''''''''''''''分隔符'''''''''''''''''''''''''''''''''''''''''''''''文章源自原紫番博客-https://www.yuanzifan.com/344.html
'下列代码可生成纯数字的随机字符串，参数N为字符串长度文章源自原紫番博客-https://www.yuanzifan.com/344.html
Dim i, N, sUCharRand ,sTemp, sRDA文章源自原紫番博客-https://www.yuanzifan.com/344.html
Function UCharRand(N)文章源自原紫番博客-https://www.yuanzifan.com/344.html
For i=1 to N文章源自原紫番博客-https://www.yuanzifan.com/344.html
Randomize 'ASC(MID(sRDA,1,1))文章源自原紫番博客-https://www.yuanzifan.com/344.html
sTemp = cint(10*Rnd)
sTemp = sTemp + 48
sUCharRand = sUCharRand & chr(sTemp) 'chr方法可根据数字给出的ascii码值返回该ascii码对应的字母或数字
Next
End Function
评论