超级列表框 清空数据后 为什么在导入数据 序号不是从1ka...

╰洛克王国攻略

超级列表框 利用 分割文本导入数据，处理完数据后，清空超级列表框所有数据。
然后又重新导入新的数据到超级列表框，不知道为什么，超级列表框 它导入数据的序号不是从1开始，还是接着上次的清空序号往下统计。

比如：

上次导入的数据是100行，然后处理完成，清空数据！
再导入新数据，他的序号尽然是 101开始的。
这样导致我 把数据导入编辑框，在写入文件时，头部一大截空白行！

请问这个要怎么处理！

哆啦恶梦

╰洛克王国攻略 发表于 2021-10-14 08:09
你帮我看下哪里又问题

就是这样了

zuoshoudidi

把ID的索引清零

汉族

用 全部清空（）  然后 插入表项 返回索引

梦雨心君

你全部清空之后，你的索引值也要恢复为0呀。不然你从索引101插入表项，应该就是你这现象。应该从索引为0或者-1处开始插入表项。

SelectFrom

源码呢？

弱鸡第一步

超级列表框.全部清空（）

然后再插

番茄吧

  

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

超级列表框1.全部删除 ()

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

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

置随机数种子 ()
计次循环首 (100, )
a ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (a, 0, 到文本 (a ＋ 1))  ' 这里是序号，用插入的索引,如果不清除，就继续向后加
超级列表框1.置标题 (a, 1, 到文本 (取随机数 (10000000, 999999999)))
超级列表框1.置标题 (a, 2, 到文本 (取随机数 (10000000, 999999999)))
超级列表框1.置标题 (a, 3, 到文本 (取随机数 (10000000, 999999999)))
超级列表框1.保证显示 (a)
计次循环尾 ()

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 超级列表框1.全部删除 ()<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 a, 整数型<br /> <br /> 置随机数种子 ()<br /> .计次循环首 (100, )<br />     a ＝ 超级列表框1.插入表项 (, , , , , )<br />     超级列表框1.置标题 (a, 0, 到文本 (a ＋ 1))  ' 这里是序号，用插入的索引,如果不清除，就继续向后加<br />     超级列表框1.置标题 (a, 1, 到文本 (取随机数 (10000000, 999999999)))<br />     超级列表框1.置标题 (a, 2, 到文本 (取随机数 (10000000, 999999999)))<br />     超级列表框1.置标题 (a, 3, 到文本 (取随机数 (10000000, 999999999)))<br />     超级列表框1.保证显示 (a)<br /> .计次循环尾 ()

ttt.e (3.52 KB, 下载次数: 3)

2021-10-14 05:57 上传

点击文件名下载附件



主要是你插入的时候的序号，是插入的索引，而不是外部的别的序号

╰洛克王国攻略

  

子程序名	返回值类型	公开	备 注
开始导入

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

清空bkj ()
文件 ＝ 编辑框14.内容
文件2 ＝ 分割文本 (文件, 字符 (10), )
计次循环首 (取数组下标 (文件2, ), i)  ' 取数组成员数
如果真 (取数组成员数 (文件2) ＞ 1)
表项 ＝ 超级列表框6.插入表项 (, , , , , )
超级列表框6.置标题 (表项, 0, 到文本 (i))
超级列表框6.置标题 (表项, 2, 文件2 [i])
处理事件 ()
计次循环尾 ()

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

变量名	类 型	静态	数组	备 注
ID表项记录	整数型

判断循环首 (注册序号 ＜ 超级列表框6.取表项数 ())
如果真 (线程数量 ＜ 10)
注册序号 ＝ 注册序号 ＋ 1
线程ID ＝ 线程_启动 (&注册)
ID表项记录 ＝ ID表项记录 ＋ 1
线程数量 ＝ 线程数量 ＋ 1
处理事件 ()
判断循环尾 ()
整合数据 ()

子程序名	返回值类型	公开	备 注
清空bkj

超级列表框6.全部删除 ()

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

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

处理表项记录 ＝ 处理表项记录 ＋ 1
索引 ＝ 处理表项记录 － 1
如果 (寻找文本 (超级列表框6.取标题 (索引, 0), “http”, , 假) ＝ -1)
超级列表框6.置标题 (索引, 1, 超级列表框6.取标题 (索引, 0))
网页_访问S (超级列表框6.取标题 (索引, 0), , , , , , , 真, , , , , , , url)
超级列表框6.置标题 (索引, 1, url)

超级列表框6.保证显示 (索引)
线程数量 ＝ 线程数量 － 1

子程序名	返回值类型	公开	备 注
整合数据

变量名	类 型	静态	数组	备 注
i	整数型
取出文本	文本型

编辑框14.内容 ＝ “”
计次循环首 (超级列表框6.取表项数 (), i)
取出文本 ＝ 超级列表框6.取标题 (i － 1, 1) ＋ #换行符
编辑框14.加入文本 (取出文本)
计次循环尾 ()
' 编辑框14.内容 ＝ 文本_删除空行 (编辑框14.内容)
如果 (目录_是否存在 (取特定目录 ( #系统桌面 ) ＋ mulu))
写到文件 (取特定目录 ( #系统桌面 ) ＋ “\” ＋ mulu ＋ “\” ＋ 文本_转拼音 (标签36.标题, , , 真) ＋ “.m3u8”, 到字节集 (编辑框14.内容))
目录_创建 (取特定目录 ( #系统桌面 ) ＋ mulu)
写到文件 (取特定目录 ( #系统桌面 ) ＋ “\” ＋ mulu ＋ “\” ＋ 文本_转拼音 (标签36.标题, , , 真) ＋ “.m3u8”, 到字节集 (编辑框14.内容))

' 超级列表框6.可视 ＝ 假

i支持库列表	支持库注释
iext	扩展界面支持库一
shell	操作系统界面功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 shell<br /> <br /> .子程序 开始导入<br /> .局部变量 文件2, 文本型, , "0"<br /> .局部变量 表项, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 文件, 文本型<br /> <br /> 清空bkj ()<br /> 文件 ＝ 编辑框14.内容<br /> 文件2 ＝ 分割文本 (文件, 字符 (10), )<br /> .计次循环首 (取数组下标 (文件2, ), i)  ' 取数组成员数<br />     .如果真 (取数组成员数 (文件2) ＞ 1)<br />         表项 ＝ 超级列表框6.插入表项 (, , , , , )<br />         超级列表框6.置标题 (表项, 0, 到文本 (i))<br />         超级列表框6.置标题 (表项, 2, 文件2 <i>)<br /> <br />     .如果真结束<br />     处理事件 ()<br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 运行<br /> .局部变量 ID表项记录, 整数型<br /> <br /> .判断循环首 (注册序号 ＜ 超级列表框6.取表项数 ())<br />     .如果真 (线程数量 ＜ 10)<br />         注册序号 ＝ 注册序号 ＋ 1<br />         线程ID ＝ 线程_启动 (&注册)<br />         ID表项记录 ＝ ID表项记录 ＋ 1<br />         线程数量 ＝ 线程数量 ＋ 1<br />     .如果真结束<br />     处理事件 ()<br /> .判断循环尾 ()<br /> 整合数据 ()<br /> <br /> <br /> .子程序 清空bkj<br /> <br /> 超级列表框6.全部删除 ()<br /> <br /> <br /> .子程序 注册<br /> .局部变量 索引, 整数型<br /> .局部变量 url, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 取出文本, 文本型<br /> <br /> 处理表项记录 ＝ 处理表项记录 ＋ 1<br /> 索引 ＝ 处理表项记录 － 1<br /> .如果 (寻找文本 (超级列表框6.取标题 (索引, 0), “http”, , 假) ＝ -1)<br />     超级列表框6.置标题 (索引, 1, 超级列表框6.取标题 (索引, 0))<br /> .否则<br />     网页_访问S (超级列表框6.取标题 (索引, 0), , , , , , , 真, , , , , , , url)<br />     超级列表框6.置标题 (索引, 1, url)<br /> .如果结束<br /> <br /> 超级列表框6.保证显示 (索引)<br /> 线程数量 ＝ 线程数量 － 1<br /> <br /> <br /> .子程序 整合数据<br /> .局部变量 i, 整数型<br /> .局部变量 取出文本, 文本型<br /> <br /> 编辑框14.内容 ＝ “”<br /> .计次循环首 (超级列表框6.取表项数 (), i)<br />     取出文本 ＝ 超级列表框6.取标题 (i － 1, 1) ＋ #换行符<br />     编辑框14.加入文本 (取出文本)<br /> .计次循环尾 ()<br /> ' 编辑框14.内容 ＝ 文本_删除空行 (编辑框14.内容)<br /> .如果 (目录_是否存在 (取特定目录 (#系统桌面) ＋ mulu))<br />     写到文件 (取特定目录 (#系统桌面) ＋ “\” ＋ mulu ＋ “\” ＋ 文本_转拼音 (标签36.标题, , , 真) ＋ “.m3u8”, 到字节集 (编辑框14.内容))<br /> .否则<br />     目录_创建 (取特定目录 (#系统桌面) ＋ mulu)<br />     写到文件 (取特定目录 (#系统桌面) ＋ “\” ＋ mulu ＋ “\” ＋ 文本_转拼音 (标签36.标题, , , 真) ＋ “.m3u8”, 到字节集 (编辑框14.内容))<br /> .如果结束<br /> <br /> ' 超级列表框6.可视 ＝ 假

哆啦恶梦

清空的时候 使用   超级列表框。全部删除（）