怎么随机生成字母加数字？

hzxymkb

比如：
6m2fw69n   
o66no2        
0m0n5q21     
ffxohzcd      
33eb3t8  

然后发别分他们写到文本文件里！生成6－10位

sanmoking

很简单的啊,等我一下.

$txt = ""
for $t = 1 to 10 ;生成10个字符串
                for $i = 1 to 16 ;字符串长度16位
                        $test =Random (1,3,1)
                        if $test = 1 Then $x = Chr(Random(48,57,1));生成数字
                        if $test = 2 Then $x = Chr(Random(97,122,1));生成小写字母        
                        if $test = 3 Then $x = Chr(Random(65,90,1));生成大写字母
                        $txt = $txt&$x        
                Next
        $txt = $txt&@CRLF        
Next                                
MsgBox(0,"随机字符串",$txt)

写入文本文件的部分我就不管了/////

更新一下:

$txt = ""
for $t = 1 to 10 ;生成10个字符串
for $i = 1 to Random (6,10,1) ;字符串长度随机6-10位
$test =Random (1,3,1)
if $test = 1 Then $x = Chr(Random(48,57,1));生成数字
if $test = 2 Then $x = Chr(Random(97,122,1));生成小写字母 
if $test = 3 Then $x = Chr(Random(65,90,1));生成大写字母
$txt = $txt&$x 
Next
$txt = $txt&@CRLF 
Next 
MsgBox(0,"随机字符串",$txt)

再更新一下,如果算上常规符号的话,更简单,如下:

$txt = ""
for $t = 1 to 10 ;生成10个字符串
  for $i = 1 to Random (6,10,1) ;字符串长度随机6-10位
   $txt = $txt&Chr(Random(33,126,1))
  Next
$txt = $txt&@CRLF 
Next    
MsgBox(0,"随机字符串",$txt)

很有兴致,再来一个,生成[小写字母+数字+大写字母]格式的字符串,非乱序,如下

$txt = ""
for $t = 1 to 10 ;生成10个字符串
$usern1 = ""
for $u = 1 to 6 ;生成6位小写字母
 $usern1 = $usern1&Chr (Random (97,122, 1 ))
Next
$usern2 = ""
for $u = 1 to 4 ;生成4位数字
 $usern2 = $usern2&Random (0,9,1)
Next
$usern3 = ""
for $u = 1 to Random (1,3,1);生成1-3位大写字母
 $usern3 = $usern3&Chr(Random(65,90,1))
Next   
 $txt = $txt&$usern1&$usern2&$usern3&@CRLF 
Next    
MsgBox(0,"随机字符串",$txt)

顽固不化

$STR = "0123456789abcdefghijklmnopqrstuvwxyz"
$max = Random(6, 10, 1)
$key = ""
For $i = 1 To $max
        $key = $key & StringMid($STR, Random(1, 36, 1), 1)
Next
MsgBox(0, 0, $key)

大绯狼

$str = ""
For $i = 1 To Random(6, 10,1)
        If Random(0, 1,1) = 1 Then
                $str &= Random(0, 9,1)
        Else
                $str &= Chr(Random(Asc('a'), Asc('z'),1))
        EndIf
Next
MsgBox(0, 0, $str)

afan

Local $str = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789abcdefghijklmnopqrstuvwxyz', $b
Local $a = StringSplit($str, '')
While 1
        For $i = 1 To Random(6, 10)
                $b &= $a[Random(1, 62)]
        Next
        MsgBox(0, 0, $b, 1)
        $b = ''
WEnd

顽固不化

哈哈，答案好多，好多热心人哦

水木子

是啊！高手是越来越多啊！照这样下去论坛人气一定会大大提升。

hzxymkb

谢谢楼上的朋友！真的太感谢了！

顽固不化

大灰狼的简单，但违反每个数字字母机会均等的原则，

大绯狼

回复 9# 顽固不化


  受教了。。。只想着如何简单的实现这个目标了。。。

hzxymkb

大灰狼的简单，但违反每个数字字母机会均等的原则，
顽固不化 发表于 2009-12-23 15:24

顽固不化 真是高手！这都知道！佩服！

298311657

Local $out,$a[63]=[62],$s=48
For $i=1 To 62
        $a[$i] = $s
        $s +=1
        If $s=58 Then
                $s=65
        ElseIf $s=91 Then
                $s=97
        EndIf
Next
For $i=1 To Random(6,10,1)
        $out &= Chr($a[Random(1,62,1)])
Next
MsgBox(0,'',$out)

生成大小写字母加数字

wyl0205

高手越来越多了。。。