判断文本每行是否是11位数字

不忘初心Min

按下按钮1删除编辑框1内没有内容的行
判断编辑框1内容，每行是否为11位纯数字


麻烦帮我写一个e文件 谢谢

b0y

新建 易程序.e (948.08 KB, 下载次数: 4)

2023-6-19 12:24 上传

点击文件名下载附件

b0y

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
str	文本型
ary	文本型		0
i	整数型

str ＝ 删首尾空 (编辑框1.内容)
str ＝ 文本_删除空行 (str)
编辑框1.内容 ＝ str
ary ＝ 分割文本 (str, #换行符, )
计次循环首 (取数组成员数 (ary), i)
如果 (文本_是否为数字 (ary [i]) 且 取文本长度 (ary [i]) ＝ 11)
调试输出 (“符合:” ＋ ary [i])
调试输出 (“不符合:” ＋ ary [i])

计次循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 str, 文本型<br /> .局部变量 ary, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> str ＝ 删首尾空 (编辑框1.内容)<br /> str ＝ 文本_删除空行 (str)<br /> 编辑框1.内容 ＝ str<br /> ary ＝ 分割文本 (str, #换行符, )<br /> .计次循环首 (取数组成员数 (ary), i)<br />     .如果 (文本_是否为数字 (ary <i>) 且 取文本长度 (ary <i>) ＝ 11)<br />         调试输出 (“符合:” ＋ ary <i>)<br />     .否则<br />         调试输出 (“不符合:” ＋ ary <i>)<br />     .如果结束<br /> <br /> .计次循环尾 ()

补充内容 (2023-6-19 12:02):
* “不符合:123”
* “不符合:asdf”
* “不符合:456789a”
* “符合:12345678901”
* “不符合:1234567890a”
* “符合:12345678903”
被调试易程序运行完毕

不忘初心Min

b0y 发表于 2023-6-19 12:02
[e=0].版本 2
.支持库 spec

你好 我提示这个 错误(8): 右括号处于错误位置。

b0y

不忘初心Min 发表于 2023-6-19 12:14
你好 我提示这个 错误(8): 右括号处于错误位置。

复制的时候 有些小括号会编程  尖括号   

补充内容 (2023-6-19 12:16):
和我发的对比一下  这个应该是论坛的问题  复制就变成了尖括号

FanLi

直接正则不就好了

不忘初心Min

b0y 发表于 2023-6-19 12:02
[e=0].版本 2
.支持库 spec

可以麻烦帮我上传一个e文件吗？

gzbid

你看一下