兄弟误会了吧，我现在也正在想着办法，我打算想到后以后发上来让大家共同学习然后结贴的，如果有人有更好的方法早我一步发上也可以早一步结贴了，这样就不用霸着提问区的位置让其它人可以有其它的问题发问。
只想让大家共同学习，共同进步，但好可惜脑子实在不灵活，实在网上搜索再三还是愚笨未知，先到论坛发帖求问，再过2天如果我还是想不出来的话也只好结贴作罢了 回复 17# xdcysten Func _Reverse($Value,$Hex)
Local Const $KEY = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
$Array=StringSplit($Value ,"" )
$Result=0
For $i=1 To $Array
If StringInStr($KEY ,$Array[$i] ,1)>$Hex Then
Return SetError(1, 0, "超出"&$Hex&"进制")
Else
$Result+=($Hex^($Array-$i))*(StringInStr($KEY ,$Array[$i] ,1)-1)
EndIf
Next
Return $Result
EndFunc
MsgBox(0,0,_Reverse("13DVQMR26F",36)) 回复 18# kyniel
在这里先多谢这位兄弟热心的回复，昨天上网查了这方面的资料，找来找去只有其它比如C++这些语言的例子，无奈实在是瞎子看圣经，终于在http://topic.csdn.net/u/20080530/12/0871ab30-02b8-4a23-b5ee-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 这是什么东东...什么意思.... 这是什么东东...什么意思....反复看还是没有看懂....
页:
1
[2]