文本转各种进制

憨憨问号

之前在论坛找到过汉字转2进制的源码

  

子程序名	返回值类型	公开	备 注
文本到二进制	文本型		将任意文字转化为2进制文本，返回转换后的结果
参数名	类 型	参考	可空	数组	备 注
文本	文本型				任意文本
分隔	逻辑型				转换为二进制后是否将每个字分隔开，假为不分，真为空格分开，默认为假

变量名	类 型	静态	数组	备 注
结果	文本型
长度	整数型
地址	整数型
i	整数型
ls	整数型

长度 ＝ 取文本长度 (文本)
ls ＝ 长度 × 8
如果真 (分隔)
ls ＝ ls ＋ 长度
结果 ＝ 取空白文本 (ls)
地址 ＝ 取变量数据地址 (结果)
计次循环首 (长度, i)
ls ＝ 取代码 (文本, i)
地址 ＝ 地址 ＋ 7
计次循环首 (8, )
置入 (地址, 选择 (位与 (ls, 1) ＝ 0, 16, 17))
ls ＝ 右移 (ls, 1)
地址 ＝ 地址 － 1
计次循环尾 ()
如果真 (分隔)
地址 ＝ 地址 ＋ 1
地址 ＝ 地址 ＋ 9
计次循环尾 ()
返回 (结果)

子程序名	返回值类型	公开	备 注
二进制到文本	文本型		将二进制文本转换到文字，返回转换后的结果
参数名	类 型	参考	可空	数组	备 注
文本	文本型				二进制文本

变量名	类 型	静态	数组	备 注
结果	文本型
长度	整数型
地址	整数型
计次	整数型
临时	整数型
a	整数型
b	整数型
c	整数型

长度 ＝ 取文本长度 (文本)
临时 ＝ 取代码 (文本, 9)
结果 ＝ 取空白文本 (长度 ＼ 选择 (临时 ≠ 32, 8, 9))
地址 ＝ 取变量数据地址 (结果)
a ＝ 128
计次循环首 (长度, 计次)
临时 ＝ 取代码 (文本, 计次)
如果真 (临时 ≠ 32)
如果真 (临时 ＝ 49)
b ＝ 位或 (b, a)
a ＝ 右移 (a, 1)
c ＝ c ＋ 1

如果真 (c ＝ 8)
写到内存 (b, 地址, 1)
地址 ＝ 地址 ＋ 1
a ＝ 128
b ＝ 0
c ＝ 0

计次循环尾 ()
返回 (结果)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 文本到二进制, 文本型, 公开, 将任意文字转化为2进制文本，返回转换后的结果<br /> .参数 文本, 文本型, , 任意文本<br /> .参数 分隔, 逻辑型, 可空, 转换为二进制后是否将每个字分隔开，假为不分，真为空格分开，默认为假<br /> .局部变量 结果, 文本型<br /> .局部变量 长度, 整数型<br /> .局部变量 地址, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 ls, 整数型<br /> <br /> 长度 ＝ 取文本长度 (文本)<br /> ls ＝ 长度 × 8<br /> .如果真 (分隔)<br />     ls ＝ ls ＋ 长度<br /> .如果真结束<br /> 结果 ＝ 取空白文本 (ls)<br /> 地址 ＝ 取变量数据地址 (结果)<br /> .计次循环首 (长度, i)<br />     ls ＝ 取代码 (文本, i)<br />     地址 ＝ 地址 ＋ 7<br />     .计次循环首 (8, )<br />         置入 (地址, 选择 (位与 (ls, 1) ＝ 0, 16, 17))<br />         ls ＝ 右移 (ls, 1)<br />         地址 ＝ 地址 － 1<br />     .计次循环尾 ()<br />     .如果真 (分隔)<br />         地址 ＝ 地址 ＋ 1<br />     .如果真结束<br />     地址 ＝ 地址 ＋ 9<br /> .计次循环尾 ()<br /> 返回 (结果)<br /> <br /> .子程序 二进制到文本, 文本型, 公开, 将二进制文本转换到文字，返回转换后的结果<br /> .参数 文本, 文本型, , 二进制文本<br /> .局部变量 结果, 文本型<br /> .局部变量 长度, 整数型<br /> .局部变量 地址, 整数型<br /> .局部变量 计次, 整数型<br /> .局部变量 临时, 整数型<br /> .局部变量 a, 整数型<br /> .局部变量 b, 整数型<br /> .局部变量 c, 整数型<br /> <br /> 长度 ＝ 取文本长度 (文本)<br /> 临时 ＝ 取代码 (文本, 9)<br /> 结果 ＝ 取空白文本 (长度 ＼ 选择 (临时 ≠ 32, 8, 9))<br /> 地址 ＝ 取变量数据地址 (结果)<br /> a ＝ 128<br /> .计次循环首 (长度, 计次)<br />     临时 ＝ 取代码 (文本, 计次)<br />     .如果真 (临时 ≠ 32)<br />         .如果真 (临时 ＝ 49)<br />             b ＝ 位或 (b, a)<br />         .如果真结束<br />         a ＝ 右移 (a, 1)<br />         c ＝ c ＋ 1<br />     .如果真结束<br /> <br />     .如果真 (c ＝ 8)<br />         写到内存 (b, 地址, 1)<br />         地址 ＝ 地址 ＋ 1<br />         a ＝ 128<br />         b ＝ 0<br />         c ＝ 0<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (结果)

以上是文本转2进制的代码
那么三进制，四进制的转换呢？论坛找了好像没有类似的代码，有大神吗？

7ian

论坛很多，说明你还不会找
2个官方API实现2-36进制互转，支持到64位长整数
https://bbs.125.la/forum.php?mod=viewthread&tid=14827786
(出处: 精易论坛)


补充内容 (2024-10-29 10:23):
可以吧任意文本转成16进制，然后再转2进制