易语言如何识别文本是否全是数字

这里提供两种简单办法可以应对所有情况

.版本 2


.子程序 是否全部为数值, 逻辑型, , 此方法不完善，是数值返回真，不是返回假
.参数 数值文本, 文本型
.局部变量 文本数值, 文本型


' 到数值后，后面的“.0”会丢失了，如果仅 整数型 数值对比可用此方法
文本数值 ＝ 到文本 (到数值 (数值文本))
' 输出调试文本 (“转换：” ＋ 文本数值 ＋ “/原始：” ＋ 数值文本)
.如果真 (文本数值 ＝ 数值文本)
    返回 (真)
.如果真结束
返回 (假)


.子程序 是否全部为数值_Code, 逻辑型, , 此方法比较完善，是数值返回真，不是返回假
.参数 数值文本, 文本型
.局部变量 bin, 字节集
.局部变量 pos, 整数型
.局部变量 小数, 逻辑型


' 此方法比较完善，可以满足所有需求
bin ＝ 到字节集 (数值文本)
.计次循环首 (取字节集长度 (bin), pos)
    .如果真 (bin [pos] ＞ 47 且 bin [pos] ＜ 58)
        到循环尾 ()
    .如果真结束
    .如果真 (bin [pos] ＝ 45)  ' 负数
        .如果真 (pos ＝ 1)
            到循环尾 ()
        .如果真结束
        返回 (假)
    .如果真结束
    .如果真 (bin [pos] ≠ 46)  ' 小数
        返回 (假)
    .如果真结束
    .如果真 (小数)
        返回 (假)
    .如果真结束
    小数 ＝ 真
.计次循环尾 ()
返回 (真)