易语言源码任意进制转换

2390517751

  

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

变量名	类 型	静态	数组	备 注
计次变量
临时数值
欲转换文本	文本型

如果真 (被转换进制 ＝ 转换的进制)
返回 (被转换文本)
计次循环首 (取文本长度 (被转换文本), 计次变量)  ' 整数转换开始
临时数值 ＝ (寻找文本 (“0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ”, 取文本中间 (被转换文本, 计次变量, 1), , 真) － 1) × 求次方 (被转换进制, 取文本长度 (被转换文本) － 计次变量) ＋ 临时数值
计次循环尾 ()
判断循环首 (临时数值 ＞ 转换的进制 － 1)
欲转换文本 ＝ 取文本中间 (“0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ”, 到数值 (到文本 (临时数值 ％ 转换的进制)) ＋ 1, 1) ＋ 欲转换文本
临时数值 ＝ 取整 (临时数值 ÷ 转换的进制)
判断循环尾 ()
欲转换文本 ＝ 取文本中间 (“0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ”, 临时数值 ＋ 1, 1) ＋ 欲转换文本  ' 整数转换结束
返回 (欲转换文本)

.版本 2<br /> <br /> .子程序 进制转换, 文本型<br /> .参数 被转换文本, 文本型<br /> .参数 被转换进制, 整数型<br /> .参数 转换的进制, 整数型<br /> .局部变量 计次变量<br /> .局部变量 临时数值<br /> .局部变量 欲转换文本, 文本型<br /> <br /> .如果真 (被转换进制 ＝ 转换的进制)<br />     返回 (被转换文本)<br /> .如果真结束<br /> .计次循环首 (取文本长度 (被转换文本), 计次变量)  ' 整数转换开始<br />     临时数值 ＝ (寻找文本 (“0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ”, 取文本中间 (被转换文本, 计次变量, 1), , 真) － 1) × 求次方 (被转换进制, 取文本长度 (被转换文本) － 计次变量) ＋ 临时数值<br /> .计次循环尾 ()<br /> .判断循环首 (临时数值 ＞ 转换的进制 － 1)<br />     欲转换文本 ＝ 取文本中间 (“0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ”, 到数值 (到文本 (临时数值 ％ 转换的进制)) ＋ 1, 1) ＋ 欲转换文本<br />     临时数值 ＝ 取整 (临时数值 ÷ 转换的进制)<br /> .判断循环尾 ()<br /> 欲转换文本 ＝ 取文本中间 (“0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ”, 临时数值 ＋ 1, 1) ＋ 欲转换文本  ' 整数转换结束<br /> 返回 (欲转换文本)

tianxi

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

lxwan

感谢楼主的无私贡献精神，先学习了。