|
发表于 2018-5-21 19:58:23
|
显示全部楼层
广东省潮州市
.版本 2
.子程序 _编辑框1_内容被改变
.局部变量 key, 文本型
.局部变量 BlackList, 文本型, , "0"
key = 删全部空 (到小写 (编辑框1.内容))
BlackList = { “f”, “u”, “c”, “k”, “fuck” }
.如果真 (key ≠ “” 且 IsExis (key, BlackList))
编辑框1.内容 = ReplaceText (key, BlackList)
.如果真结束
.子程序 ReplaceText, 文本型
.参数 str, 文本型
.参数 keyArr, 文本型, 数组
.局部变量 i, 整数型
.局部变量 nStr, 文本型
.局部变量 IsWork, 逻辑型
nStr = str
.计次循环首 (取数组成员数 (keyArr), i)
nStr = 子文本替换 (nStr, keyArr [i], , , , 真)
.计次循环尾 ()
返回 (nStr)
.子程序 IsExis, 逻辑型
.参数 str, 文本型
.参数 keyArr, 文本型, 数组
.局部变量 IsWork, 逻辑型
.局部变量 i, 整数型
IsWork = 假
.计次循环首 (取数组成员数 (keyArr), i)
.如果真 (寻找文本 (str, keyArr [i], , 假) ≠ -1)
IsWork = 真
跳出循环 ()
.如果真结束
.计次循环尾 ()
返回 (IsWork)
这样不就解决了? |
|