子程序 取十进制, 整数型, , 将非十进制的标准格式文本转换成十进制整数值
.参数 欲转换的值, 文本型, , 欲转换的值，文本型！
.参数 数值类型, 整数型, 可空, 0，#十六进制；1，#十进制（默认）；
2，#八进制；
3，#二进制
.局部变量 s, 整数型, , , 最终结果
.局部变量 a, 整数型, , , 中间变量
.局部变量 b, 整数型, , , 中间变量
.局部变量 c, 文本型, , , 中间变量
.局部变量 d, 整数型, , , 中间变量
欲转换的值 ＝ 到小写 (欲转换的值)
.如果真 (是否为空 (数值类型))
数值类型 ＝ 1
.如果真结束
s ＝ 0
.判断开始 (数值类型 ＝ 0)
a ＝ 取文本长度 (欲转换的值)
.变量循环首 (1, a, 1, b)
c ＝ 取文本中间 (欲转换的值, a － b ＋ 1, 1)
.如果真 (取代码 (c, ) ≤ 取代码 (“f”, ) 且 取代码 (c, ) ≥ 取代码 (“a”, ) 或 取代码 (c, ) ≤ 取代码 (“F”, ) 且 取代码 (c, ) ≥ 取代码 (“A”, ))
.如果真 (取代码 (c, ) ≥ 取代码 (“A”, ) 且 取代码 (c, ) ≤ 取代码 (“F”, ))
d ＝ 取代码 (c, ) － 取代码 (“A”, ) ＋ 10
.如果真结束
.如果真 (取代码 (c, ) ≥ 取代码 (“a”, ) 且 取代码 (c, ) ≤ 取代码 (“f”, ))
d ＝ 取代码 (c, ) － 取代码 (“a”, ) ＋ 10
.如果真结束
.如果真结束
.如果真 (取代码 (c, ) ≤ 取代码 (“9”, ) 且 取代码 (c, ) ≥ 取代码 (“0”, ))
d ＝ 到数值 (c)
.如果真结束
s ＝ s ＋ 求次方 (16, b － 1) × d
.变量循环尾 ()
.默认
.判断结束
.判断开始 (数值类型 ＝ 1)
s ＝ 到数值 (欲转换的值)
.默认
.判断结束
.判断开始 (数值类型 ＝ 2)
a ＝ 取文本长度 (欲转换的值)
.变量循环首 (1, a, 1, b)
c ＝ 取文本中间 (欲转换的值, a － b ＋ 1, 1)
.如果真 (取代码 (c, ) ≤ 取代码 (“7”, ) 且 取代码 (c, ) ≥ 取代码 (“0”, ))
d ＝ 到数值 (c)
.如果真结束
s ＝ s ＋ 求次方 (8, b － 1) × d
.变量循环尾 ()
.默认
.判断结束
.判断开始 (数值类型 ＝ 3)
a ＝ 取文本长度 (欲转换的值)
.变量循环首 (1, a, 1, b)
c ＝ 取文本中间 (欲转换的值, a － b ＋ 1, 1)
.如果真 (取代码 (c, ) ≤ 取代码 (“1”, ) 且 取代码 (c, ) ≥ 取代码 (“0”, ))
d ＝ 到数值 (c)
.如果真结束
s ＝ s ＋ 求次方 (2, b － 1) × d
.变量循环尾 ()
.默认
.判断结束
返回 (s)
.子程序 十六进制转文本, 文本型, , By:泪闯天涯
.参数 欲转换文本, 文本型
.局部变量 Bin, 字节集
.局部变量 n, 整数型
.局部变量 i, 整数型
n ＝ 取文本长度 (欲转换文本) ÷ 2
Bin ＝ 取空白字节集 (n)
.计次循环首 (n, i)
Bin [i] ＝ 取十进制 (取文本中间 (欲转换文本, (i － 1) × 2 ＋ 1, 2), 0)
.计次循环尾 ()
返回 (到文本 (Bin))
.子程序 转十六进制文本, 文本型, , By:泪闯天涯
.参数 欲转换文本, 文本型
.局部变量 Bin, 字节集
.局部变量 str, 文本型
.局部变量 i, 整数型
Bin ＝ 到字节集 (欲转换文本)
.计次循环首 (取字节集长度 (Bin), i)
str ＝ str ＋ 取文本右边 (“00” ＋ 取十六进制文本 (Bin [i]), 2)
.计次循环尾 ()
返回 (str)
