【已解决】随机生成15位数字并保存

chamlien · 发表于 2013-8-17 23:55:25

本帖最后由 chamlien 于 2013-8-29 22:12 编辑

随机生成数字我倒会，但是要随机生成300个15位数字并且保存为txt或者微软表格，这个就有点难了，请高手提供思路！谢谢！

lpxx · 发表于 2013-8-18 01:31:18

#include <File.au3>
Local $file = FileOpen("test.txt", 1)
If $file = -1 Then
        MsgBox(4096, "错误", "不能打开文件.")
        Exit
EndIf

For $i = 1 To 300
        FileWriteLine($file, name(15))
Next
FileClose($file)

Func name($t1)
        $array = StringSplit("abcdefghijklmnopqrstuvwxyz01234567890123456789", "")
        $t0 = ""
        For $x = 1 To $t1
                $t0 &= $array[Random(1, $array[0], 1)]
        Next
        Return $t0
EndFunc   ;==>name

txen548 · 发表于 2013-8-19 11:25:12

感謝分享,謝謝

netegg · 发表于 2013-8-26 04:32:48

本帖最后由 netegg 于 2013-8-26 04:41 编辑

身份证呀，网上有的是现成的码，如果是的话，哪有那么复杂，直接写，只要你知道身份证的规则就行了，每位的含义是不一样的

chamlien · 发表于 2013-8-26 22:03:50

这个，元老，能提供一下链接吗

chamlien · 发表于 2013-8-26 22:04:30

回复 4# netegg

这个，元老，能提供一下链接吗

xlj310 · 发表于 2013-8-27 08:45:38

晕，网蛋一下就戳中要点了~

逆水风帆 · 发表于 2014-11-23 19:08:43

小手一抖，经验到手！

用户名		自动登录	找回密码
密码			加入

[AU3基础] 【已解决】随机生成15位数字并保存

相关帖子