txt分割和超级列表框文本数据查找

dong9277

新手求助
红色框中有N组连贯的数字1-300的数据（并不是每组数据都到300有可能到200但是最多到300）且每组有未知个1或300 但是顺序必须是连贯 列如：111122333444
数据导入到超级列表框后需要查找数据，查找数据的条件是（[color=rgba(0, 0, 0, 0.85)][backcolor=rgba(0, 0, 0, 0.04)]每组数据可能有大于或等于4.5个连贯数字丢失，现要求找到他们，并且光标移动到丢失的数据的前一个数据比如111227778889999数据丢失了3456，光标移动到最后一个数字2上面）
[color=rgba(0, 0, 0, 0.85)][backcolor=rgba(0, 0, 0, 0.04)]大神们这个应该怎么个思路和写法，是直接能找到还是需要分割文本

影纸

是这样吗

LEOONL

数据.e (7.79 KB, 下载次数: 3)

2024-9-14 15:26 上传

点击文件名下载附件

mytiger

  

子程序名	返回值类型	公开	备 注
_cha询下一条_被单击

变量名	类 型	静态	数组	备 注
n	整数型
k	整数型
str	文本型		0
str1	文本型		0

超级列表框1.获取焦点 ()
n ＝ 超级列表框1.现行选中项 ＋ 1
变量循环首 (n, 超级列表框1.取表项数 () － 2, 1, k)
str ＝ 分割文本 (超级列表框1.取标题 (k, 0), “,”, )
str1 ＝ 分割文本 (超级列表框1.取标题 (k ＋ 1, 0), “,”, )
如果真 (取整 (到数值 (str1 [5])) － 取整 (到数值 (str [5])) ≥ 2)
超级列表框1.现行选中项 ＝ k
超级列表框1.保证显示 (k)
返回 ()
如果真 (超级列表框1.取表项数 () ＝ k ＋ 2)
超级列表框1.现行选中项 ＝ -1

变量循环尾 ()

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _cha询下一条_被单击<br /> .局部变量 n, 整数型<br /> .局部变量 k, 整数型<br /> .局部变量 str, 文本型, , "0"<br /> .局部变量 str1, 文本型, , "0"<br /> <br /> 超级列表框1.获取焦点 ()<br /> n ＝ 超级列表框1.现行选中项 ＋ 1<br /> .变量循环首 (n, 超级列表框1.取表项数 () － 2, 1, k)<br />     str ＝ 分割文本 (超级列表框1.取标题 (k, 0), “,”, )<br />     str1 ＝ 分割文本 (超级列表框1.取标题 (k ＋ 1, 0), “,”, )<br />     .如果真 (取整 (到数值 (str1 [5])) － 取整 (到数值 (str [5])) ≥ 2)<br />         超级列表框1.现行选中项 ＝ k<br />         超级列表框1.保证显示 (k)<br />         返回 ()<br />     .如果真结束<br />     .如果真 (超级列表框1.取表项数 () ＝ k ＋ 2)<br />         超级列表框1.现行选中项 ＝ -1<br />     .如果真结束<br /> <br /> .变量循环尾 ()

补充内容 (2024-9-14 15:51):
修改 取整 (到数值 (str1 [5])) － 取整 (到数值 (str [5])) ≥ 丢失数字

补充内容 (2024-9-14 16:18):
修改成
如果真 (到数值 (str1 [5])-到数值 (str [5]) >4.5) '大于4.5'

影纸

  

子程序名	返回值类型	公开	备 注
_查询下一条_被单击

变量名	类 型	静态	数组	备 注
寻找到的文本	文本型		0
前文本	文本型
后文本	文本型

调试输出 (超级列表框1.取表项数 ())
计次循环首 (超级列表框1.取表项数 (), i)
如果真 (文本_取中间_批量 (超级列表框1.取标题 (i － 1, 0), “,”, “.”, 寻找到的文本, , ) ≥ 4)
前文本 ＝ 寻找到的文本 [4]

如果真 (文本_取中间_批量 (超级列表框1.取标题 (i, 0), “,”, “.”, 寻找到的文本, , ) ≥ 4)
后文本 ＝ 寻找到的文本 [4]
调试输出 (前文本, 后文本)
如果真 (到整数 (后文本) － 到整数 (前文本) ＞ 1)‘这里的1就是丢失量，自己设置
调试输出 (i)
超级列表框1.获取焦点 ()
超级列表框1.现行选中项 ＝ i － 1
跳出循环 ()

计次循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> .支持库 iext<br /> <br /> .子程序 _查询下一条_被单击<br /> .局部变量 寻找到的文本, 文本型, , "0"<br /> .局部变量 前文本, 文本型<br /> .局部变量 后文本, 文本型<br /> <br /> 调试输出 (超级列表框1.取表项数 ())<br /> <br /> .计次循环首 (超级列表框1.取表项数 (), i)<br />     .如果真 (文本_取中间_批量 (超级列表框1.取标题 (i － 1, 0), “,”, “.”, 寻找到的文本, , ) ≥ 4)<br />         前文本 ＝ 寻找到的文本 [4]<br />     .如果真结束<br /> <br />     .如果真 (文本_取中间_批量 (超级列表框1.取标题 (i, 0), “,”, “.”, 寻找到的文本, , ) ≥ 4)<br />         后文本 ＝ 寻找到的文本 [4]<br />     .如果真结束<br />     调试输出 (前文本, 后文本)<br />     .如果真 (到整数 (后文本) － 到整数 (前文本) ＞ 1)‘这里的1就是丢失量，自己设置<br />         调试输出 (i)<br />         超级列表框1.获取焦点 ()<br />         超级列表框1.现行选中项 ＝ i － 1<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()

影纸