编辑框怎么限制只能输入英文和数字？

805400753

编辑框怎么限制只允许输入英文和数字，包括粘贴也粘贴不进去，
就像 编辑框属性 输入方式 的 输入整数 那种效果，有没有正则的方式

不要提示的那种

算法艺术家

  

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

变量名	类 型	静态	数组	备 注
n	整数型
Asc	整数型
i	整数型
length	整数型
strRet	文本型
bRet	逻辑型
文本	文本型

文本 ＝ 编辑框2.内容
length ＝ 取文本长度 (文本)
循环判断首 ()
Asc ＝ 取代码 (文本, i)
bRet ＝ 假
如果真 (Asc ＜ 0)
Asc ＝ 256 ＋ Asc
如果 (Asc ＜ 127)
n ＝ 1
判断 (Asc ＞ 96 且 Asc ＜ 123)  ' a-z   97-122
bRet ＝ 真
判断 (Asc ＞ 64 且 Asc ＜ 91)  ' A-Z   65-90
bRet ＝ 真
判断 (Asc ＞ 47 且 Asc ＜ 58)  ' 0-9   48-57
bRet ＝ 真



n ＝ 2
如果真 (bRet)
strRet ＝ strRet ＋ 取文本中间 (文本, i, n)
i ＝ i ＋ n
循环判断尾 (i ≤ length)
如果真 (strRet ≠ 文本)
编辑框2.内容 ＝ strRet

.版本 2<br /> <br /> .子程序 _编辑框1_内容被改变<br /> .局部变量 n, 整数型<br /> .局部变量 Asc, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 length, 整数型<br /> .局部变量 strRet, 文本型<br /> .局部变量 bRet, 逻辑型<br /> .局部变量 文本, 文本型<br /> <br /> 文本 ＝ 编辑框2.内容<br /> length ＝ 取文本长度 (文本)<br /> .循环判断首 ()<br />     Asc ＝ 取代码 (文本, i)<br />     bRet ＝ 假<br />     .如果真 (Asc ＜ 0)<br />         Asc ＝ 256 ＋ Asc<br />     .如果真结束<br />     .如果 (Asc ＜ 127)<br />         n ＝ 1<br />         .判断开始 (Asc ＞ 96 且 Asc ＜ 123)  ' a-z   97-122<br />             bRet ＝ 真<br />         .判断 (Asc ＞ 64 且 Asc ＜ 91)  ' A-Z   65-90<br />             bRet ＝ 真<br />         .判断 (Asc ＞ 47 且 Asc ＜ 58)  ' 0-9   48-57<br />             bRet ＝ 真<br />         .默认<br /> <br />         .判断结束<br /> <br />     .否则<br />         n ＝ 2<br />     .如果结束<br />     .如果真 (bRet)<br />         strRet ＝ strRet ＋ 取文本中间 (文本, i, n)<br />     .如果真结束<br />     i ＝ i ＋ n<br /> .循环判断尾 (i ≤ length)<br /> .如果真 (strRet ≠ 文本)<br />     编辑框2.内容 ＝ strRet<br /> .如果真结束

aipca

  

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

数字字母 ()

子程序名	返回值类型	公开	备 注
数字字母	文本型

变量名	类 型	静态	数组	备 注
母	文本型
长度	整数型
i	整数型
数母	文本型
a	逻辑型
b	整数型

母 ＝ “0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ”
长度 ＝ 取文本长度 (母)
计次循环首 (长度, i)
数母 ＝ 取文本中间 (母, i, 1)
' 输出调试文本 (数母)
如果真 (取文本右边 (编辑框1.内容, 1) ＝ 数母)
' 输出调试文本 (取文本右边 (编辑框1.内容, 1))
b ＝ 0
如果真 (b ＝ 0)
a ＝ 假
跳出循环 ()

a ＝ 真
b ＝ 1
计次循环尾 ()
如果真 (a)
编辑框1.起始选择位置 ＝ 取文本长度 (编辑框1.内容)
模拟按键 (8, , )
返回 (数母)

i支持库列表	支持库注释
eAPI	应用接口支持库

.版本 2<br /> .支持库 eAPI<br /> <br /> .子程序 _编辑框1_内容被改变<br /> <br /> 数字字母 ()<br /> <br /> .子程序 数字字母, 文本型<br /> .局部变量 母, 文本型<br /> .局部变量 长度, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 数母, 文本型<br /> .局部变量 a, 逻辑型<br /> .局部变量 b, 整数型<br /> <br /> 母 ＝ “0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ”<br /> 长度 ＝ 取文本长度 (母)<br /> .计次循环首 (长度, i)<br />     数母 ＝ 取文本中间 (母, i, 1)<br />     ' 输出调试文本 (数母)<br />     .如果真 (取文本右边 (编辑框1.内容, 1) ＝ 数母)<br />         ' 输出调试文本 (取文本右边 (编辑框1.内容, 1))<br />         b ＝ 0<br />         .如果真 (b ＝ 0)<br />             a ＝ 假<br />             跳出循环 ()<br /> <br />         .如果真结束<br /> <br />     .如果真结束<br />     a ＝ 真<br />     b ＝ 1<br /> .计次循环尾 ()<br /> .如果真 (a)<br />     编辑框1.起始选择位置 ＝ 取文本长度 (编辑框1.内容)<br />     模拟按键 (8, , )<br /> .如果真结束<br /> 返回 (数母)

真IKUN

正则慢点，你用汇编吧
看是不是你要的

805400753

真IKUN 发表于 2025-2-12 15:44
正则慢点，你用汇编吧
看是不是你要的

谢谢，不过线程不停在替换编辑框里的内容就没法选择了编辑框里的内容了

805400753

aipca 发表于 2025-2-12 15:38
[e=1].版本 2
.支持库 eAPI

虽然编辑框后面是输入不了除英数以外内容了，但是在前面还能输入非英数字符

算法艺术家

正则的

  

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

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

文本 ＝ 编辑框2.内容
正则.创建 (“\w”, 文本, , , , )
计次循环首 (正则.取匹配数量 (), n)
strRet ＝ strRet ＋ 正则.取匹配文本 (n, )
计次循环尾 ()
如果真 (strRet ≠ 文本)
编辑框2.内容 ＝ strRet

.版本 2<br /> <br /> .子程序 _编辑框1_内容被改变<br /> .局部变量 正则, 正则表达式类<br /> .局部变量 n, 整数型<br /> .局部变量 strRet, 文本型<br /> .局部变量 文本, 文本型<br /> <br /> 文本 ＝ 编辑框2.内容<br /> 正则.创建 (“\w”, 文本, , , , )<br /> .计次循环首 (正则.取匹配数量 (), n)<br />     strRet ＝ strRet ＋ 正则.取匹配文本 (n, )<br /> .计次循环尾 ()<br /> .如果真 (strRet ≠ 文本)<br />     编辑框2.内容 ＝ strRet<br /> .如果真结束

算法艺术家

这样光标就不乱跑了
.版本 2

.如果真 (strRet ≠ 文本)
    编辑框1.内容 ＝ strRet
    编辑框1.起始选择位置 ＝ -1

805400753

算法艺术家 发表于 2025-2-12 16:02
[e=3].版本 2

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

输入其他字符后那个闪烁 l 会跑到第一个位置，有没有办法解决？
这样要是不小心按到了其它字符，就会在第一个位置开始输入英数

算法艺术家

805400753 发表于 2025-2-12 16:18
输入其他字符后那个闪烁 l 会跑到第一个位置，有没有办法解决？
这样要是不小心按到了其它字符，就会在第 ...

   编辑框1.起始选择位置 ＝ -1