【备忘小源码】任意进制之间转换

已注销370852

  

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

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

调试输出 (进制转换 (“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

子程序名	返回值类型	公开	备 注
进制转换	文本型
参数名	类 型	参考	可空	数组	备 注
cs_转换源	文本型
cs_转换源进制	整数型
cs_转换到进制	整数型

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

如果 (是否为空 (cs_转换源进制) 或 cs_转换源进制 ＝ 10)
jb_转换源10进制 ＝ 到整数 (cs_转换源)
jb_长度 ＝ 取文本长度 (cs_转换源)
计次循环首 (jb_长度, jb_计次)
jb_文本 ＝ 取文本中间 (cs_转换源, jb_长度 － jb_计次 ＋ 1, 1)
值对换 (jb_文本, jb_整数)
jb_转换源10进制 ＝ jb_转换源10进制 ＋ 求次方 (cs_转换源进制, jb_计次 － 1) × jb_整数
计次循环尾 ()
' 调试输出 (“先转换到10进制：”, jb_转换源10进制)
如果 (是否为空 (cs_转换到进制) 或 cs_转换到进制 ＝ 10)
返回 (到文本 (jb_转换源10进制))
循环判断首 ()
jb_整数 ＝ jb_转换源10进制 ％ cs_转换到进制
jb_转换源10进制 ＝ jb_转换源10进制 ＼ cs_转换到进制
值对换 (jb_文本, jb_整数, 真)
jb_转换结果 ＝ jb_文本 ＋ jb_转换结果
循环判断尾 (jb_转换源10进制 ≠ 0)
返回 (jb_转换结果)

子程序名	返回值类型	公开	备 注
值对换			用于ABCDEFG和对应数值之间转换
参数名	类 型	参考	可空	数组	备 注
cs_文本参数	文本型
cs_整数参数	整数型
cs_反向	逻辑型

变量名	类 型	静态	数组	备 注
jb_ANSI码	整数型

如果 (cs_反向)
如果 (cs_整数参数 ≥ 0 且 cs_整数参数 ≤ 9)
cs_文本参数 ＝ 到文本 (cs_整数参数)
如果 (cs_整数参数 ≥ 10 且 cs_整数参数 ≤ 35)
cs_文本参数 ＝ 字符 (cs_整数参数 ＋ 55)
cs_文本参数 ＝ “$”


jb_ANSI码 ＝ 取代码 (cs_文本参数, )
如果 (jb_ANSI码 ≥ 48 且 jb_ANSI码 ≤ 57)  ' A-Z
cs_整数参数 ＝ jb_ANSI码 － 48
如果 (jb_ANSI码 ≥ 65 且 jb_ANSI码 ≤ 90)
cs_整数参数 ＝ jb_ANSI码 － 55
cs_整数参数 ＝ 0

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 /> .子程序 进制转换, 文本型<br /> .参数 cs_转换源, 文本型<br /> .参数 cs_转换源进制, 整数型, 可空<br /> .参数 cs_转换到进制, 整数型, 可空<br /> .局部变量 jb_转换源10进制, 整数型<br /> .局部变量 jb_长度, 整数型<br /> .局部变量 jb_计次, 整数型<br /> .局部变量 jb_文本, 文本型<br /> .局部变量 jb_整数, 整数型<br /> .局部变量 jb_转换结果, 文本型<br /> <br /> .如果 (是否为空 (cs_转换源进制) 或 cs_转换源进制 ＝ 10)<br />     jb_转换源10进制 ＝ 到整数 (cs_转换源)<br /> .否则<br />     jb_长度 ＝ 取文本长度 (cs_转换源)<br />     .计次循环首 (jb_长度, jb_计次)<br />         jb_文本 ＝ 取文本中间 (cs_转换源, jb_长度 － jb_计次 ＋ 1, 1)<br />         值对换 (jb_文本, jb_整数)<br />         jb_转换源10进制 ＝ jb_转换源10进制 ＋ 求次方 (cs_转换源进制, jb_计次 － 1) × jb_整数<br />     .计次循环尾 ()<br /> .如果结束<br /> ' 调试输出 (“先转换到10进制：”, jb_转换源10进制)<br /> .如果 (是否为空 (cs_转换到进制) 或 cs_转换到进制 ＝ 10)<br />     返回 (到文本 (jb_转换源10进制))<br /> .否则<br />     .循环判断首 ()<br />         jb_整数 ＝ jb_转换源10进制 ％ cs_转换到进制<br />         jb_转换源10进制 ＝ jb_转换源10进制 ＼ cs_转换到进制<br />         值对换 (jb_文本, jb_整数, 真)<br />         jb_转换结果 ＝ jb_文本 ＋ jb_转换结果<br />     .循环判断尾 (jb_转换源10进制 ≠ 0)<br />     返回 (jb_转换结果)<br /> .如果结束<br /> <br /> <br /> .子程序 值对换, , , 用于ABCDEFG和对应数值之间转换<br /> .参数 cs_文本参数, 文本型, 参考<br /> .参数 cs_整数参数, 整数型, 参考<br /> .参数 cs_反向, 逻辑型, 可空<br /> .局部变量 jb_ANSI码, 整数型<br /> <br /> .如果 (cs_反向)<br />     .如果 (cs_整数参数 ≥ 0 且 cs_整数参数 ≤ 9)<br />         cs_文本参数 ＝ 到文本 (cs_整数参数)<br />     .否则<br />         .如果 (cs_整数参数 ≥ 10 且 cs_整数参数 ≤ 35)<br />             cs_文本参数 ＝ 字符 (cs_整数参数 ＋ 55)<br />         .否则<br />             cs_文本参数 ＝ “$”<br />         .如果结束<br /> <br />     .如果结束<br /> <br /> .否则<br />     jb_ANSI码 ＝ 取代码 (cs_文本参数, )<br />     .如果 (jb_ANSI码 ≥ 48 且 jb_ANSI码 ≤ 57)  ' A-Z<br />         cs_整数参数 ＝ jb_ANSI码 － 48<br />     .否则<br />         .如果 (jb_ANSI码 ≥ 65 且 jb_ANSI码 ≤ 90)<br />             cs_整数参数 ＝ jb_ANSI码 － 55<br />         .否则<br />             cs_整数参数 ＝ 0<br />         .如果结束<br /> <br />     .如果结束<br /> <br /> .如果结束

234111

谢谢分享，学习一下先

tianxi

也不过最多36进制，能62进制？100进制？

554755303

支持下6666666666

已注销370852

情雅 发表于 2017-10-1 10:53
谢谢分享,好东西

https://bbs.125.la/forum.php?mod=viewthread&tid=14074338这个是优化的

情雅

谢谢分享,好东西