文本数组 判断删除

yq1431

文本数组长度不同
例：
文本数组1=8326
文本数组2=83279
判断文本数组2内是否有文本数组1的数字  有就删除相应数字如832 只保留79

卡壳了 用计次循环总是下标报错


补充内容 (2024-7-17 18:52):
附件在5楼...............

LEOONL

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
K	文本型	0
s	整数型	88
重复个数	整数型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
i	整数型

计次循环首 (88, i)
s [i] ＝ 1
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
i	整数型

重复个数 ＝ 0
文本_逐字分割 (编辑框2.内容, K)
调试输出 (K, 取数组成员数 (K))
计次循环首 (取数组成员数 (K), i)
调试输出 (i)
判断 (寻找文本 (编辑框1.内容, K [i － 重复个数], , 假) ≠ -1)
s [i] ＝ 1  ' 找到=1  并删除该成员
删除成员 (K, i － 重复个数, )
调试输出 (K)
重复个数 ＝ 重复个数 ＋ 1
s [i] ＝ s [i] ＋ 1  ' 找不到 就+1

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

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 K, 文本型, , "0"<br /> .程序集变量 s, 整数型, , "88"<br /> .程序集变量 重复个数, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 i, 整数型<br /> <br /> .计次循环首 (88, i)<br />     s <i> ＝ 1<br /> .计次循环尾 ()<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 i, 整数型<br /> <br /> 重复个数 ＝ 0<br /> 文本_逐字分割 (编辑框2.内容, K)<br /> 调试输出 (K, 取数组成员数 (K))<br /> <br /> .计次循环首 (取数组成员数 (K), i)<br />     调试输出 (i)<br />     .判断开始 (寻找文本 (编辑框1.内容, K [i － 重复个数], , 假) ≠ -1)<br />         s <i> ＝ 1  ' 找到=1  并删除该成员<br />         删除成员 (K, i － 重复个数, )<br />         调试输出 (K)<br />         重复个数 ＝ 重复个数 ＋ 1<br />     .默认<br />         s <i> ＝ s <i> ＋ 1  ' 找不到 就+1<br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> 调试输出 (K, s [1], s [2], s [3], s [4], s [5], s [6])

每次运行要置重复个数=0

LEOONL

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
文本数组1	文本型
文本数组2	文本型
n	整数型
文本	文本型

文本数组1 ＝ “8326”
文本数组2 ＝ “83279”
计次循环首 (取文本长度 (文本数组2), n)
如果真 (寻找文本 (文本数组1, 取文本中间 (文本数组2, n, 1), , 假) ＝ -1)
文本 ＝ 文本 ＋ 取文本中间 (文本数组2, n, 1)

计次循环尾 ()
调试输出 (文本)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文本数组1, 文本型<br /> .局部变量 文本数组2, 文本型<br /> .局部变量 n, 整数型<br /> .局部变量 文本, 文本型<br /> <br /> 文本数组1 ＝ “8326”<br /> 文本数组2 ＝ “83279”<br /> .计次循环首 (取文本长度 (文本数组2), n)<br />     .如果真 (寻找文本 (文本数组1, 取文本中间 (文本数组2, n, 1), , 假) ＝ -1)<br />         文本 ＝ 文本 ＋ 取文本中间 (文本数组2, n, 1)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 调试输出 (文本)

anyuezhiji

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
文本数组1	文本型
文本数组2	文本型
计次	整数型

文本数组1 ＝ “8326”
文本数组2 ＝ “83279”
计次循环首 (取文本长度 (文本数组1), 计次)
文本数组2 ＝ 子文本替换 (文本数组2, 取文本中间 (文本数组1, 计次, 1), “”, , , 真)
计次循环尾 ()
调试输出 (文本数组2)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 文本数组1, 文本型<br /> .局部变量 文本数组2, 文本型<br /> .局部变量 计次, 整数型<br /> <br /> <br /> 文本数组1 ＝ “8326”<br /> 文本数组2 ＝ “83279”<br /> .计次循环首 (取文本长度 (文本数组1), 计次)<br />     文本数组2 ＝ 子文本替换 (文本数组2, 取文本中间 (文本数组1, 计次, 1), “”, , , 真)<br /> .计次循环尾 ()<br /> 调试输出 (文本数组2)

长安往事

  

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
文本1	文本型
文本2	文本型
数组	文本型		0
i	整数型

文本1 ＝ “8326”
文本2 ＝ “83279”
文本_逐字分割 (文本1, 数组)
计次循环首 (取数组成员数 (数组), i)
如果真 (寻找文本 (文本2, 数组 [i], , 假) ≠ -1)
文本2 ＝ 子文本替换 (文本2, 数组 [i], “”, , , 真)

计次循环尾 ()
调试输出 (文本1)
调试输出 (文本2)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 子程序1<br /> .局部变量 文本1, 文本型<br /> .局部变量 文本2, 文本型<br /> .局部变量 数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> 文本1 ＝ “8326”<br /> 文本2 ＝ “83279”<br /> <br /> 文本_逐字分割 (文本1, 数组)<br /> .计次循环首 (取数组成员数 (数组), i)<br />     .如果真 (寻找文本 (文本2, 数组 <i>, , 假) ≠ -1)<br />         文本2 ＝ 子文本替换 (文本2, 数组 <i>, “”, , , 真)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 调试输出 (文本1)<br /> 调试输出 (文本2)

yq1431

长安往事 发表于 2024-7-17 18:26
[e=1].版本 2
.支持库 spec

0717.e (900.89 KB, 下载次数: 7)

2024-7-17 18:36 上传

点击文件名下载附件
在这里

Suky

计次循环正序检查和删除数组成员
https://bbs.125.la/forum.php?mod=viewthread&tid=14790897
(出处: 精易论坛)


补充内容 (2024-7-17 18:44):
你要计次循环删除的时候，每删除一个，那变量就要对应减1，所以不能用循环变量；因为循环变量是自动跟随循环次数变化的

yq1431

Suky 发表于 2024-7-17 18:43
计次循环正序检查和删除数组成员
https://bbs.125.la/forum.php?mod=viewthread&tid=14790897
(出处: 精易 ...

5楼有附件 帮忙看看

长安往事

yq1431 发表于 2024-7-17 18:36
在这里

你数组s 存在的作用是什么

LEOONL

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

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
K	文本型	0
s	整数型	88
重复个数	整数型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
i	整数型

计次循环首 (88, i)
s [i] ＝ 1
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
i	整数型

文本_逐字分割 (编辑框2.内容, K)
调试输出 (K, 取数组成员数 (K))
计次循环首 (取数组成员数 (K), i)
调试输出 (i)
判断 (寻找文本 (编辑框1.内容, K [i － 重复个数], , 假) ≠ -1)
s [i] ＝ 1  ' 找到=1  并删除该成员
删除成员 (K, i － 重复个数, )
调试输出 (K)
重复个数 ＝ 重复个数 ＋ 1
s [i] ＝ s [i] ＋ 1  ' 找不到 就+1

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

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 K, 文本型, , "0"<br /> .程序集变量 s, 整数型, , "88"<br /> .程序集变量 重复个数, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 i, 整数型<br /> <br /> .计次循环首 (88, i)<br />     s <i> ＝ 1<br /> .计次循环尾 ()<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 i, 整数型<br /> <br /> 文本_逐字分割 (编辑框2.内容, K)<br /> 调试输出 (K, 取数组成员数 (K))<br /> <br /> .计次循环首 (取数组成员数 (K), i)<br />     调试输出 (i)<br />     .判断开始 (寻找文本 (编辑框1.内容, K [i － 重复个数], , 假) ≠ -1)<br />         s <i> ＝ 1  ' 找到=1  并删除该成员<br />         删除成员 (K, i － 重复个数, )<br />         调试输出 (K)<br />         重复个数 ＝ 重复个数 ＋ 1<br />     .默认<br />         s <i> ＝ s <i> ＋ 1  ' 找不到 就+1<br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> 调试输出 (K, s [1], s [2], s [3], s [4], s [5], s [6])