51Testing软件测试论坛

标题: vbs我想随即获得一个任意长度的字符串，求高人代码 [打印本页]

作者: csj 时间: 2010-7-9 13:59
标题: vbs我想随即获得一个任意长度的字符串，求高人代码
主要是字符，数字，标点符号，常用符号等，求赐代码。用于QTP

作者: zzxxbb112 时间: 2010-7-9 16:46
胡乱帮你写了一个，呵呵，自己可以根据需求进行修改。

rData = Crypt.Encrypt(RandomNumber(00000,99999999))

rData = replace(rData,"a",",")
rData = replace(rData,"b","@")
rData = replace(rData,"c","^")
rData = replace(rData,"cd","#")
msgbox rData

作者: csj 时间: 2010-7-9 19:47
标题: 回复 2# 的帖子
版主大人，你给的这个东东我也不知道什么意思，你直接给个生成6位随机字符串的吧。谢谢了啊

作者: TIB 时间: 2010-7-10 09:40
Msgbox GetRandomChars(10)

Function GetRandomChars( length )
Dim str
For I = 0 to length
Randomize
idx =Int( ( ub - 32 + 126 ) * Rnd +32)
str = str & Chr(idx)
Next
GetRandomChars = str
End Function

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)