[已解决]如何将数字转换为36的7次方的数字字母组合，也就N进制与10进制的转换

xdcysten

每一位数可代表0~1或A~Z, 字母不分大小写 ,可变数为 36， 但上了36以后逻辑就开始有点乱了，第二位要再从1一直递进直到Z完毕然后再到第三位数。

比如：0 = 0000000
         1 = 0000001
        10 = 000000A



——————————————————————
问题已经解决,感谢楼下的几位兄弟帮忙

10进制转N进制的,p版的代码：

Func _62Hex($iValue, $iHex)
If $iHex < 2 Or $iHex > 65 Then
Return SetError(1, 0, "")
EndIf

Local Const $KEY = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz-+@"

Local $iMod, $sResult

While $iValue
$iMod = Mod($iValue, $iHex)
$sResult = StringMid($KEY, $iMod + 1, 1) & $sResult

$iValue = Int($iValue / $iHex)

WEnd

;Return StringFormat("(%d)%s", $iHex, $sResult)
Return $sResult
EndFunc ;==>_62Hex

N进制转10进制的：

Func _N2Dec($iValue, $iHex)
        Local Const $KEY = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz-+@"
           Local $iValueLen = StringLen($iValue), $sResult
           If $iHex < 2 Or $iHex > StringLen($KEY) Then
                   Return SetError(1, 0, "")
           EndIf
        For $i = 1 To $iValueLen
                $sResult+=(StringInStr($KEY, StringMid($iValue, $i, 1),1)-1)* ($iHex^($iValueLen-$i))
        Next
        Return $sResult
EndFunc   ;==>_N2Dec

netegg

进制转换？这种超过10的进制转换，需要定义到底是一个数位还是两个数位，比方126，是怎么认定的，是1和26还是12和6，甚或是1，2，6

xdcysten

回复 2# netegg


  网上查了一下，这个应该就是  10进制转36进制，但这方面的有效益的算法不去从何着手，逻辑不成

netegg

回复 3# xdcysten
难倒也不是很难，就是写起来麻烦，无非是递归计算乘方和而已

kevinch

Global $dic=ObjCreate("scripting.dictionary")
For $n=0 To 9
        $dic($dic.count)=$n
Next
For $n=Asc("A") To Asc("Z")
        $dic($dic.count)=Chr($n)
Next

$n=Int(Random(1,36^7))
;$n=72

MsgBox(0,"",$n&@TAB&_Exchange($n))

Func _Exchange($n)
        $str=""
        Do
                $str=$dic(Mod($n,36))&$str
                $n=Int($n/36)
        Until $n<36
        $str=$dic($n)&$str
        Return $str
EndFunc

试下，太大不知会不会溢出

kevinch

Global $arr[36]
For $n=0 To 9
        $arr[$n]=$n
Next
For $i=Asc("A") To Asc("Z")
        $arr[$n]=Chr($i)
        $n+=1
Next

$n=Int(Random(1,36^7))
;$n=360

MsgBox(0,"",$n&@TAB&_Exchange($n))

Func _Exchange($n)
        $str=""
        Do
                $str=$arr[Mod($n,36)]&$str
                $n=Int($n/36)
        Until $n<36
        $str=$arr[$n]&$str
        Return $str
EndFunc

转换规则对应项不多，用数组实现吧

xdcysten

回复 6# kevinch

多谢兄弟的回答，是这个了，能问多两个问题吗

1.在0~9，A~Z, a~z 字母大小混合情况如何实现呢
2.这些组合如何能反读出来，比如：0A = 10

数学和逻辑实在不成，还望见谅，请多多指教

netegg

回复 7# xdcysten
我就说嘛，进制转换不是那么容易的，如果建立字典的话，还不如直接写个数组对应着换了
楼主，看看10进制和16进制转换的代码吧，自己试着扩展下，把里面的参数修改下
还有lz所说的混排，A,a到底是不是一样的，如果不是的话，那就不是36进制是62进制

xdcysten

回复 8# netegg

多谢NETEGG提醒，刚才粗俗的看了一下，如果纯计算的话，效率会有小小小慢
写数组对应我觉得效率可能会好小小

看看能不能有些前辈有更高效的算法

最好可以互换的，像：10=0A                0A=10

xdcysten

回复 8# netegg

对，是62进制，有时候需要这样的大小写字母数字混排，我有个想法，不知能用正则表达式来实现不？

kevinch

序列和mod值修改一下就行了
转换成十进制的话逐位：对就数值*进制^(位数-1)，然后累加起来就行了

pusofalse

MsgBox(0, "10 -> 36", _62Hex(111111111111111, 36))

Func _62Hex($iValue, $iHex)
        If $iHex < 2 OR $iHex > 62 Then
                Return SetError(1, 0, "")
        EndIf

        Local Const $KEY = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"

        Local $iMod, $sResult

        While $iValue
                $iMod = Mod($iValue, $iHex)
                $sResult = StringMid($KEY, $iMod + 1, 1) & $sResult

                $iValue = Int($iValue / $iHex)
        WEnd

        Return StringFormat("(%d)%s", $iHex, $sResult)
EndFunc        ;==>_62Hex

简单取余就好了。

qiu491996004

学习了 P版这个方法还是很不错的

zerobin

P版的经典。进制转换好像就是取余计算

xdcysten

回复 12# pusofalse


试了P版的代码，方法很是巧妙，除了32或62进制外其它的进制也可以自定义

网上查了一下，下面是用php写的进制转换，对PHP语法不熟悉，any2Dec那里只明白要先计算字符的长度以此为计算次数，bcadd=加 bcmul=乘，其它就看不明了

请问那62进制转回10进制应该怎么写？

/**
 * 返回一字符串，十进制 number 以 radix 进制的表示。
 * @param dec       需要转换的数字
 * @param toRadix    输出进制。当不在转换范围内时，此参数会被设定为 2，以便及时发现。
 * @return    指定输出进制的数字
 */
function dec2Any($dec, $toRadix) {
    $MIN_RADIX = 2;
    $MAX_RADIX = 62;
    $num62 = '0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ';
    if ($toRadix < $MIN_RADIX || $toRadix > $MAX_RADIX) {
        $toRadix = 2;
    }
    if ($toRadix == 10) {
        return $dec;
    }
    // -Long.MIN_VALUE 转换为 2 进制时长度为65
    $buf = array();
    $charPos = 64;
    $isNegative = $dec < 0; //(bccomp($dec, 0) < 0);
    if (!$isNegative) {
        $dec = -$dec; // bcsub(0, $dec);
    }
 
    while (bccomp($dec, -$toRadix) <= 0) {
        $buf[$charPos--] = $num62[-bcmod($dec, $toRadix)];
        $dec = bcdiv($dec, $toRadix);
    }
    $buf[$charPos] = $num62[-$dec];
    if ($isNegative) {
        $buf[--$charPos] = '-';
    }
    $_any = '';
    for ($i = $charPos; $i < 65; $i++) {
        $_any .= $buf[$i];
    }
    return $_any;
}
 
/**
 * 返回一字符串，包含 number 以 10 进制的表示。
 * fromBase 只能在 2 和 62 之间（包括 2 和 62）。
 * @param number    输入数字
 * @param fromRadix    输入进制
 * @return  十进制数字
 */
function any2Dec($number, $fromRadix) {
    $num62 = '0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ';
    $dec = 0;
    $digitValue = 0;
    $len = strlen($number) - 1;
    for ($t = 0; $t <= $len; $t++) {
        $digitValue = strpos($num62, $number[$t]);
        $dec = bcadd(bcmul($dec, $fromRadix), $digitValue);
    }
    return $dec;
}
 
$sol = '<br/>' . PHP_EOL;
echo any2Dec('ZZZZZZ', 62), $sol; // 56800235583
echo dec2Any('123456', 62), $sol; // w7e
echo any2Dec('w7e', 62), $sol; // 123456