csj 发表于 2010-7-9 13:59:05

vbs我想随即获得一个任意长度的字符串，求高人代码

主要是字符，数字，标点符号，常用符号等，求赐代码。用于QTP

zzxxbb112 发表于 2010-7-9 16:46:02

胡乱帮你写了一个，呵呵，自己可以根据需求进行修改。

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:44

回复 2# 的帖子

版主大人，你给的这个东东我也不知道什么意思，你直接给个生成6位随机字符串的吧。谢谢了啊

TIB 发表于 2010-7-10 09:40:09

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
页: [1]
查看完整版本: vbs我想随即获得一个任意长度的字符串，求高人代码