$begin = TimerInit()
Dim $String = "AB-CD-EF-GH-IJ-KL"
Dim $String_Arr = StringSplit($String, "-")
Dim $Out_Num = Int(2 ^ $String_Arr)
Dim $Out_String_Arr = [$Out_Num]
Dim $New_String_Arr * 2] = [$String_Arr * 2]
For $i = 1 To $String_Arr
$New_String_Arr[$i * 2 - 1] = $String_Arr[$i]
$New_String_Arr[$i * 2] = StringMid($String_Arr[$i], 2) & StringMid($String_Arr[$i], 1, 1)
Next
$n = 1
For $i = 1 To 2
For $j = 3 To 4
For $k = 5 To 6
For $c = 7 To 8
For $d = 9 To 10
For $e = 11 To 12
$Out_String_Arr[$n] = $New_String_Arr[$i] & "-" & _
$New_String_Arr[$j] & "-" & _
$New_String_Arr[$k] & "-" & _
$New_String_Arr[$c] & "-" & _
$New_String_Arr[$d] & "-" & _
$New_String_Arr[$e]
$n += 1
Next
Next
Next
Next
Next
Next
_ArrayDisplay($Out_String_Arr, "时间(ms):" & TimerDiff($begin))数学不行，唉~ 楼上写出代码的同志，我有个人人的PT站邀请码，需要的请联系我。我只有1个。先来先得。
再次感谢！
页:
1
[2]