论坛 › 『 提问交流 』 › 请教如何随机成字母和数字

sakura1528 发表于 2009-2-14 12:54:54

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

请问高手一下啊   如何随即生成 字母和数字 如A-Z 0-9

最好位数也是随即出的 5-10位在这里先谢谢高手

rho123 发表于 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

非常简陋，见笑了

sakura1528 发表于 2009-2-14 13:08:32

:face (29): 谢谢啦回去消化消化下

烤地瓜 发表于 2009-5-9 18:20:03

:face (7):了解!

songtao 发表于 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)

查看完整版本: 请教如何随机成字母和数字