关于千分位格式

xxx2161270

判断一个文本是否是千分位格式或者整数  比如“32,645,524” 或“564”  或“1,287” 都返回真  不符合的返回假  

zainex

可以增加一个判断条件:

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
文本	文本型		0
正则	正则表达式
数	整数型

文本 ＝ { “0”, “025”, “32,645,524”, “564”, “1,287”, “9527” }
正则.创建 (“[0-9]{1,3}(,[0-9]{3})*”, )
计次循环首 (取数组成员数 (文本), 数)
如果 (正则.匹配 (文本 [数]) ＝ 真 且 取文本左边 (文本 [数], 1) ≠ “0”)
调试输出 (文本 [数], 真)
调试输出 (文本 [数], 假)

计次循环尾 ()

i支持库列表	支持库注释
RegEx	正则表达式支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 RegEx<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 文本, 文本型, , "0"<br /> .局部变量 正则, 正则表达式<br /> .局部变量 数, 整数型<br /> <br /> 文本 ＝ { “0”, “025”, “32,645,524”, “564”, “1,287”, “9527” }<br /> 正则.创建 (“[0-9]{1,3}(,[0-9]{3})*”, )<br /> .计次循环首 (取数组成员数 (文本), 数)<br />     .如果 (正则.匹配 (文本 [数]) ＝ 真 且 取文本左边 (文本 [数], 1) ≠ “0”)<br />         调试输出 (文本 [数], 真)<br />     .否则<br />         调试输出 (文本 [数], 假)<br />     .如果结束<br /> <br /> .计次循环尾 ()

开始运行被调试程序
* “0” | 假
* “025” | 假
* “32,645,524” | 真
* “564” | 真
* “1,287” | 真
* “9527” | 假
被调试易程序运行完毕

zainex

正则匹配:

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
文本	文本型		0
正则	正则表达式
数	整数型

文本 ＝ { “32,645,524”, “564”, “1,287”, “9527” }
正则.创建 (“[0-9]{1,3}(,[0-9]{3})*”, )
计次循环首 (取数组成员数 (文本), 数)
如果 (正则.匹配 (文本 [数]) ＝ 真)
调试输出 (文本 [数], 真)
调试输出 (文本 [数], 假)

计次循环尾 ()

i支持库列表	支持库注释
RegEx	正则表达式支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 RegEx<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 文本, 文本型, , "0"<br /> .局部变量 正则, 正则表达式<br /> .局部变量 数, 整数型<br /> <br /> 文本 ＝ { “32,645,524”, “564”, “1,287”, “9527” }<br /> 正则.创建 (“[0-9]{1,3}(,[0-9]{3})*”, )<br /> .计次循环首 (取数组成员数 (文本), 数)<br />     .如果 (正则.匹配 (文本 [数]) ＝ 真)<br />         调试输出 (文本 [数], 真)<br />     .否则<br />         调试输出 (文本 [数], 假)<br />     .如果结束<br /> <br /> .计次循环尾 ()

开始运行被调试程序
* “32,645,524” | 真
* “564” | 真
* “1,287” | 真
* “9527” | 假
被调试易程序运行完毕

qcby

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口1

子程序名	返回值类型	公开	备 注
_窗口1_创建完毕

变量名	类 型	静态	数组	备 注
测试数据	文本型		8
i	整数型

测试数据 [1] ＝ “32,645,524”
测试数据 [2] ＝ “564”
测试数据 [3] ＝ “1,287”
测试数据 [4] ＝ “12,87”
测试数据 [5] ＝ “1,287,45”
测试数据 [6] ＝ “abc”
测试数据 [7] ＝ “1,234,567,890”
测试数据 [8] ＝ “,123”
计次循环首 (取数组下标 (测试数据, ), i)
调试输出 (“测试数据: ”, 测试数据 [i], “ 实际结果: ”, 是千分位格式或整数 (测试数据 [i]))
计次循环尾 ()

子程序名	返回值类型	公开	备 注
是千分位格式或整数	逻辑型
参数名	类 型	参考	可空	数组	备 注
文本	文本型

变量名	类 型	静态	数组	备 注
长度	整数型
i	整数型
字符	文本型
逗号位置	整数型
剩余部分	文本型

长度 ＝ 取文本长度 (文本)
如果 (长度 ＝ 0)
返回 (假)


' 检查纯数字情况
如果 (是否为纯数字 (文本))
返回 (真)


' 检查千分位格式
逗号位置 ＝ 倒找文本 (文本, “,”, , 假)
判断循环首 (逗号位置 ≠ -1)
' 检查逗号后是否是3位数字
如果 (长度 － 逗号位置 ≠ 3)
返回 (假)



' 检查逗号后的3位是否为数字
计次循环首 (3, i)
字符 ＝ 取文本中间 (文本, 逗号位置 ＋ i, 1)
如果 (字符 ＜ “0” 或 字符 ＞ “9”)
返回 (假)



计次循环尾 ()
' 更新剩余部分
剩余部分 ＝ 取文本左边 (文本, 逗号位置 － 1)
' 检查剩余部分是否有其他逗号
如果 (倒找文本 (剩余部分, “,”, , 假) ≠ -1)
' 如果有逗号，则剩余部分长度必须正好是3位数字
如果 (取文本长度 (剩余部分) ＞ 1)
返回 (真)



' 如果没有逗号，则剩余部分可以是1-3位数字
如果 (取文本长度 (剩余部分) ＜ 1 或 取文本长度 (剩余部分) ＞ 3)
返回 (假)




文本 ＝ 剩余部分
长度 ＝ 逗号位置 － 1
逗号位置 ＝ 倒找文本 (文本, “,”, , 假)
判断循环尾 ()
' 检查剩余部分是否为纯数字
返回 (是否为纯数字 (文本))

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

变量名	类 型	静态	数组	备 注
i	整数型
字符	文本型

计次循环首 (取文本长度 (文本), i)
字符 ＝ 取文本中间 (文本, i, 1)
如果 (字符 ＜ “0” 或 字符 ＞ “9”)
返回 (假)



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

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_窗口1<br /> <br /> .子程序 _窗口1_创建完毕<br /> .局部变量 测试数据, 文本型, , "8"<br /> .局部变量 i, 整数型<br /> <br /> <br /> <br /> 测试数据 [1] ＝ “32,645,524”<br /> 测试数据 [2] ＝ “564”<br /> 测试数据 [3] ＝ “1,287”<br /> 测试数据 [4] ＝ “12,87”<br /> 测试数据 [5] ＝ “1,287,45”<br /> 测试数据 [6] ＝ “abc”<br /> 测试数据 [7] ＝ “1,234,567,890”<br /> 测试数据 [8] ＝ “,123”<br /> <br /> .计次循环首 (取数组下标 (测试数据, ), i)<br /> <br />     调试输出 (“测试数据: ”, 测试数据 <i>, “ 实际结果: ”, 是千分位格式或整数 (测试数据 <i>))<br /> <br /> .计次循环尾 ()<br /> <br /> <br /> <br /> .子程序 是千分位格式或整数, 逻辑型, 公开<br /> .参数 文本, 文本型<br /> .局部变量 长度, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 字符, 文本型<br /> .局部变量 逗号位置, 整数型<br /> .局部变量 剩余部分, 文本型<br /> <br /> 长度 ＝ 取文本长度 (文本)<br /> .如果 (长度 ＝ 0)<br />     返回 (假)<br /> .否则<br /> <br /> .如果结束<br /> ' 检查纯数字情况<br /> .如果 (是否为纯数字 (文本))<br />     返回 (真)<br /> .否则<br /> <br /> .如果结束<br /> ' 检查千分位格式<br /> 逗号位置 ＝ 倒找文本 (文本, “,”, , 假)<br /> .判断循环首 (逗号位置 ≠ -1)<br />     ' 检查逗号后是否是3位数字<br />     .如果 (长度 － 逗号位置 ≠ 3)<br />         返回 (假)<br />     .否则<br /> <br />     .如果结束<br /> <br />     ' 检查逗号后的3位是否为数字<br />     .计次循环首 (3, i)<br />         字符 ＝ 取文本中间 (文本, 逗号位置 ＋ i, 1)<br />         .如果 (字符 ＜ “0” 或 字符 ＞ “9”)<br />             返回 (假)<br />         .否则<br /> <br />         .如果结束<br /> <br />     .计次循环尾 ()<br /> <br />     ' 更新剩余部分<br />     剩余部分 ＝ 取文本左边 (文本, 逗号位置 － 1)<br /> <br />     ' 检查剩余部分是否有其他逗号<br />     .如果 (倒找文本 (剩余部分, “,”, , 假) ≠ -1)<br />         ' 如果有逗号，则剩余部分长度必须正好是3位数字<br />         .如果 (取文本长度 (剩余部分) ＞ 1)<br />             返回 (真)<br />         .否则<br /> <br />         .如果结束<br /> <br />     .否则<br />         ' 如果没有逗号，则剩余部分可以是1-3位数字<br />         .如果 (取文本长度 (剩余部分) ＜ 1 或 取文本长度 (剩余部分) ＞ 3)<br />             返回 (假)<br />         .否则<br /> <br />         .如果结束<br /> <br />     .如果结束<br /> <br />     文本 ＝ 剩余部分<br />     长度 ＝ 逗号位置 － 1<br />     逗号位置 ＝ 倒找文本 (文本, “,”, , 假)<br /> .判断循环尾 ()<br /> ' 检查剩余部分是否为纯数字<br /> 返回 (是否为纯数字 (文本))<br /> <br /> .子程序 是否为纯数字, 逻辑型<br /> .参数 文本, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 字符, 文本型<br /> <br /> .计次循环首 (取文本长度 (文本), i)<br />     字符 ＝ 取文本中间 (文本, i, 1)<br />     .如果 (字符 ＜ “0” 或 字符 ＞ “9”)<br />         返回 (假)<br />     .否则<br /> <br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> 返回 (真)

[15:33:22] * “测试数据: ” | “32,645,524” | “ 实际结果: ” | 真
[15:33:22] * “测试数据: ” | “564” | “ 实际结果: ” | 真
[15:33:22] * “测试数据: ” | “1” | “ 实际结果: ” | 真
[15:33:22] * “测试数据: ” | “12,87” | “ 实际结果: ” | 假
[15:33:22] * “测试数据: ” | “1,287,45” | “ 实际结果: ” | 假
[15:33:22] * “测试数据: ” | “abc” | “ 实际结果: ” | 假
[15:33:22] * “测试数据: ” | “1,234,567,890” | “ 实际结果: ” | 真
[15:33:22] * “测试数据: ” | “,123” | “ 实际结果: ” | 假

xxx2161270

zainex 发表于 2025-10-30 15:15
正则匹配:
[e=1].版本 2
.支持库 RegEx

你好能改下 0 和025 这样格式的也为假      但 10  100 这样的为真