精易论坛

标题: 文本 [打印本页]

---

作者: 易语言学霸    时间: 2025-2-12 19:34
标题: 文本
怎么禁止编辑框首位数字0  不是全部禁止  只是首位不能输入0 后面可以输入

---

作者: 算法艺术家    时间: 2025-2-12 19:34

  

子程序名	返回值类型	公开	备 注
_编辑框2_内容被改变

变量名	类 型	静态	数组	备 注
结果	文本型
文本	文本型

文本 ＝ 编辑框2.内容
结果 ＝ 文本去掉前边的零 (文本)
如果真 (结果 ≠ 文本)
编辑框2.内容 ＝ 结果
编辑框2.起始选择位置 ＝ -1

子程序名	返回值类型	公开	备 注
文本去掉前边的零	文本型
参数名	类 型	参考	可空	数组	备 注
文本	文本型

变量名	类 型	静态	数组	备 注
i	整数型
n	整数型

. ' 循环判断首 ()
' n ＝ n ＋ 1
' i ＝ 寻找文本s (文本, “0”, n, 假)
. ' 循环判断尾 (n ＝ i)
计次循环首 (取文本长度 (文本), n)
如果真 (取代码 (文本, n) ≠ 48)
跳出循环 ()

计次循环尾 ()
返回 (取文本右边 (文本, 取文本长度 (文本) － n ＋ 1))

.版本 2<br /> <br /> .子程序 _编辑框2_内容被改变<br /> .局部变量 结果, 文本型<br /> .局部变量 文本, 文本型<br /> <br /> 文本 ＝ 编辑框2.内容<br /> 结果 ＝ 文本去掉前边的零 (文本)<br /> .如果真 (结果 ≠ 文本)<br />     编辑框2.内容 ＝ 结果<br />     编辑框2.起始选择位置 ＝ -1<br /> .如果真结束<br /> <br /> <br /> <br /> .子程序 文本去掉前边的零, 文本型, 公开<br /> .参数 文本, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 n, 整数型<br /> <br /> .' 循环判断首 ()<br />     ' n ＝ n ＋ 1<br />     ' i ＝ 寻找文本s (文本, “0”, n, 假)<br /> .' 循环判断尾 (n ＝ i)<br /> <br /> .计次循环首 (取文本长度 (文本), n)<br />     .如果真 (取代码 (文本, n) ≠ 48)<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (取文本右边 (文本, 取文本长度 (文本) － n ＋ 1))

---

作者: 算法艺术家    时间: 2025-2-12 19:44
编辑框2.起始选择位置 ＝ -1  这个可以去掉

---

作者: asasqwwq    时间: 2025-2-12 19:54

  

子程序名	返回值类型	公开	备 注
_角度_内容被改变

变量名	类 型	静态	数组	备 注
临时文本	文本型

临时文本 ＝ 取文本左边 (角度.内容, 1)
如果真 (临时文本 ＝ “0”)
角度.内容 ＝ 文本替换 (角度.内容, 1, 1, “”)

.版本 2<br /> <br /> .子程序 _角度_内容被改变<br /> .局部变量 临时文本, 文本型<br /> <br /> 临时文本 ＝ 取文本左边 (角度.内容, 1)<br /> .如果真 (临时文本 ＝ “0”)<br />     角度.内容 ＝ 文本替换 (角度.内容, 1, 1, “”)<br /> .如果真结束

---

作者: 大漠小鸟    时间: 2025-2-12 19:57

  

子程序名	返回值类型	公开	备 注
_编辑框1_字符输入	整数型
参数名	类 型	参考	可空	数组	备 注
字符代码	整数型

如果真 (字符代码 ≥ 48 且 字符代码 ≤ 57 且 取代码 (编辑框1.内容, 1) ＝ 0)
返回 (0)

.版本 2<br /> <br /> .子程序 _编辑框1_字符输入, 整数型<br /> .参数 字符代码, 整数型<br /> <br /> <br /> .如果真 (字符代码 ≥ 48 且 字符代码 ≤ 57 且 取代码 (编辑框1.内容, 1) ＝ 0)<br />     返回 (0)

---

作者: Wg唯一    时间: 2025-2-12 20:04
.版本 2  .如果真 (取文本左边 (编辑框1.内容, 1) ＝ “0”)     按钮1.禁止 ＝ 真

---

作者: 精益小波    时间: 2025-2-12 20:28

  

子程序名	返回值类型	公开	备 注
_编辑框1_字符输入	整数型
参数名	类 型	参考	可空	数组	备 注
字符代码	整数型

如果真 (字符代码 ＝ 48)
返回 (0)
返回 (字符代码)

.版本 2<br /> <br /> .子程序 _编辑框1_字符输入, 整数型<br /> .参数 字符代码, 整数型<br /> <br /> .如果真 (字符代码 ＝ 48)<br />     返回 (0)<br /> .如果真结束<br /> 返回 (字符代码)

---

欢迎光临 精易论坛 (https://125.confly.eu.org/)

Powered by Discuz! X3.4