易语言二进制转十进制

.版本 2

.子程序 二进制转十进制, 整数型
.参数 二进制字符串, 文本型
.局部变量 长度, 整数型
.局部变量 指针, 整数型
.局部变量 十进制数, 整数型

长度 ＝ 取文本长度 (二进制字符串)
.计次循环首 (长度, 指针)
十进制数 ＝ 十进制数 ＋ 到整数 (取文本中间 (二进制字符串, 长度 － 指针 ＋ 1, 1)) × 求次方 (2, 指针 － 1)
.计次循环尾 ()
返回 (十进制数)

https://item.taobao.com/item.htm?spm=a21dvs.23580594.0.0.47b32c1bCv7Pg0&ft=t&id=601009585329