找回密码
 加入
搜索
查看: 2076|回复: 5

请教如何随机成字母和数字

[复制链接]
发表于 2009-2-14 12:54:54 | 显示全部楼层 |阅读模式
请问高手一下啊   如何随即生成 字母和数字 如A-Z 0-9

最好位数也是随即出的 5-10位  在这里先谢谢高手
发表于 2009-2-14 13:03:24 | 显示全部楼层
MsgBox(0,"随机字母(5-10位)",_ran_dom(1,Random(5, 10, 1)))
MsgBox(0,"随机数字(5-10位)",_ran_dom(0,Random(5, 10, 1)))


Func _ran_dom($var,$n)
        $cdk = ""
        if $var = 1 then 
             FOR $i= 1 to $n
              $cdk = $cdk&Chr(Random(Asc("a"), Asc("z")))
             Next
         Else
             FOR $i= 1 to $n
              $cdk = $cdk&Chr(Random(Asc("1"), Asc("9")))
            Next
        EndIf 
        Return $cdk
EndFunc


非常简陋,见笑了

评分

参与人数 1金钱 +5 收起 理由
askask150 + 5 太棒了 谢谢

查看全部评分

 楼主| 发表于 2009-2-14 13:08:32 | 显示全部楼层
谢谢啦  回去消化消化下
发表于 2009-5-9 18:20:03 | 显示全部楼层
了解!
发表于 2009-9-20 10:36:29 | 显示全部楼层
呵呵, 收了。。。
发表于 2009-9-20 10:53:13 | 显示全部楼层
大写字母  A-Z
chr(random(65,90,1))
小写字母 a-z
chr(random(97,122,1))
数字
random(0,9,1)

位数就用 FOR
例如
dim $str=""
for $i = 1 to 5
    $str = $str & chr(random(65,90,1))
next
msgbox(0,"A-Z",$str)
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-12-25 01:42 , Processed in 0.082129 second(s), 28 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表