2到36进制之间的相互转换

进制转换

*===================================================================================
*作 用：2-36进制的转换
*语 法：Base_Convert(cNumber,nFromBase,nToBase)
*参数说明：cNumber 要转换的字符型值，nFromBase 原进制，nToBase 目标进制
*返 回 值：字符串，错误返回空串
*BY:整数部分（xuzuning(唠叨) 、清风） 小数部分（十豆三）
*说明
*本函数将数字符字串 cNumber 从以 nFromBase 进位转换到以 nToBase 进位。
*本函数能够处理2进制到36进制之间任意正数（包括带小数的数值）的相互转换。
*在十进位之前都是以数字表示，而在超过十进位之后就用英文字母表示。
*例如十六进位个位数依序为 123456789abcdef，10 的顺序是第十七个，这时才进一位。
*而三十六进位 a 是第十个、b 为第十一个、z 为第三十六个、10 是第三十七个，这时才进位。
*===================================================================================

*以下为常用的进制使用范例
lc2='1111011.101'
lc8='173.5'
lc10='123.625'
lc16='7B.A'
Clear
?Base_Convert(lc8,8,2) &&8进制转成2进制
?Base_Convert(lc10,10,2) &&10进制转成2进制
?Base_Convert(lc16,16,2) &&16进制转成2进制
?''
?Base_Convert(lc2,2,8) &&2进制转成8进制
?Base_Convert(lc10,10,8) &&10进制转成8进制
?Base_Convert(lc16,16,8) &&16进制转成8进制
?''
?Base_Convert(lc2,2,10) &&2进制转成10进制
?Base_Convert(lc8,8,10) &&8进制转成10进制
?Base_Convert(lc16,16,10) &&16进制转成10进制
?''
?Base_Convert(lc2,2,16) &&2进制转成16进制
?Base_Convert(lc8,8,16) &&8进制转成16进制
?Base_Convert(lc10,10,16) &&10进制转成16进制

Function Base_Convert(cNumber,nFromBase,nToBase)
If Parameters()#3
Messagebox('参数个数不对!',16,'错误')
Return ''
Endif
If Vartype(cNumber)#'C' Or Vartype(nFromBase)#'N' Or Vartype(nToBase)#'N'Or !Between(nFromBase,2,36) Or !Between(nToBase,2,36)
Messagebox('参数类型不对!',16,'错误')
Return ''
Endif
Private All
lnDecBak=Set('DECIMALS')
Set Decimals To 18
dict="0123456789ABCDEFGHIJKLMNOPQISTUVWXYZ"
cNumber=Upper(Alltrim(Transform(cNumber)))
nDecimalsWZ=At('.',cNumber) &&判断是否带小数
If nDecimalsWZ>0
cNumber2=Substr(cNumber,nDecimalsWZ+1)
cNumber=Left(cNumber,nDecimalsWZ-1)
Else
cNumber2=''
Endif
dec=0
n0=Len(cNumber)
For I=1 To n0
ch=Substr(cNumber,I,1)
N=At(ch,dict)
If !Between(N,1,nFromBase)
Return ''
Endif
dec=dec+(N-1)*nFromBase^(n0-I)
Endfor
dec2=0
n02=Len(cNumber2)
For I=1 To n02
ch2=Substr(cNumber2,I,1)
N2=At(ch2,dict)
If !Between(N2,1,nFromBase)
Return ''
Endif
dec2=dec2+(N2-1)/nFromBase^I
Endfor
If nToBase=10
Set Decimals To (lnDecBak)
If dec2=0
Return Transform(dec)
Else
Return numTOstr(dec+dec2)
Endif
Endif
Convert=''
Do While dec>=nToBase
N=Mod(dec,nToBase)
dec=Int(dec/nToBase)
Convert=Substr(dict,N+1,1)+Convert
Enddo
Convert=Substr(dict,dec+1,1)+Convert
Convert2=''
Do While dec2>0
N2=Int(dec2*nToBase)
dec2=dec2*nToBase-N2
Convert2=Convert2+Substr(dict,N2+1,1)
Enddo
Set Decimals To (lnDecBak)
If Len(Convert2)>0
Return Convert+'.'+Convert2
Else
Return Convert
Endif
Endfunc

Function numTOstr &&将带小数的数值转换为字符型数值，并去掉后面补位的0
Lparameters lnNum
Private All
lnDecBak=Set('DECIMALS')
Set Decimals To 18
Do Case
Case Version(5)<700 &&VFP6及以下
lcNum=Transform(lnNum) &&VFP6.0时，如果小数部分一样会有问题，如9.2222，转换就变为9.222200000000001
Case Version(5)>=700 And Version(5)<900 &&VFP7、8
lcNum=Transform(lnNum)
If At('.',lcNum)>0
lnNumLen=Len(lcNum)
For I=lnNumLen To 1 Step -1
If !Substr(lcNum,I,1)=='0'
Exit
Endif
Endfor
lcNum=Left(lCNum,I)
Endif
Case Version(5)>=900 &&VFP9及以上
lcNum=Alltrim(Transform(lnNum),'0')
Endcase
Set Decimals To (lnDecBak)
Return lcNum
Endfunc