|
20231027之后的版本软件自带进制转换函数,支持2-16之前进制任意转换。
- StrBaseConvert(String Str, Int OldBase, Int NewBase) As String
- 说明:字符串进制转换。
- 参数:
- Str: 要转换的字符串。
- OldBase: 原进制,不小于2
- NewBase: 新的进制,不小于2
- 返回值:
- String , 转换后字符串。
复制代码
对于之前旧的版本,可以通过自定义函数实现转换,脚本如下:
- INT S=0,ZH=0,LH=0,SH=0,NSUM=0,i;
- string buff=StrUpper(Str);
- string LL;
- S=StrLen(buff);
- SH=S;
- FOR I=0 TO S
- SH=SH-1;
- LL=StrMid(buff,I,1);
- IF LL=="A"||LL=="B"||LL=="C"||LL=="D"||LL=="E"||LL=="F" THEN
- IF LL=="A" THEN
- ZH=10;
- endif
- IF LL=="B" THEN
- ZH=11;
- endif
- IF LL=="C" THEN
- ZH=12;
- endif
- IF LL=="D" THEN
- ZH=13;
- endif
- IF LL=="E" THEN
- ZH=14;
- endif
- IF LL=="F" THEN
- ZH=15;
- endif
- else
- ZH=StrTOINT(LL);
- endif
- LH=ZH*pow(16,SH);
- NSUM=NSUM+LH;
- NEXT
- return NSUM;
复制代码
形式参考:
|
|