QTP 取值特殊方式，求高手解答下，谢谢！ - 51Testing软件测试论坛

'**********************************************************
'设计说明：根据日期、时间和两组随机数生成相对较为唯一的字符串，常用于文件的非覆盖保存
'程序输入：
' 1. circleNumber -- 循环次数
'程序输出：日期、时间、随机数、随机数的拼接字符串如：20110107_161003_93778_47149
'设计人员：刘毅（LIUYI）
'设计时间： 2011-01-07
'调用举例： Printer GenerateUniqueStr("30")
'**********************************************************
Public Function GenerateUniqueStr(circleNumber)
If Trim(circleNumber) = "" Then
circleNumber = randomnumber.Value(20,50)
Else
If circleNumber < 11 Then
circleNumber = circleNumber + 20
End If
End If
randomNo = randomnumber.Value(10,Abs(circleNumber))
For i = 1 to randomNo
randomNum1 = randomnumber.Value(10000,99999)
randomNum2 = Int((99999-10000+1)*rnd+10000)
Next
GenerateUniqueStr = FormatDate(Now,"yyyymmdd_hh24miss")&"_"&randomNum1&"_"&randomNum2
End Function
'**********************************************************
'调用举例：生成指定长度的随机字符串，不含特殊字符
'程序输入：
' 1. appointedLen - 需要的字符串长度
'程序输出： String类型，指定长度的随机数
'设计人员：刘毅（LIUYI）
'设计时间： 2011-01-04
'调用举例： msgbox GenSpeLenRandStr(10)
'**********************************************************
Function GenSpeLenRandStr(appointedLen)
Dim elements1:elements1 = "1,2,3,4,5,6,7,8,9,0"
Dim elements2:elements2 = "a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z"
Dim elements3:elements3 = "A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z"
Dim eleArray:eleArray = Split(elements1 & elements2 & elements3 , ",")
If IsNumeric(appointedLen) And Abs(appointedLen) > 0 Then
For i = 1 To appointedLen
Randomize
randNum = RandomNumber.Value(0,61)
tmpStr = tmpStr + eleArray(randNum)
Next
Else
tmpStr = "必须输入大于零的整型数字！"
End If
GenSpeLenRandStr = tmpStr
End Function

复制代码