二进制/八进制/十进制/十六进制互换DLL

.如果真 (参数_被转进制 ＝ #二进制 且 参数_欲转进制 ＝ #十进制)
清除数组 (局部_获得文本)
.计次循环首 (取文本长度 (局部_欲转内容), 局部_循环计次)
局部_临时文本 ＝ 取文本中间 (局部_欲转内容, 局部_循环计次, 1)
加入成员 (局部_获得文本, 局部_临时文本)
.计次循环尾 ()
.计次循环首 (取数组成员数 (局部_获得文本), 局部_循环计次) ' ----------二进制转10进制
局部_二进制 ＝ 到长整数 (局部_获得文本 [局部_循环计次])
局部_十进制 ＝ 局部_十进制 ＋ 到长整数 (局部_二进制 × 求次方 (2, 取数组成员数 (局部_获得文本) － 局部_循环计次))
.计次循环尾 ()
局部_返回文本 ＝ 到文本 (局部_十进制)
' 调试输出 (“验证：　　二进制　转　　十进制：” ＋ 到文本 (参数_欲转内容) ＋ “|” ＋ 局部_返回文本)
.如果真结束
.如果真 (参数_被转进制 ＝ #八进制 且 参数_欲转进制 ＝ #十进制)
清除数组 (局部_获得文本)
.计次循环首 (取文本长度 (局部_欲转内容), 局部_循环计次)
局部_临时文本 ＝ 取文本中间 (局部_欲转内容, 局部_循环计次, 1)
加入成员 (局部_获得文本, 局部_临时文本)
.计次循环尾 ()
.计次循环首 (取数组成员数 (局部_获得文本), 局部_循环计次) ' ----------八进制转10进制
局部_八进制 ＝ 到长整数 (局部_获得文本 [局部_循环计次])
局部_十进制 ＝ 局部_十进制 ＋ 到长整数 (局部_八进制 × 求次方 (8, 取数组成员数 (局部_获得文本) － 局部_循环计次))
.计次循环尾 ()
局部_返回文本 ＝ 到文本 (局部_十进制)