易语言,怎么让编辑框除了汉字其他的都能输入?
2012-08-17
展开全部
.版本 2
.子程序 取特定文本, 文本型, , 取出特定的中文、英文、数字、标点符号.
.参数 文本参数, 文本型
.参数 保留中文, 逻辑型
.参数 保留英文, 逻辑型
.参数 保留数字, 逻辑型
.参数 保留标点, 逻辑型
.局部变量 n, 整数型
.局部变量 Asc, 整数型
.局部变量 i, 整数型
.局部变量 length, 整数型
.局部变量 strRet, 文本型
.局部变量 bRet, 逻辑型
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 = 保留数字
.默认
bRet = 保留标点
.判断结束
.否则
n = 2
bRet = 保留中文
.如果结束
.如果真 (bRet)
strRet = strRet + 取文本中间 (文本参数, i, n)
.如果真结束
i = i + n
.循环判断尾 (i ≤ length)
返回 (strRet)
.子程序 取特定文本, 文本型, , 取出特定的中文、英文、数字、标点符号.
.参数 文本参数, 文本型
.参数 保留中文, 逻辑型
.参数 保留英文, 逻辑型
.参数 保留数字, 逻辑型
.参数 保留标点, 逻辑型
.局部变量 n, 整数型
.局部变量 Asc, 整数型
.局部变量 i, 整数型
.局部变量 length, 整数型
.局部变量 strRet, 文本型
.局部变量 bRet, 逻辑型
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 = 保留数字
.默认
bRet = 保留标点
.判断结束
.否则
n = 2
bRet = 保留中文
.如果结束
.如果真 (bRet)
strRet = strRet + 取文本中间 (文本参数, i, n)
.如果真结束
i = i + n
.循环判断尾 (i ≤ length)
返回 (strRet)
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询