用计次循环命令用文本与数组每个成员进行比较,并在循环之前加一个逻辑型变量,在比较过程中增加一个判断,如果比较结果为真则弹出错误提示,赋值给逻辑变量=真,比较结果为假则赋值给逻辑变量=假,在循环尾判断该逻辑变量,如果逻辑变量=假则将文本加入数组。
.版本 2
.子程序 _按钮1_被单击
.局部变量 欲比较文本, 文本型
.局部变量 数组, 文本型, , "0"
.局部变量 n, 整数型
.局部变量 逻辑变量, 逻辑型
.计次循环首 (取数组成员数 (数组), n)
.如果 (欲比较文本 = 数组 [n])
信息框 (“错误提示”, 0, )
逻辑变量 = 真
.否则
逻辑变量 = 假
.如果结束
.计次循环尾 ()
.如果真 (逻辑变量 = 假)
加入成员 (数组, 欲比较文本)
楼上的那段代码有点问题,要在“逻辑变量=真”后面加上跳出循环。
.版本 2
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.局部变量 文本数组1, 文本型, , "0"
.局部变量 n, 整数型
.局部变量 我要找的, 文本型
文本数组1 = 分割文本 (编辑框1.内容, #换行符, )
.计次循环首 (取数组成员数 (文本数组1), n)
我要找的 = 文本数组1 [n]
.计次循环尾 ()
.判断开始 (编辑框_你需要判断的文本.内容 ≠ 我要找的)
编辑框1.加入文本 (#换行符 + 编辑框_你需要判断的文本.内容)
信息框 (“你要的效果”, 0, )
.默认
.判断结束
就是1楼这样判断!