#include <Array.au3>
MsgBox(0,0,Conversion(2346,2))
Func Conversion($n,$d);模拟先进后出的十进制转换其它进制,$n=十进制,$d=其它进制
If $d<0 Then Return SetError(1)
Local $Stack_Arr[1000]
If $n<0 Then $n=-$n
If $n=0 Then _ArrayPush($Stack_Arr,$n)
While $n
_ArrayPush($Stack_Arr,Mod($n,$d))
$n=Int($n/$d)
WEnd
Local $output=""
While 1
Local $temp=_ArrayPop($Stack_Arr)
If $temp=="" Then ExitLoop
If $temp>=10 Then $temp=Chr($temp+55)
$output&=$temp
WEnd
Return $output
EndFunc