QTP_随机生成N个字符（包含数字和字母）

'*************************************************************
' Name: GetRandomString
' Purpose: 随机生成N个字符（包含数字和字母）
' Parameters: 
 'strGet -output string
' *************************************************************

 1 Function GetRandomString(strGet,iSize)
 2        ' TODO: add function body here
 3         strGet=""
 4         Randomize
 5         For j=1 to iSize
 6             i=RandomNumber(0,1)
 7             If i=0 Then
 8                 strGet=strGet & Chr(Int(Rnd()*10)+48)
 9             Elseif i=1 then
10                 strGet=strGet & Chr(Int(Rnd()*26)+65)
11 '            Else
12 '                strGet=strGet & Chr(Int(Rnd()*26)+97)
13             End If
14         Next
15 End Function

 

'调用GetRandomString函数，可组合形成：固定字符+随机字符

1 Function GetVehicleNo(strVehicleNo)
2    GetRandomString strGet,5
3    strVehicleNo=strVehicleNo & strGet
4    GetVehicleNo=strVehicleNo
5 End Function

 

posted @ 2019-03-12 16:28  chenzy01  阅读(464)  评论(0)  编辑  收藏  举报