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

技术流评论9,717 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

QTP中:使用VBS调用Excel截图功能 技术流

QTP中:使用VBS调用Excel截图功能

因为需要将测试截图存储于Execl中,但是网上找到的代码都是只能截一张图的,如果截多张会导致所有图都在第一排。而QTP自带的那个截图软件事实上只能得到一张图片,还得自己想办法将图导入到Excel。 搜...
QTP中OptionalStep的用法 技术流

QTP中OptionalStep的用法

在使用QTP时候,经常遇到的问题就是,在经过了某些操作之后,程序将出现一个岔口。A岔口将弹出窗口,而B岔口则无弹出窗口。 面对这样的问题,最常见的解决办法是使用Exist方法。判定窗口或控件是否存在,...
评论  0  访客  0

发表评论

匿名网友 填写信息

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

确定