【备忘小源码】任意进制之间转换(转载;优化)

已注销370852

昨天写了这个：https://bbs.125.la/forum.php?mod=viewthread&tid=14074191
然后突然看到这个贴子：https://bbs.125.la/forum.php?mod=viewthread&tid=14032982
很妙，用0-Z巧妙的按位置来表示值。
非常妙，我写的那个里面，还复杂判断A-Z的ANSI码……
优化了一份：

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

调试输出 (进制转换 (“123”, 10, 2))  ' 1111011
调试输出 (进制转换 (“123”, 10, 16))  ' 7B
调试输出 (进制转换 (“123”, 10, 32))  ' 3R
调试输出 (进制转换 (“111001000”, 2, 10))  ' 456
调试输出 (进制转换 (“FFFF”, 16, 10))  ' 65535
调试输出 (进制转换 (“10101010”, 2, 16))  ' AA
调试输出 (进制转换 (“1024”, 10, 8))  ' 2000

子程序名	返回值类型	公开	备 注
进制转换	文本型		有0-Z之外的值，将计算错误，也就是最大为36(10+26)进制
参数名	类 型	参考	可空	数组	备 注
cs_转换源	文本型
cs_转换源进制	整数型
cs_转换到进制	整数型

变量名	类 型	静态	数组	备 注
jb_基数	文本型
jb_长度	整数型
jb_计次	整数型
jb_转换源10进制	整数型
jb_转换结果	文本型

jb_基数 ＝ “0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ”
如果 (是否为空 (cs_转换源进制) 或 cs_转换源进制 ＝ 10)
jb_转换源10进制 ＝ 到整数 (cs_转换源)
jb_长度 ＝ 取文本长度 (cs_转换源)
计次循环首 (jb_长度, jb_计次)
jb_转换源10进制 ＝ jb_转换源10进制 ＋ 求次方 (cs_转换源进制, jb_长度 － jb_计次) * (寻找文本 (jb_基数, 取文本中间 (cs_转换源, jb_计次, 1), , 真) － 1)  ' 各位值*位权 得出10进制数
计次循环尾 ()

如果 (是否为空 (cs_转换到进制) 或 cs_转换到进制 ＝ 10)
jb_转换结果 ＝ 到文本 (jb_转换源10进制)
循环判断首 ()
jb_转换结果 ＝ 取文本中间 (jb_基数, jb_转换源10进制 ％ cs_转换到进制 ＋ 1, 1) ＋ jb_转换结果  ' 除X取余法
jb_转换源10进制 ＝ jb_转换源10进制 ＼ cs_转换到进制
循环判断尾 (jb_转换源10进制 ≠ 0)
返回 (jb_转换结果)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 调试输出 (进制转换 (“123”, 10, 2))  ' 1111011<br /> 调试输出 (进制转换 (“123”, 10, 16))  ' 7B<br /> 调试输出 (进制转换 (“123”, 10, 32))  ' 3R<br /> 调试输出 (进制转换 (“111001000”, 2, 10))  ' 456<br /> 调试输出 (进制转换 (“FFFF”, 16, 10))  ' 65535<br /> 调试输出 (进制转换 (“10101010”, 2, 16))  ' AA<br /> 调试输出 (进制转换 (“1024”, 10, 8))  ' 2000<br /> <br /> .子程序 进制转换, 文本型, , 有0-Z之外的值，将计算错误，也就是最大为36(10+26)进制<br /> .参数 cs_转换源, 文本型<br /> .参数 cs_转换源进制, 整数型, 可空<br /> .参数 cs_转换到进制, 整数型, 可空<br /> .局部变量 jb_基数, 文本型<br /> .局部变量 jb_长度, 整数型<br /> .局部变量 jb_计次, 整数型<br /> .局部变量 jb_转换源10进制, 整数型<br /> .局部变量 jb_转换结果, 文本型<br /> <br /> jb_基数 ＝ “0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ”<br /> .如果 (是否为空 (cs_转换源进制) 或 cs_转换源进制 ＝ 10)<br />     jb_转换源10进制 ＝ 到整数 (cs_转换源)<br /> .否则<br />     jb_长度 ＝ 取文本长度 (cs_转换源)<br />     .计次循环首 (jb_长度, jb_计次)<br />         jb_转换源10进制 ＝ jb_转换源10进制 ＋ 求次方 (cs_转换源进制, jb_长度 － jb_计次) * (寻找文本 (jb_基数, 取文本中间 (cs_转换源, jb_计次, 1), , 真) － 1)  ' 各位值*位权 得出10进制数<br />     .计次循环尾 ()<br /> .如果结束<br /> <br /> .如果 (是否为空 (cs_转换到进制) 或 cs_转换到进制 ＝ 10)<br />     jb_转换结果 ＝ 到文本 (jb_转换源10进制)<br /> .否则<br />     .循环判断首 ()<br />         jb_转换结果 ＝ 取文本中间 (jb_基数, jb_转换源10进制 ％ cs_转换到进制 ＋ 1, 1) ＋ jb_转换结果  ' 除X取余法<br />         jb_转换源10进制 ＝ jb_转换源10进制 ＼ cs_转换到进制<br />     .循环判断尾 (jb_转换源10进制 ≠ 0)<br /> .如果结束<br /> 返回 (jb_转换结果)

554755303

这个可以有。给你顶一个

wgqxj

谢谢分享  学习

情雅

情雅 发表于 2017-10-1 17:53
.版本 2  .子程序 进制_2到62正整数互换2, 文本型, , 返回文本为空,可调用错误信息参数,查看错误原因。进制 ...

加上小写字母可以转换到62进制，同时，存在非法字符，返回空文本。进制转换不在2-62间，调整进制

情雅

.版本 2  .子程序 进制_2到62正整数互换2, 文本型, , 返回文本为空,可调用错误信息参数,查看错误原因。进制字符顺序：数字、大写字、,小写字母。 .参数 待转换文本, 文本型 .参数 转换前进制, 整数型, 可空, 范围:2-26,小于2按2计,大于62,按62计 .参数 转换后进制, 整数型, 可空, 范围:2-26,小于2按2计,大于62,按62计 .参数 错误信息, 文本型, 可空 .局部变量 基数, 文本型 .局部变量 文本长度, 整数型 .局部变量 计次, 整数型 .局部变量 十进制数, 整数型 .局部变量 转换结果, 文本型 .局部变量 位置, 整数型  .如果真 (转换前进制 ＜ 2)     转换前进制 ＝ 2 .如果真结束 .如果真 (转换后进制 ＜ 2)     转换后进制 ＝ 2 .如果真结束 .如果真 (转换前进制 ＞ 62)     转换前进制 ＝ 62 .如果真结束 .如果真 (转换后进制 ＞ 62)     转换后进制 ＝ 62 .如果真结束 基数 ＝ “0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz” 文本长度 ＝ 取文本长度 (待转换文本) .如果真 (文本长度 ＝ 0)     错误信息 ＝ 错误信息 ＋ “2到62正整数转换2时,错误码1,待转换文本是空文本” ＋ #换行符     返回 (“”) .如果真结束  .如果 (是否为空 (转换前进制) 或 转换前进制 ＝ 10)     .计次循环首 (文本长度, 计次)         位置 ＝ 寻找文本 (基数, 取文本中间 (待转换文本, 计次, 1), , 真)         .如果 (位置 ＝ -1)             错误信息 ＝ 错误信息 ＋ “2到62正整数转换2时,错误码2,存在非法字符,即待转换文本含有非数字、非大写字母、非小写字母的字符存在” ＋ #换行符             返回 (“”)         .否则             .如果 (位置 ＞ 转换前进制)                 错误信息 ＝ 错误信息 ＋ “2到62正整数转换2时,错误码3,存在大于转换前进制字符存在,即待转换文本含有大于转换前进制的字符存在” ＋ #换行符                 返回 (“”)             .否则                 十进制数 ＝ 十进制数 ＋ 求次方 (转换前进制, 文本长度 － 计次) × (位置 － 1)  ' 各位值*位权 得出10进制数             .如果结束          .如果结束      .计次循环尾 ()      十进制数 ＝ 到整数 (待转换文本) .否则     .计次循环首 (文本长度, 计次)         位置 ＝ 寻找文本 (基数, 取文本中间 (待转换文本, 计次, 1), , 真)         .如果 (位置 ＝ -1)             错误信息 ＝ 错误信息 ＋ “2到62正整数转换2时,错误码4,存在非法字符,即待转换文本含有非数字、非大写字母、非小写字母的字符存在” ＋ #换行符             返回 (“”)         .否则             .如果 (位置 ＞ 转换前进制)                 错误信息 ＝ 错误信息 ＋ “2到62正整数转换2时,错误码5,存在大于转换前进制字符存在,即待转换文本含有大于转换前进制的字符存在” ＋ #换行符                 返回 (“”)             .否则                 十进制数 ＝ 十进制数 ＋ 求次方 (转换前进制, 文本长度 － 计次) × (位置 － 1)  ' 各位值*位权 得出10进制数             .如果结束          .如果结束      .计次循环尾 () .如果结束 .如果 (是否为空 (转换后进制) 或 转换后进制 ＝ 10)     转换结果 ＝ 到文本 (十进制数) .否则     .循环判断首 ()         转换结果 ＝ 取文本中间 (基数, 十进制数 ％ 转换后进制 ＋ 1, 1) ＋ 转换结果  ' 除X取余法         十进制数 ＝ 十进制数 ＼ 转换后进制     .循环判断尾 (十进制数 ≠ 0) .如果结束  返回 (转换结果)

xiayu666

可以的老铁

镇坛道德标杆

https://bbs.125.la/forum.php?mod ... 14061352&extra=

论坛最强最优雅，没有之一，任意MAP可以自行修改。

顺便，精易ec的进制转换都很辣鸡，新增的那个简直辣眼睛，启蒙水平都不到。

已注销370852

爱生活爱大乔 发表于 2017-9-30 16:07
https://bbs.125.la/forum.php?mod=viewthread&tid=14071626&extra=page%3D1
作业区的这个题目啊

你说的是36+26？
我知道你的意思了，
你把

jb_基数 ＝ “0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ”

改为：

jb_基数 ＝ “0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcde【……这里面补齐，或者小写的在前面】”

爱生活爱大乔

如枫随风TYZ 发表于 2017-9-30 15:56
什么62位？

https://bbs.125.la/forum.php?mod=viewthread&tid=14071626&extra=page%3D1
作业区的这个题目啊

已注销370852

爱生活爱大乔 发表于 2017-9-30 15:26
我的基础太差了 完全理解不了啊，62位可以实现不

什么62位？

爱生活爱大乔

我的基础太差了 完全理解不了啊，62位可以实现不