易语言进制转换：[4]任意进制转十进制

1、源码：

.版本 2

.子程序 任意进制转十进制, 整数型

.参数 文本, 文本型

.参数 进制, 整数型

.局部变量 i, 整数型

.局部变量 十进制, 整数型

.计次循环首 (取文本长度 (文本), i)

    十进制 ＝ 十进制 × 进制 ＋ 寻找文本 (“0123456789ABCDEF”, 取文本中间 (到大写 (文本), i, 1), , 假) － 1

.计次循环尾 ()

返回 (十进制)

2、实例：