精易模块 文本_是否为数字

荒城哥

精易模块 文本_是否为数字，这个方法只能判断文本是否是纯数字，有没有什么方法同时判断是不是数字(整数、小数..)

荒城哥

已经找到办法了， ，来源于：https://e.125.la/fun-1759.html

算法艺术家

  

子程序名	返回值类型	公开	备 注
文本_是否为数字或小数	逻辑型
参数名	类 型	参考	可空	数组	备 注
参_文本	文本型

变量名	类 型	静态	数组	备 注
i	整数型
Len	整数型
asc	整数型
小数点次数	整数型

Len ＝ 取文本长度 (参_文本)
如果真 (Len ＝ 0)
返回 (假)
计次循环首 (Len, i)
asc ＝ 取代码 (参_文本, i)
判断 (asc ＜ 48)  ' a=97  .=46 /=47
如果真 (asc ＝ 46)
小数点次数 ＝ 小数点次数 ＋ 1
如果真 (小数点次数 ＝ 1)
到循环尾 ()

返回 (假)
判断 (asc ＞ 57)  ' z=122
返回 (假)



计次循环尾 ()
返回 (真)

.版本 2<br /> <br /> .子程序 文本_是否为数字或小数, 逻辑型, 公开<br /> .参数 参_文本, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 Len, 整数型<br /> .局部变量 asc, 整数型<br /> .局部变量 小数点次数, 整数型<br /> <br /> <br /> Len ＝ 取文本长度 (参_文本)<br /> .如果真 (Len ＝ 0)<br />     返回 (假)<br /> .如果真结束<br /> .计次循环首 (Len, i)<br />     asc ＝ 取代码 (参_文本, i)<br />     .判断开始 (asc ＜ 48)  ' a=97  .=46 /=47<br />         .如果真 (asc ＝ 46)<br />             小数点次数 ＝ 小数点次数 ＋ 1<br />             .如果真 (小数点次数 ＝ 1)<br />                 到循环尾 ()<br />             .如果真结束<br /> <br />         .如果真结束<br />         返回 (假)<br />     .判断 (asc ＞ 57)  ' z=122<br />         返回 (假)<br />     .默认<br /> <br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> 返回 (真)

fire9

用正则吧 ^-?\d+(\.\d+)?$

BruceJoysky1987

寻找文本？文本_取右边？

林中道士

用正则

  

子程序名	返回值类型	公开	备 注
文本_是否为数字扩展	逻辑型
参数名	类 型	参考	可空	数组	备 注
待判断文本	文本型

变量名	类 型	静态	数组	备 注
正则表达式	文本型
正则对象	正则表达式类
匹配结果	逻辑型

正则表达式 ＝ "^[-+]?[0-9]*\.?[0-9]+$"  ' 匹配整数、小数、正数、负数
正则对象 ＝ 正则_创建 (正则表达式)
匹配结果 ＝ 正则_匹配 (正则对象, 待判断文本)
正则_销毁 (正则对象)
返回 (匹配结果)

.版本 2<br /> <br /> .子程序 文本_是否为数字扩展, 逻辑型<br /> .参数 待判断文本, 文本型<br /> <br /> .局部变量 正则表达式, 文本型<br /> .局部变量 正则对象, 正则表达式类<br /> .局部变量 匹配结果, 逻辑型<br /> <br /> 正则表达式 ＝ "^[-+]?[0-9]*\.?[0-9]+$"  ' 匹配整数、小数、正数、负数<br /> 正则对象 ＝ 正则_创建 (正则表达式)<br /> 匹配结果 ＝ 正则_匹配 (正则对象, 待判断文本)<br /> 正则_销毁 (正则对象)<br /> <br /> 返回 (匹配结果)