删除合并合并问题

熬夜

  

子程序名	返回值类型	公开	备 注
去加序号

变量名	类 型	静态	数组	备 注
i	整数型
temp	文本型
索引	整数型

变量循环首 (超级列表框2.取表项数 () － 1, 0, -1, i)
temp ＝ 超级列表框2.取标题 (i, 1)  ' 改这里’
索引 ＝ 超级列表框2.查找表项 (temp, , , 1)  ' 改这里’
如果真 (索引 ≠ -1 且 索引 ≠ i)
超级列表框2.删除表项 (i)

变量循环尾 ()
计次循环首 (超级列表框2.取表项数 (), i)
超级列表框2.置标题 (i － 1, 0, 到文本 (i))
计次循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 去加序号<br /> .局部变量 i, 整数型<br /> .局部变量 temp, 文本型<br /> .局部变量 索引, 整数型<br /> <br /> .变量循环首 (超级列表框2.取表项数 () － 1, 0, -1, i)<br /> <br />     temp ＝ 超级列表框2.取标题 (i, 1)  ' 改这里’<br />     索引 ＝ 超级列表框2.查找表项 (temp, , , 1)  ' 改这里’<br /> <br />     .如果真 (索引 ≠ -1 且 索引 ≠ i)<br />         超级列表框2.删除表项 (i)<br />     .如果真结束<br /> <br /> <br /> <br /> <br /> .变量循环尾 ()<br /> <br /> .计次循环首 (超级列表框2.取表项数 (), i)<br />     超级列表框2.置标题 (i － 1, 0, 到文本 (i))<br /> .计次循环尾 ()

这个删除重复代码  删除后保留最前面那条

如何删除保留最底下的 把最前面的那条删除

DHeyong

熬夜 发表于 2023-4-10 22:06
请问下对比 某一列数据 是代码里那个地方改 比如对比第一列

  

子程序名	返回值类型	公开	备 注
去重_保留尾项
参数名	类 型	参考	可空	数组	备 注
列索引
是否更新序号	逻辑型

变量名	类 型	静态	数组	备 注
匹配索引数组			0
i
j
删除项数
序号更新_起始索引

序号更新_起始索引 ＝ -1
循环判断首 ()
查找数据 (超级列表框2.取标题 (j, 列索引), 列索引, 匹配索引数组)
如果真 (取数组成员数 (匹配索引数组) ＞ 1)
删除项数 ＝ 取数组成员数 (匹配索引数组) － 1
计次循环首 (删除项数, i)
超级列表框2.删除表项 (匹配索引数组 [i ＋ 1])
计次循环尾 ()
如果真 (是否更新序号)
如果真 (序号更新_起始索引 ＝ -1 或 序号更新_起始索引 ＞ 匹配索引数组 [删除项数 ＋ 1])
序号更新_起始索引 ＝ 匹配索引数组 [删除项数 ＋ 1]


j ＝ j ＋ 1
循环判断尾 (j ＜ 超级列表框2.取表项数 ())
如果真 (是否更新序号)
变量循环首 (序号更新_起始索引, 超级列表框2.取表项数 () － 1, 1, i)
超级列表框2.置标题 (i, 0, 到文本 (i ＋ 1))
变量循环尾 ()

子程序名	返回值类型	公开	备 注
查找数据
参数名	类 型	参考	可空	数组	备 注
欲查找的标题	文本型
列索引
返回索引数组

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

清除数组 (返回索引数组)
变量循环首 (超级列表框2.取表项数 () － 1, 0, -1, i)
如果真 (文本比较 (欲查找的标题, 超级列表框2.取标题 (i, 列索引), 真) ＝ 0)
加入成员 (返回索引数组, i)

变量循环尾 ()

i支持库列表	支持库注释
iext原	(未知支持库)

.版本 2<br /> .支持库 iext原<br /> <br /> .子程序 去重_保留尾项<br /> .参数 列索引<br /> .参数 是否更新序号, 逻辑型<br /> .局部变量 匹配索引数组, , , "0"<br /> .局部变量 i<br /> .局部变量 j<br /> .局部变量 删除项数<br /> .局部变量 序号更新_起始索引<br /> <br /> 序号更新_起始索引 ＝ -1<br /> .循环判断首 ()<br />     查找数据 (超级列表框2.取标题 (j, 列索引), 列索引, 匹配索引数组)<br />     .如果真 (取数组成员数 (匹配索引数组) ＞ 1)<br />         删除项数 ＝ 取数组成员数 (匹配索引数组) － 1<br />         .计次循环首 (删除项数, i)<br />             超级列表框2.删除表项 (匹配索引数组 [i ＋ 1])<br />         .计次循环尾 ()<br />         .如果真 (是否更新序号)<br />             .如果真 (序号更新_起始索引 ＝ -1 或 序号更新_起始索引 ＞ 匹配索引数组 [删除项数 ＋ 1])<br />                 序号更新_起始索引 ＝ 匹配索引数组 [删除项数 ＋ 1]<br />             .如果真结束<br /> <br />         .如果真结束<br /> <br />     .如果真结束<br />     j ＝ j ＋ 1<br /> .循环判断尾 (j ＜ 超级列表框2.取表项数 ())<br /> .如果真 (是否更新序号)<br />     .变量循环首 (序号更新_起始索引, 超级列表框2.取表项数 () － 1, 1, i)<br />         超级列表框2.置标题 (i, 0, 到文本 (i ＋ 1))<br />     .变量循环尾 ()<br /> .如果真结束<br /> <br /> <br /> .子程序 查找数据<br /> .参数 欲查找的标题, 文本型<br /> .参数 列索引<br /> .参数 返回索引数组, , 数组<br /> .局部变量 i<br /> <br /> 清除数组 (返回索引数组)<br /> .变量循环首 (超级列表框2.取表项数 () － 1, 0, -1, i)<br />     .如果真 (文本比较 (欲查找的标题, 超级列表框2.取标题 (i, 列索引), 真) ＝ 0)<br />         加入成员 (返回索引数组, i)<br />     .如果真结束<br /> <br /> .变量循环尾 ()

ymxkj2006

循环cha询一遍A  记录序号，存到数组，之后，把数组>1的，前面数组序号对应列表项都删除，留最后一个

鹏书

正常倒序遍历，留下的就是最后一条啊

DHeyong

  

子程序名	返回值类型	公开	备 注
去重_序号_保留尾项

变量名	类 型	静态	数组	备 注
匹配索引数组			0
i
j
删除项数
序号更新_起始索引

序号更新_起始索引 ＝ -1
循环判断首 ()
查找数据 (超级列表框2.取标题 (j, ), 匹配索引数组)
如果真 (取数组成员数 (匹配索引数组) ＞ 1)
删除项数 ＝ 取数组成员数 (匹配索引数组) － 1
计次循环首 (删除项数, i)
超级列表框2.删除表项 (匹配索引数组 [i ＋ 1])
计次循环尾 ()
如果真 (序号更新_起始索引 ＝ -1 或 序号更新_起始索引 ＞ 匹配索引数组 [删除项数 ＋ 1])
序号更新_起始索引 ＝ 匹配索引数组 [删除项数 ＋ 1]

j ＝ j ＋ 1
循环判断尾 (j ＜ 超级列表框2.取表项数 ())
变量循环首 (序号更新_起始索引, 超级列表框2.取表项数 () － 1, 1, i)
超级列表框2.置标题 (i, 0, 到文本 (i ＋ 1))
变量循环尾 ()

子程序名	返回值类型	公开	备 注
查找数据
参数名	类 型	参考	可空	数组	备 注
欲查找的标题	文本型
返回索引数组

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

清除数组 (返回索引数组)
变量循环首 (超级列表框2.取表项数 () － 1, 0, -1, i)
如果真 (文本比较 (欲查找的标题, 超级列表框2.取标题 (i, ), 真) ＝ 0)
加入成员 (返回索引数组, i)

变量循环尾 ()

i支持库列表	支持库注释
iext原	(未知支持库)

.版本 2<br /> .支持库 iext原<br /> <br /> .子程序 去重_序号_保留尾项<br /> .局部变量 匹配索引数组, , , "0"<br /> .局部变量 i<br /> .局部变量 j<br /> .局部变量 删除项数<br /> .局部变量 序号更新_起始索引<br /> <br /> 序号更新_起始索引 ＝ -1<br /> .循环判断首 ()<br />     查找数据 (超级列表框2.取标题 (j, ), 匹配索引数组)<br />     .如果真 (取数组成员数 (匹配索引数组) ＞ 1)<br />         删除项数 ＝ 取数组成员数 (匹配索引数组) － 1<br />         .计次循环首 (删除项数, i)<br />             超级列表框2.删除表项 (匹配索引数组 [i ＋ 1])<br />         .计次循环尾 ()<br />         .如果真 (序号更新_起始索引 ＝ -1 或 序号更新_起始索引 ＞ 匹配索引数组 [删除项数 ＋ 1])<br />             序号更新_起始索引 ＝ 匹配索引数组 [删除项数 ＋ 1]<br />         .如果真结束<br /> <br />     .如果真结束<br />     j ＝ j ＋ 1<br /> .循环判断尾 (j ＜ 超级列表框2.取表项数 ())<br /> .变量循环首 (序号更新_起始索引, 超级列表框2.取表项数 () － 1, 1, i)<br />     超级列表框2.置标题 (i, 0, 到文本 (i ＋ 1))<br /> .变量循环尾 ()<br /> <br /> .子程序 查找数据<br /> .参数 欲查找的标题, 文本型<br /> .参数 返回索引数组, , 数组<br /> .局部变量 i<br /> <br /> 清除数组 (返回索引数组)<br /> .变量循环首 (超级列表框2.取表项数 () － 1, 0, -1, i)<br />     .如果真 (文本比较 (欲查找的标题, 超级列表框2.取标题 (i, ), 真) ＝ 0)<br />         加入成员 (返回索引数组, i)<br />     .如果真结束<br /> <br /> .变量循环尾 ()

熬夜

DHeyong 发表于 2023-4-10 21:59
[e=2].版本 2
.支持库 iext原

请问下对比 某一列数据 是代码里那个地方改 比如对比第一列