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

kyniel

见过伸手党 没见过这么伸的

xdcysten

回复 16# kyniel


    兄弟误会了吧，我现在也正在想着办法，我打算想到后以后发上来让大家共同学习然后结贴的，如果有人有更好的方法早我一步发上也可以早一步结贴了，这样就不用霸着提问区的位置让其它人可以有其它的问题发问。


只想让大家共同学习，共同进步，但好可惜脑子实在不灵活，实在网上搜索再三还是愚笨未知，先到论坛发帖求问，再过2天如果我还是想不出来的话也只好结贴作罢了

kyniel

回复 17# xdcysten

Func _Reverse($Value,$Hex)
        Local Const $KEY = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
        $Array=StringSplit($Value ,"" )
        $Result=0
        For $i=1 To $Array[0]
                If StringInStr($KEY ,$Array[$i] ,1)>$Hex Then
                        Return SetError(1, 0, "超出"&$Hex&"进制")
                Else
                $Result+=($Hex^($Array[0]-$i))*(StringInStr($KEY ,$Array[$i] ,1)-1)
                EndIf
        Next
        Return $Result
        
EndFunc
MsgBox(0,0,_Reverse("13DVQMR26F",36))

xdcysten

回复 18# kyniel

在这里先多谢这位兄弟热心的回复，昨天上网查了这方面的资料，找来找去只有其它比如C++这些语言的例子，无奈实在是瞎子看圣经，终于在http://topic.csdn.net/u/20080530 ... e-6f55cf0e08bc.html#8楼无意间看到一些比较容易读懂的公式例子，发觉16进制转10进制就是跟36、62或N进制转10进制其实没有什么两样，于是照著葫蘆畫瓢写了一个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

fhqbbfcu2050

这是什么东东...什么意思....

fhqbbfcu2050

这是什么东东...什么意思....反复看还是没有看懂....