疑問 - 關於產生連續序號用法

[飛鳥]

如像產生：

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

這樣，使用多個for while if

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

[getter]

大概是 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)

[飛鳥]

作者: 劍痞憶秋年

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;}

[getter]

我的想法是 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

[mini]

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"