编辑框限制输入特定文本

.计次循环首 (取文本长度 (文本), i)
.如果真 (取代码 (取文本中间 (文本, i, 1), ) ＜ 0)
返回 (假)
.如果真结束

.计次循环尾 ()