几万行超级列表框导出问题

毒药yo

超级列表框中有几万行的数据 然后有8列
现在的问题就是用循环读取数据太慢了 4w条数据编译后读取出来保存到文件 需要几分钟
有没有快速的导出的方法

精易论坛龙

用线程池，多线程读取同个控件或数据变量没问题，分段读取，然后保存时加入许可证，这样的速度比单独快些。具体快多少，得试验对比。保存我没有试验，但是多线程在处理数据是快了很多，大大缩短时间。

禁回忆

操作组件的耗时，简单点的办法就是空间换时间，把数据存到内存中一份，导出时读内存。整一个数组存放数据

2224848

  

子程序名	返回值类型	公开	备 注
快速导出超级列表框数据
参数名	类 型	参考	可空	数组	备 注
列表框	超级列表框
文件路径	文本型

变量名	类 型	静态	数组	备 注
文件号	整数型
行数	整数型
列数	整数型
i	整数型
j	整数型
缓冲区	文本型
开始时间	整数型

开始时间 ＝ 取启动时间 ()
行数 ＝ 列表框.取表项数 ()
列数 ＝ 列表框.取列数 ()
' 创建缓冲区（预分配内存）
缓冲区 ＝ 取空白文本 (行数 × 列数 × 50)  ' 预估每单元格50字符
' 添加表头
计次循环首 (列数, j)
缓冲区 ＝ 缓冲区 ＋ 列表框.取列标题 (j - 1) ＋ #引号 + ","
计次循环尾 ()
缓冲区 ＝ 取文本左边 (缓冲区, 取文本长度 (缓冲区) - 1) ＋ #换行符
' 使用API直接访问内部数据

变量名	类 型	静态	数组	备 注
hList	整数型
lvItem	LVITEM
pszText	文本型
文本长度	整数型

hList ＝ 列表框.取窗口句柄 ()
' 设置LVITEM结构
lvItem.mask ＝ #LVIF_TEXT
lvItem.iSubItem ＝ 0
pszText ＝ 取空白文本 (1024)
lvItem.pszText ＝ 取变量指针 (pszText)
lvItem.cchTextMax ＝ 1024
' 批量获取数据
计次循环首 (行数, i)
计次循环首 (列数, j)
lvItem.iItem ＝ i - 1
lvItem.iSubItem ＝ j - 1

' 使用API直接获取文本
SendMessage (hList, #LVM_GETITEMTEXT, i - 1, 取变量指针 (lvItem))

' 添加到缓冲区（处理特殊字符）
缓冲区 ＝ 缓冲区 ＋ #引号 ＋ 替换特殊字符 (pszText) ＋ #引号
如果真 (j < 列数)
缓冲区 ＝ 缓冲区 ＋ ","

计次循环尾 ()
缓冲区 ＝ 缓冲区 ＋ #换行符

' 每1000行写入一次文件
如果真 (i % 1000 ＝ 0)
写到文件 (文件路径, 到字节集 (缓冲区))
缓冲区 ＝ ""

计次循环尾 ()
' 写入剩余数据
如果真 (缓冲区 ≠ "")
写到文件 (文件路径, 到字节集 (缓冲区), 真)  ' 追加模式

调试输出 ("导出完成！耗时：" + 到文本 (取启动时间 () - 开始时间) + "毫秒")

子程序名	返回值类型	公开	备 注
替换特殊字符	文本型
参数名	类 型	参考	可空	数组	备 注
文本	文本型

变量名	类 型	静态	数组	备 注
结果	文本型

结果 ＝ 子文本替换 (文本, #引号, #引号 + #引号, , , 真)  ' 转义双引号
结果 ＝ 子文本替换 (结果, #换行符, " ", , , 真)        ' 替换换行符
结果 ＝ 子文本替换 (结果, #回车符, " ", , , 真)        ' 替换回车符
返回 结果
' ============== API声明 ==============

DLL命令名	返回值类型	公开	备 注
SendMessage	整数型
DLL库文件名:
user32.dll
在DLL库中对应命令名:
SendMessageA
参数名	类 型	传址	数组	备 注
hWnd	整数型
Msg	整数型
wParam	整数型
lParam	整数型

常量名称	常量值	公 开	备 注
LVM_GETITEMTEXT

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库
eAPI	应用接口支持库

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> .支持库 eAPI<br /> <br /> .子程序 快速导出超级列表框数据<br /> .参数 列表框, 超级列表框<br /> .参数 文件路径, 文本型<br /> .局部变量 文件号, 整数型<br /> .局部变量 行数, 整数型<br /> .局部变量 列数, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 缓冲区, 文本型<br /> .局部变量 开始时间, 整数型<br /> <br /> 开始时间 ＝ 取启动时间()<br /> 行数 ＝ 列表框.取表项数()<br /> 列数 ＝ 列表框.取列数()<br /> <br /> ' 创建缓冲区（预分配内存）<br /> 缓冲区 ＝ 取空白文本(行数 × 列数 × 50)  ' 预估每单元格50字符<br /> <br /> ' 添加表头<br /> .计次循环首(列数, j)<br />     缓冲区 ＝ 缓冲区 ＋ 列表框.取列标题(j - 1) ＋ #引号 + ","<br /> .计次循环尾()<br /> 缓冲区 ＝ 取文本左边(缓冲区, 取文本长度(缓冲区) - 1) ＋ #换行符<br /> <br /> ' 使用API直接访问内部数据<br /> .局部变量 hList, 整数型<br /> .局部变量 lvItem, LVITEM<br /> .局部变量 pszText, 文本型<br /> .局部变量 文本长度, 整数型<br /> <br /> hList ＝ 列表框.取窗口句柄()<br /> <br /> ' 设置LVITEM结构<br /> lvItem.mask ＝ #LVIF_TEXT<br /> lvItem.iSubItem ＝ 0<br /> pszText ＝ 取空白文本(1024)<br /> lvItem.pszText ＝ 取变量指针(pszText)<br /> lvItem.cchTextMax ＝ 1024<br /> <br /> ' 批量获取数据<br /> .计次循环首(行数, i)<br />     .计次循环首(列数, j)<br />         lvItem.iItem ＝ i - 1<br />         lvItem.iSubItem ＝ j - 1<br />         <br />         ' 使用API直接获取文本<br />         SendMessage(hList, #LVM_GETITEMTEXT, i - 1, 取变量指针(lvItem))<br />         <br />         ' 添加到缓冲区（处理特殊字符）<br />         缓冲区 ＝ 缓冲区 ＋ #引号 ＋ 替换特殊字符(pszText) ＋ #引号<br />         .如果真(j < 列数)<br />             缓冲区 ＝ 缓冲区 ＋ ","<br />         .如果真结束<br />     .计次循环尾()<br />     缓冲区 ＝ 缓冲区 ＋ #换行符<br />     <br />     ' 每1000行写入一次文件<br />     .如果真(i % 1000 ＝ 0)<br />         写到文件(文件路径, 到字节集(缓冲区))<br />         缓冲区 ＝ ""<br />     .如果真结束<br /> .计次循环尾()<br /> <br /> ' 写入剩余数据<br /> .如果真(缓冲区 ≠ "")<br />     写到文件(文件路径, 到字节集(缓冲区), 真)  ' 追加模式<br /> .如果真结束<br /> <br /> 调试输出("导出完成！耗时：" + 到文本(取启动时间() - 开始时间) + "毫秒")<br /> <br /> .子程序 替换特殊字符, 文本型<br /> .参数 文本, 文本型<br /> .局部变量 结果, 文本型<br /> <br /> 结果 ＝ 子文本替换(文本, #引号, #引号 + #引号, , , 真)  ' 转义双引号<br /> 结果 ＝ 子文本替换(结果, #换行符, " ", , , 真)        ' 替换换行符<br /> 结果 ＝ 子文本替换(结果, #回车符, " ", , , 真)        ' 替换回车符<br /> 返回 结果<br /> <br /> ' ============== API声明 ==============<br /> .DLL命令 SendMessage, 整数型, "user32.dll", "SendMessageA"<br />     .参数 hWnd, 整数型<br />     .参数 Msg, 整数型<br />     .参数 wParam, 整数型<br />     .参数 lParam, 整数型<br /> <br /> .常量 LVM_GETITEMTEXT, 0x104B

vcenio

精易模块的”外部超级列表框_保存数据“挺快的

独孤求胜

看下这个，速度超快

补充内容 (2025-7-31 10:08):
https://bbs.125.la/forum.php?mod=viewthread&tid=14859935

TANC

用虚表吧

tj5523

写入的时候就写出临时表，导出的时候直接一个复制粘贴