文本数组 判断删除

Suky

yq1431 发表于 2024-7-17 18:47
5楼有附件 帮忙看看

看附件，根本看不明白你要做什么好吧……

Diamonds94

.版本 2 .支持库 spec  .子程序 _按钮1_被单击 .局部变量 i, 整数型 .局部变量 局_内容, 文本型 .局部变量 局_循环次数, 整数型 .局部变量 n, 整数型  文本_逐字分割 (编辑框2.内容, K) 调试输出 (K, 取数组成员数 (K)) 局_内容 ＝ 编辑框1.内容 局_循环次数 ＝ 取数组成员数 (K) n ＝ 1  .计次循环首 (局_循环次数, i)     调试输出 (n)      .判断开始 (寻找文本 (局_内容, K [n], , 假) ≠ -1)          ' s [i] ＝ 1  ' 找到=1  并删除该成员         删除成员 (K, n, 1)         n ＝ n － 1         调试输出 (K)      .默认      .判断结束      n ＝ n ＋ 1 .计次循环尾 () 调试输出 (K, s [1], s [2], s [3], s [4], s [5], s [6])

Diamonds94

.版本 2
.支持库 spec

.子程序 _按钮1_被单击
.局部变量 i, 整数型
.局部变量 局_内容, 文本型
.局部变量 局_循环次数, 整数型
.局部变量 n, 整数型

文本_逐字分割 (编辑框2.内容, K)
调试输出 (K, 取数组成员数 (K))
局_内容 ＝ 编辑框1.内容
局_循环次数 ＝ 取数组成员数 (K)
n ＝ 1

.计次循环首 (局_循环次数, i)
    调试输出 (n)

    .判断开始 (寻找文本 (局_内容, K [n], , 假) ≠ -1)

        ' s [i] ＝ 1  ' 找到=1  并删除该成员
        删除成员 (K, n, 1)
        n ＝ n － 1
        调试输出 (K)

    .默认

    .判断结束

    n ＝ n ＋ 1
.计次循环尾 ()
调试输出 (K, s [1], s [2], s [3], s [4], s [5], s [6])



测试计次循环 每次循环都会给i重新赋值,在内部改i没有用, 所以要增加一个变量来控制数组下标