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

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

.版本 2

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

.参数 数值文本, 文本型

.局部变量 文本数值, 文本型

' 到数值后，后面的“.0”会丢失了，如果仅 整数型 数值对比可用此方法

文本数值 ＝ 到文本 (到数值 (数值文本))

' 输出调试文本 (“转换：” ＋ 文本数值 ＋ “/原始：” ＋ 数值文本)

.如果真 (文本数值 ＝ 数值文本)

返回 (真)

.如果真结束

返回 (假)

.子程序 是否全部为数值_Code, 逻辑型, , 此方法比较完善，是数值返回真，不是返回假

.参数 数值文本, 文本型

.局部变量 bin, 字节集

.局部变量 pos, 整数型

.局部变量 小数, 逻辑型

' 此方法比较完善，可以满足所有需求

bin ＝ 到字节集 (数值文本)

.计次循环首 (取字节集长度 (bin), pos)

.如果真 (bin [pos] ＞ 47 且 bin [pos] ＜ 58)

到循环尾 ()

.如果真结束

.如果真 (bin [pos] ＝ 45) ' 负数

.如果真 (pos ＝ 1)

到循环尾 ()

.如果真结束

返回 (假)

.如果真结束

.如果真 (bin [pos] ≠ 46) ' 小数

返回 (假)

.如果真结束

.如果真 (小数)

返回 (假)

.如果真结束

小数 ＝ 真

.计次循环尾 ()

返回 (真)