编辑框输入方式只能输入数字，但是粘贴上去会有汉字，.....

独孤伟伟

编辑框输入方式只能输入数字，但是粘贴上去会有汉字，
我想编辑框内容只能粘贴数字，汉字自动消失留下数字这个代码咋写？

无痕雨

你是想粘贴进去的时候就自动只得到数字？还是点击按钮后 如果是点击按钮就编辑框1.内容 ＝ 文本区分_只取数字 (取剪辑板文本 ())

979725521

.版本 2

.子程序 _编辑框1_内容被改变

.如果真 (文本_是否为数字 (编辑框1.内容) ＝ 假)
    编辑框1.内容 ＝ 文本区分_只取数字 (编辑框1.内容)

.如果真结束

979725521

  

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

如果真 (文本_是否为数字 (编辑框1.内容) ＝ 假)
编辑框1.内容 ＝ 文本区分_只取数字 (编辑框1.内容)

.版本 2<br /> <br /> .子程序 _编辑框1_内容被改变<br /> <br /> .如果真 (文本_是否为数字 (编辑框1.内容) ＝ 假)<br />     编辑框1.内容 ＝ 文本区分_只取数字 (编辑框1.内容)<br /> <br /> .如果真结束

wtflxk

使用 正则表达式  \d+  处理一下 就能提取所有输入的数字

没事瞎琢磨

  

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

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

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

变量 ＝ 编辑框1.内容
判断 (文本_取出文本中汉字 (变量) ≠ “”)
编辑框1.内容 ＝ 文本_只取数字部分 (变量)
返回 ()

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _编辑框1_内容被改变<br /> .局部变量 变量, 文本型<br /> <br /> 变量 ＝ 编辑框1.内容<br /> .判断开始 (文本_取出文本中汉字 (变量) ≠ “”)<br />     编辑框1.内容 ＝ 文本_只取数字部分 (变量)<br /> .默认<br />     返回 ()<br /> .判断结束

wtflxk

正则表达式
规\则:\d+
取出来所有编辑框内容中的数字就好

xf702

正解。。

a370266652

这个完美解决你的问题

  

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

如果真 (字符代码 ＜ 48 或 字符代码 ＞ 57)
返回 (0)

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