超级列表框记录文本判断

ccfftt

6 (1).e (6.69 KB, 下载次数: 4)

2025-9-22 15:21 上传

点击文件名下载附件 怎么判断上一条记录是否等于下一条记录呢执行判断前要定义一个初始值来 判断的




补充内容 (2025-9-22 15:35):
就是判断第一行文本值时候的值是初始的一个值 ，判断第二行的值对比和第一行的值是否是一样即可

zainex

  

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

变量名	类 型	静态	数组	备 注
数	整数型
当前	文本型
后面	文本型

计次循环首 (超级列表框2.取表项数 () － 1, 数)
当前 ＝ 超级列表框2.取标题 (数 － 1, 1)
后面 ＝ 超级列表框2.取标题 (数, 1)
如果真 (当前 ＝ 后面)
调试输出 (到文本 (数) ＋ “|” ＋ 到文本 (数 ＋ 1) ＋ “ : ” ＋ 当前)

计次循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 数, 整数型<br /> .局部变量 当前, 文本型<br /> .局部变量 后面, 文本型<br /> <br /> .计次循环首 (超级列表框2.取表项数 () － 1, 数)<br />     当前 ＝ 超级列表框2.取标题 (数 － 1, 1)<br />     后面 ＝ 超级列表框2.取标题 (数, 1)<br />     .如果真 (当前 ＝ 后面)<br />         调试输出 (到文本 (数) ＋ “|” ＋ 到文本 (数 ＋ 1) ＋ “ : ” ＋ 当前)<br />     .如果真结束<br /> <br /> .计次循环尾 ()

开始运行被调试程序
* “2|3 : 345345”
被调试易程序运行完毕

guowei0422

下一条文本=超级列表框2.取标题(i,1)

Ruang

  

子程序名	返回值类型	公开	备 注
功能_判断文本是否重复
参数名	类 型	参考	可空	数组	备 注
超级列表框	超级列表框
指定项	整数型				超级列表框-列索引

变量名	类 型	静态	数组	备 注
当前索引	整数型
上一个索引	整数型
累计项数	整数型

累计项数 ＝ 超级列表框.取表项数 ()
如果真 (累计项数 ≥ 2)  ' 判断是否大于两个项
计次循环首 (累计项数 － 1, 当前索引)  ' 这里减一是 索引从0开始计算
如果真 (当前索引 ＝ 1)
到循环尾 ()
上一个索引 ＝ 当前索引 － 1
如果真 (超级列表框.取标题 (当前索引, 指定项) ＝ 超级列表框.取标题 (上一个索引, 指定项))
调试输出 (“发现指定第” ＋ 到文本 (指定项 ＋ 1) ＋ “项中相同文本：” ＋ “第 ” ＋ 到文本 (上一个索引 ＋ 1) ＋ “ 项与第 ” ＋ 到文本 (当前索引 ＋ 1) ＋ “ 项 ”, 超级列表框.取标题 (当前索引 － 1, 指定项))

计次循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .子程序 功能_判断文本是否重复<br /> .参数 超级列表框, 超级列表框<br /> .参数 指定项, 整数型, , 超级列表框-列索引<br /> .局部变量 当前索引, 整数型<br /> .局部变量 上一个索引, 整数型<br /> .局部变量 累计项数, 整数型<br /> <br /> 累计项数 ＝ 超级列表框.取表项数 ()<br /> .如果真 (累计项数 ≥ 2)  ' 判断是否大于两个项<br />     .计次循环首 (累计项数 － 1, 当前索引)  ' 这里减一是 索引从0开始计算<br />         .如果真 (当前索引 ＝ 1)<br />             到循环尾 ()<br />         .如果真结束<br />         上一个索引 ＝ 当前索引 － 1<br />         .如果真 (超级列表框.取标题 (当前索引, 指定项) ＝ 超级列表框.取标题 (上一个索引, 指定项))<br />             调试输出 (“发现指定第” ＋ 到文本 (指定项 ＋ 1) ＋ “项中相同文本：” ＋ “第 ” ＋ 到文本 (上一个索引 ＋ 1) ＋ “ 项与第 ” ＋ 到文本 (当前索引 ＋ 1) ＋ “ 项 ”, 超级列表框.取标题 (当前索引 － 1, 指定项))<br /> <br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> <br /> .如果真结束

Ruang

  

子程序名	返回值类型	公开	备 注
功能_判断文本是否重复
参数名	类 型	参考	可空	数组	备 注
超级列表框	超级列表框
指定项	整数型				超级列表框-列索引 若为空则所有列

变量名	类 型	静态	数组	备 注
当前索引	整数型
上一个索引	整数型
累计项数	整数型
累计列数	整数型
列索引	整数型

累计项数 ＝ 超级列表框.取表项数 ()
累计列数 ＝ 超级列表框.取列数 ()
如果真 (累计项数 ≥ 2)  ' 判断是否大于两个项
计次循环首 (累计项数, 当前索引)  ' 下面减一是 索引从0开始计算
如果真 (当前索引 ＝ 1)
到循环尾 ()
上一个索引 ＝ 当前索引 － 1
如果 (是否为空 (指定项))
计次循环首 (累计列数, 列索引)
如果真 (超级列表框.取标题 (当前索引 － 1, 列索引 － 1) ＝ 超级列表框.取标题 (上一个索引 － 1, 列索引 － 1))
调试输出 (“发现相同文本：” ＋ “第 ” ＋ 到文本 (上一个索引 － 1) ＋ “ 项与第 ” ＋ 到文本 (当前索引 － 1) ＋ “ 项相同 ”, 列索引 － 1, 超级列表框.取标题 (当前索引 － 1, 列索引 － 1))

计次循环尾 ()
如果真 (超级列表框.取标题 (当前索引 － 1, 指定项) ＝ 超级列表框.取标题 (上一个索引 － 1, 指定项))
调试输出 (“发现相同文本：” ＋ “第 ” ＋ 到文本 (上一个索引 － 1) ＋ “ 项与第 ” ＋ 到文本 (当前索引 － 1) ＋ “ 项相同 ”, 超级列表框.取标题 (当前索引 － 1, 指定项))


计次循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .子程序 功能_判断文本是否重复<br /> .参数 超级列表框, 超级列表框<br /> .参数 指定项, 整数型, 可空, 超级列表框-列索引 若为空则所有列<br /> .局部变量 当前索引, 整数型<br /> .局部变量 上一个索引, 整数型<br /> .局部变量 累计项数, 整数型<br /> .局部变量 累计列数, 整数型<br /> .局部变量 列索引, 整数型<br /> <br /> 累计项数 ＝ 超级列表框.取表项数 ()<br /> 累计列数 ＝ 超级列表框.取列数 ()<br /> .如果真 (累计项数 ≥ 2)  ' 判断是否大于两个项<br />     .计次循环首 (累计项数, 当前索引)  ' 下面减一是 索引从0开始计算<br />         .如果真 (当前索引 ＝ 1)<br />             到循环尾 ()<br />         .如果真结束<br />         上一个索引 ＝ 当前索引 － 1<br />         .如果 (是否为空 (指定项))<br />             .计次循环首 (累计列数, 列索引)<br />                 .如果真 (超级列表框.取标题 (当前索引 － 1, 列索引 － 1) ＝ 超级列表框.取标题 (上一个索引 － 1, 列索引 － 1))<br />                     调试输出 (“发现相同文本：” ＋ “第 ” ＋ 到文本 (上一个索引 － 1) ＋ “ 项与第 ” ＋ 到文本 (当前索引 － 1) ＋ “ 项相同 ”, 列索引 － 1, 超级列表框.取标题 (当前索引 － 1, 列索引 － 1))<br />                 .如果真结束<br /> <br />             .计次循环尾 ()<br />         .否则<br />             .如果真 (超级列表框.取标题 (当前索引 － 1, 指定项) ＝ 超级列表框.取标题 (上一个索引 － 1, 指定项))<br />                 调试输出 (“发现相同文本：” ＋ “第 ” ＋ 到文本 (上一个索引 － 1) ＋ “ 项与第 ” ＋ 到文本 (当前索引 － 1) ＋ “ 项相同 ”, 超级列表框.取标题 (当前索引 － 1, 指定项))<br />             .如果真结束<br /> <br />         .如果结束<br /> <br />     .计次循环尾 ()<br /> <br /> .如果真结束

补充内容 (2025-9-22 17:40):
如果不要重复减一就用变量循环

Ruang

这个是最新的了，好久没写，有点手生了