编辑框限制只能输入中文

初学者初来乍到

如题：我想让编辑框1.内容只能输入中文，不知道怎么写才能实现。我现在用：如果真（编辑框1.内容 = “ ”），这样写就会不管什么都可以填写，就算填标点符号也可以。

补充内容 (2024-6-13 14:46):
这截图错误的，我不知道怎么会在上面，这图是我之前前两天想发而没有发出去的

616

文本_是否为汉字 (你要判断的文本, 真)
精易模块

初学者初来乍到

616 发表于 2024-6-13 14:47
文本_是否为汉字 (你要判断的文本, 真)
精易模块

不用模块能实现吗？

616

初学者初来乍到 发表于 2024-6-13 14:48
不用模块能实现吗？

那你把精易模块源码下下来 再把这个功能复制进去

布点脚本师

初学者初来乍到 发表于 2024-6-13 14:48
不用模块能实现吗？

那就用正则

初学者初来乍到

woaity123 发表于 2024-6-13 14:51
那就用正则

正则不会

xiaoSeven

正则表达式：

补充内容 (2024-6-13 14:57):
[\u4e00-\u9fa5]

xiaoSeven

  

子程序名	返回值类型	公开	备 注
文本_是否为汉字	逻辑型		中间不能有空格,判断一个文本是否全为汉字,是汉字返回真,否则返回假
参数名	类 型	参考	可空	数组	备 注
欲判断文本	文本型
正则方式	逻辑型				是否正则方式判断，可以判断生僻的汉字

变量名	类 型	静态	数组	备 注
局_区码	字节型
局_位码	字节型
RegExp	对象
匹配文本	文本型
bool	逻辑型
局_长度
i	整数型
局_键代码	整数型

局_长度 ＝ 取文本长度 (删全部空 (欲判断文本))
如果真 (局_长度 ≤ 1)
返回 (假)
如果真 (正则方式)
CoInitialize (0)
RegExp.创建 (“VBScript.RegExp”, )
RegExp.写属性 (“Pattern”, “^[\u4e00-\u9fa5]{1,}$”)
bool ＝ RegExp.逻辑方法 (“Test”, 欲判断文本)
RegExp.清除 ()
CoUninitialize ()
返回 (bool)
' 非正则方式判断------------------------------------------------
计次循环首 (局_长度, i)
局_键代码 ＝ 取代码 (欲判断文本, i)
如果真 (局_键代码 ≥ 0)
返回 (假)

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

.版本 2<br /> <br /> .子程序 文本_是否为汉字, 逻辑型, 公开, 中间不能有空格,判断一个文本是否全为汉字,是汉字返回真,否则返回假<br /> .参数 欲判断文本, 文本型<br /> .参数 正则方式, 逻辑型, 可空, 是否正则方式判断，可以判断生僻的汉字<br /> .局部变量 局_区码, 字节型<br /> .局部变量 局_位码, 字节型<br /> .局部变量 RegExp, 对象<br /> .局部变量 匹配文本, 文本型<br /> .局部变量 bool, 逻辑型<br /> .局部变量 局_长度<br /> .局部变量 i, 整数型<br /> .局部变量 局_键代码, 整数型<br /> <br /> 局_长度 ＝ 取文本长度 (删全部空 (欲判断文本))<br /> .如果真 (局_长度 ≤ 1)<br />     返回 (假)<br /> .如果真结束<br /> .如果真 (正则方式)<br />     CoInitialize (0)<br />     RegExp.创建 (“VBScript.RegExp”, )<br />     RegExp.写属性 (“Pattern”, “^[\u4e00-\u9fa5]{1,}$”)<br />     bool ＝ RegExp.逻辑方法 (“Test”, 欲判断文本)<br />     RegExp.清除 ()<br />     CoUninitialize ()<br />     返回 (bool)<br /> .如果真结束<br /> ' 非正则方式判断------------------------------------------------<br /> .计次循环首 (局_长度, i)<br />     局_键代码 ＝ 取代码 (欲判断文本, i)<br />     .如果真 (局_键代码 ≥ 0)<br />         返回 (假)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (真)

补充内容 (2024-6-13 15:02):
不用模块，自己把精益源码复制出来就可以用了

花间一壶酒

这样就只能输入中文了

辽阳小哲

编辑框只能输入汉字例程.zip (3.3 KB, 下载次数: 3)

2024-6-13 15:04 上传

点击文件名下载附件

例程来自：https://www.eyuyan.la/post/12519.html