史萊姆論壇 - 關於產生連續序號用法

史萊姆論壇 (http://forum.slime.com.tw/)

- 程式語言討論區 (http://forum.slime.com.tw/f76.html)

- - 關於產生連續序號用法 (http://forum.slime.com.tw/thread181348.html)

關於產生連續序號用法

如像產生：

0000
0001
0002
0003
0004
0005
0006
0007
0008
0009
000a
000b
......
......
0010
0011
0012
...
...
001a
....
..
.

這樣，使用多個for while if

從0到a到z到A到Z，四位

大概是 62 進位制的東西
0~9 : 10 位
a~z : 26 位
A~Z : 26 位

10 + 26 + 26 = 62

我的想法是使用陣列的方式去做

像這樣！

第一次迴圈

引用:

[0][0][0][0]

第二次迴圈把最後一個加一

引用:

[0][0][0][1]

引用:

[0][0][0][2]

引用:

[0][0][0][3]

....
....
....
當加完十次就改成a

引用:

[0][0][0][a]

引用:

作者: 飛鳥

這樣，使用多個for while if

從0到a到z到A到Z，四位

10 + 26 + 26 = 62 進制

<1>??使用多個for while if
==>這是條件嗎??一定要用這個嗎

<2>要寫什麼，小弟看的不是很明確
　　是要寫 62進制的加法嗎

<3>用什麼寫??(小弟也只會 VB)

引用:

作者: 劍痞憶秋年

我討論的話，通常是不會討論用什麼語言

通常都是討論方法，像if for while都是大多數語言都會有的迴圈
還有print或printf

我自己是有寫perl版的序號產生：
no.txt 內容

引用:

0 1 2 3 4 5 6 7 8 9 a b c d e f g h i j k l m n o p q r s t u v w x y z A B C D E F G H I J K L M N O P Q R S T U V W X Y Z ~ ! @ # $ % ^ & * ( ) _ + - , . / ' " { } [ ] \ |

程式內容：

引用:

my $unit=3;#my為宣告，要產生幾位
my $cgirl=1;#第幾層向上層

my @arr=(0...$unit);#at為陣列宣告，產生0~3的一圍陣列，而陣列內容為[0][1][2][3]
for(my $i=0;$i<=$unit;$i++){#清空陣列內容
$arr[$i]=0;
}

my $i=0;
my $cc=0;

while(1){

my @no;
open (NOTXT,"no.txt")||print "don't open no.txt\n";#打開no.txt
while (my $notxt=<NOTXT>){
chomp $notxt;@no=split(/ / , $notxt);#從no.txt文字檔讀入要產生的字元0~|，放入陣列@no
}

$cc=$arr[$cgirl];
print "$no[$arr[$cgirl]]";

if($cgirl == $unit){
$arr[$cgirl]++;print "\n";
$cgirl=0;
}
print "-$cc-\n";
if($cc == 86){
$arr[$cgirl-1]++;
print "$arr[$cgirl-1]\n";
$cgirl=0;}
#$arr[$cgirl-1]++;

$cgirl++;

if(($arr[$cgirl]==87) && ($cgirl==86)){last;}

我的想法是 62
方法一︰用 62 進位法則來做
方法二︰先用 10 產生號碼，在用轉 62 進位程式轉換

大概就這兩種方向吧

依序 0~9~a~z~A~Z 共 62 位，超過 62 則進位

狀態如下︰

[0] [0] [0] [0]
[0] [0] [0] [1]
[0] [0] [0] [2]
...
[0] [0] [0] [a]
...
[0] [0] [0] [z]
...
[0] [0] [0] [A]
...
[0] [0] [0] [Z]
[0] [0] [1] [0]

用 XX 進制轉 10 ，10進制轉 XX 進制

程式如下：

語法:



 Dim JetStr_Now As String

Dim JetStr_Format As String

Dim JetStr_10(1 To 4) As String



Private Sub cmdTry_Click()



  Dim intLL As Integer

  

  For intLL = 101 To 200

    Debug.Print JetConv10_Str(Format(Val(JetConvStr_10(Text1.Text)) + intLL, JetStr_Format))

  Next intLL

End Sub



Private Sub Form_Load()



  JetStr_Format = "0000"

  JetStr_Now = Format(JetStr_Now, JetStr_Format)

  Dim intII As Integer

  Dim intJJ As Integer

  For intII = 0 To 9

    JetStr_All = JetStr_All & Trim(Str(intII))

  Next intII

  For intII = 1 To 26

    JetStr_All = JetStr_All & Chr(Asc("a") + intII - 1)

  Next intII

  For intII = 1 To 26

    JetStr_All = JetStr_All & Chr(Asc("A") + intII - 1)

  Next intII

  

  JetStr_Len = Len(JetStr_All)

  For intJJ = 1 To Len(JetStr_Format)

    JetStr_10(intJJ) = JetStr_Len ^ (intJJ - 1)

  Next intJJ

End Sub



Private Function JetConvStr_10(ByVal JetStr As String) As String



  Dim JetStr_1(1 To 4) As String

  Dim intJJ As Integer

  Dim intKK As Integer

    

  intKK = Len(JetStr_Format)

  For intJJ = 1 To intKK

     JetStr_1(intJJ) = InStr(JetStr_All, Mid(JetStr, intKK, 1)) - 1

     JetStr_1(intJJ) = Val(JetStr_1(intJJ)) * Val(JetStr_10(intJJ))

     JetConvStr_10 = Val(JetConvStr_10) + Val(JetStr_1(intJJ))

     intKK = intKK - 1

  Next intJJ

  

End Function



Private Function JetConv10_Str(ByVal JetStr As String) As String



  Dim JetStr_1(1 To 4) As String



  Dim intJJ As Integer

  Dim intKK As Integer

  Dim JetStr_Backup As String

  

  JetStr_Backup = JetStr

  intKK = 1

  For intJJ = Len(JetStr_Format) To 1 Step -1



     JetStr_1(intJJ) = Val(JetStr) \ Val(JetStr_10(intJJ))



     JetConv10_Str = JetConv10_Str & Mid(JetStr_All, Val(JetStr_1(intJJ)) + 1, 1)

     JetStr = Val(JetStr) Mod Val(JetStr_10(intJJ))

     intKK = intKK + 1



  Next intJJ



End Function

62 進制 ^^"...
其實不管是幾進制
都可用範圍式亂數法
VB是這樣的

若想產生在某個範圍內(非 0 到 1)的亂數值，可使用下列公式：
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

也就是每一格欄位
Int((61+1)*Rnd)
會產生 0~61 之間的數字

那 0~9 就是 "0"~"9"
10~35 就是 "a"~"z"
36~61 就是 "A"~"Z"