我的编辑框1里有40万行记录，有什么办法直接用编辑框1的...

算法艺术家

这么大文本直接组件操作肯定卡死了  用哈希表 ，哈希表ASM模块是论坛里开源的
编辑框1.内容=大文本去重复 (编辑框1.内容, #换行符)

  

子程序名	返回值类型	公开	备 注
大文本去重复	文本型		快速文本对象
参数名	类 型	参考	可空	数组	备 注
输入文本	文本型
分隔符	文本型				默认为换行符
返回去除数量	整数型
返回剩余数量	整数型
去除空行	逻辑型				默认为假 不去除空行

变量名	类 型	静态	数组	备 注
局去除数量	整数型
局文本组	文本型		0
i	整数型
局输入	快速文本对象
局输出	快速文本对象
局剩余数量	整数型
局哈希	哈希表_ASM

如果真 (输入文本 ＝ “”)
返回 (“”)
如果真 (分隔符 ＝ “”)
分隔符 ＝ #换行符
局哈希.创建 ( #文本型, #整数型, 20)  ' 2的20次方除以1024 ' 1MB容量
局输入.置文本 (输入文本)
局文本组 ＝ 局输入.分割文本 (分隔符, )
计次循环首 (取数组成员数 (局文本组), i)
如果真 (去除空行 ＝ 真)
如果真 (局文本组 [i] ＝ “”)
局去除数量 ＝ 局去除数量 ＋ 1
到循环尾 ()


如果 (局哈希.cha询 (局文本组 [i]))
局去除数量 ＝ 局去除数量 ＋ 1
局哈希.添加 (局文本组 [i], 0)
局输出.添加 (局文本组 [i], 分隔符)
局剩余数量 ＝ 局剩余数量 ＋ 1

计次循环尾 ()
局哈希.清空 ()
返回去除数量 ＝ 局去除数量
返回剩余数量 ＝ 局剩余数量
返回 (局输出.取文本 (, ))

i支持库列表	支持库注释
commobj	通用对象支持库

.版本 2<br /> .支持库 commobj<br /> <br /> .子程序 大文本去重复, 文本型, 公开, 快速文本对象<br /> .参数 输入文本, 文本型<br /> .参数 分隔符, 文本型, 可空, 默认为换行符<br /> .参数 返回去除数量, 整数型, 参考 可空<br /> .参数 返回剩余数量, 整数型, 参考 可空<br /> .参数 去除空行, 逻辑型, 可空, 默认为假 不去除空行<br /> .局部变量 局去除数量, 整数型<br /> .局部变量 局文本组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 局输入, 快速文本对象<br /> .局部变量 局输出, 快速文本对象<br /> .局部变量 局剩余数量, 整数型<br /> .局部变量 局哈希, 哈希表_ASM<br /> <br /> .如果真 (输入文本 ＝ “”)<br />     返回 (“”)<br /> .如果真结束<br /> .如果真 (分隔符 ＝ “”)<br />     分隔符 ＝ #换行符<br /> .如果真结束<br /> 局哈希.创建 (#文本型, #整数型, 20)  ' 2的20次方除以1024 ' 1MB容量<br /> 局输入.置文本 (输入文本)<br /> 局文本组 ＝ 局输入.分割文本 (分隔符, )<br /> .计次循环首 (取数组成员数 (局文本组), i)<br />     .如果真 (去除空行 ＝ 真)<br />         .如果真 (局文本组 <i> ＝ “”)<br />             局去除数量 ＝ 局去除数量 ＋ 1<br />             到循环尾 ()<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br />     .如果 (局哈希.cha询 (局文本组 <i>))<br />         局去除数量 ＝ 局去除数量 ＋ 1<br />     .否则<br />         局哈希.添加 (局文本组 <i>, 0)<br />         局输出.添加 (局文本组 <i>, 分隔符)<br />         局剩余数量 ＝ 局剩余数量 ＋ 1<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> <br /> 局哈希.清空 ()<br /> 返回去除数量 ＝ 局去除数量<br /> 返回剩余数量 ＝ 局剩余数量<br /> 返回 (局输出.取文本 (, ))

补充内容 (2025-3-21 16:17):
bbs.125.la/forum.php?mod=viewthread&tid=14516715&highlight

算法艺术家

  

你也可以直接操作文本文件去重复，反回来的数组放编辑框里

子程序名	返回值类型	公开	备 注
大文本文件去重复
参数名	类 型	参考	可空	数组	备 注
原文本路径	文本型
返回结果组	文本型

变量名	类 型	静态	数组	备 注
哈希表	哈希表_ASM
w	整数型
i	整数型
text	文本型
t	整数型

哈希表.创建 ( #文本型, #整数型, , , , , 真)
w ＝ 打开文件 (原文本路径, , )
计次循环首 (10000000, i)
text ＝ 读入一行 (w)
哈希表.添加 (text, 0, )
处理事件 ()
计次循环尾 ()
哈希表.取所有键 (返回结果组)
关闭文件 (w)

你也可以直接操作文本文件去重复，反回来的数组放编辑框里<br /> .版本 2<br /> <br /> .子程序 大文本文件去重复, , 公开<br /> .参数 原文本路径, 文本型<br /> .参数 返回结果组, 文本型, 数组<br /> .局部变量 哈希表, 哈希表_ASM<br /> .局部变量 w, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 text, 文本型<br /> .局部变量 t, 整数型<br /> <br /> 哈希表.创建 (#文本型, #整数型, , , , , 真)<br /> w ＝ 打开文件 (原文本路径, , )<br /> .计次循环首 (10000000, i)<br />     text ＝ 读入一行 (w)<br />     哈希表.添加 (text, 0, )<br />     处理事件 ()<br /> .计次循环尾 ()<br /> 哈希表.取所有键 (返回结果组)<br /> 关闭文件 (w)

补充内容 (2025-3-21 16:45):
文本多少行 循环多少次就行

aipca

易 来处理这么大文本，想想也吓人

HccCmHj

青春的思念 发表于 2025-3-21 15:53
20万条记录入库30分钟是因为你没用事务，用事务很快的

现在问题是，sqlite不支持多线程插入，我把数组分成4份，4个线程插入4个表，同时进行就说库锁了。