有没有能处理几万行文本的【文本_删除指定文本行】速度...

查过

有没有能处理几万行文本的【文本_删除指定文本行】速度块些的
精易的辣个，太慢了

独孤求胜

编译出来后速度不快不慢，6万行，几十毫秒

删文本行.rar (2.98 MB, 下载次数: 7)

2025-6-19 18:54 上传

点击文件名下载附件

补充内容 (2025-6-19 18:56):
这个是包含读取与保存文件的时间

a4561482

试试 快速字节集对象 看看行不行

aiky123

正则 替换

1182410163

建议数组操作

laihobglei

  

DLL命令名	返回值类型	公开	备 注
RtlMoveMemory_	整数型
DLL库文件名:
kernel32.dll
在DLL库中对应命令名:
RtlMoveMemory
参数名	类 型	传址	数组	备 注
目标地址	整数型
源地址	整数型
长度	整数型

DLL命令名	返回值类型	公开	备 注
MultiByteToWideChar	整数型
DLL库文件名:
kernel32.dll
在DLL库中对应命令名:
MultiByteToWideChar
参数名	类 型	传址	数组	备 注
CodePage	整数型
dwFlags	整数型
lpMultiByteStr	文本型
cchMultiByte	整数型
lpWideCharStr	整数型
cchWideChar	整数型

DLL命令名	返回值类型	公开	备 注
WideCharToMultiByte	整数型
DLL库文件名:
kernel32.dll
在DLL库中对应命令名:
WideCharToMultiByte
参数名	类 型	传址	数组	备 注
CodePage	整数型
dwFlags	整数型
lpWideCharStr	整数型
cchWideChar	整数型
lpMultiByteStr	文本型
cchMultiByte	整数型
lpDefaultChar	整数型
lpUsedDefaultChar	整数型

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
文本_极速删除行	文本型
参数名	类 型	参考	可空	数组	备 注
参_文本内容	文本型
参_要删除的行号数组	整数型

变量名	类 型	静态	数组	备 注
局_文本长度	整数型
局_行起始位置	整数型		0
局_行结束位置	整数型		0
局_i	整数型
局_当前行	整数型
局_最大行号	整数型
局_删除标记	逻辑型		0
局_结果文本	文本型
局_临时文本	文本型

局_文本长度 ＝ 取文本长度 (参_文本内容)
局_当前行 ＝ 1
重定义数组 (局_行起始位置, 假, 局_文本长度 ＋ 1)
重定义数组 (局_行结束位置, 假, 局_文本长度 ＋ 1)
重定义数组 (局_删除标记, 假, 局_文本长度 ＋ 1)
局_行起始位置 [1] ＝ 1
计次循环首 (局_文本长度, 局_i)
如果真 (取文本中间 (参_文本内容, 局_i, 1) ＝ #换行符 )
局_行结束位置 [局_当前行] ＝ 局_i
局_当前行 ＝ 局_当前行 ＋ 1
局_行起始位置 [局_当前行] ＝ 局_i ＋ 1

计次循环尾 ()
局_行结束位置 [局_当前行] ＝ 局_文本长度
局_最大行号 ＝ 局_当前行
计次循环首 (取数组成员数 (参_要删除的行号数组), 局_i)
如果真 (参_要删除的行号数组 [局_i] ＞ 0 且 参_要删除的行号数组 [局_i] ≤ 局_最大行号)
局_删除标记 [参_要删除的行号数组 [局_i]] ＝ 真

计次循环尾 ()
局_结果文本 ＝ “”
计次循环首 (局_最大行号, 局_i)
如果真 (局_删除标记 [局_i] ＝ 假)
局_临时文本 ＝ 取文本中间 (参_文本内容, 局_行起始位置 [局_i], 局_行结束位置 [局_i] － 局_行起始位置 [局_i] ＋ 1)
局_结果文本 ＝ 局_结果文本 ＋ 局_临时文本
如果真 (局_i ＜ 局_最大行号)
局_结果文本 ＝ 局_结果文本 ＋ #换行符


计次循环尾 ()
返回 (局_结果文本)

.版本 2<br /> <br /> .DLL命令 RtlMoveMemory_, 整数型, "kernel32.dll", "RtlMoveMemory"<br />     .参数 目标地址, 整数型<br />     .参数 源地址, 整数型<br />     .参数 长度, 整数型<br /> <br /> .DLL命令 MultiByteToWideChar, 整数型, "kernel32.dll", "MultiByteToWideChar"<br />     .参数 CodePage, 整数型<br />     .参数 dwFlags, 整数型<br />     .参数 lpMultiByteStr, 文本型<br />     .参数 cchMultiByte, 整数型<br />     .参数 lpWideCharStr, 整数型<br />     .参数 cchWideChar, 整数型<br /> <br /> .DLL命令 WideCharToMultiByte, 整数型, "kernel32.dll", "WideCharToMultiByte"<br />     .参数 CodePage, 整数型<br />     .参数 dwFlags, 整数型<br />     .参数 lpWideCharStr, 整数型<br />     .参数 cchWideChar, 整数型<br />     .参数 lpMultiByteStr, 文本型<br />     .参数 cchMultiByte, 整数型<br />     .参数 lpDefaultChar, 整数型<br />     .参数 lpUsedDefaultChar, 整数型<br /> <br /> <br /> .版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 文本_极速删除行, 文本型, 公开<br /> .参数 参_文本内容, 文本型<br /> .参数 参_要删除的行号数组, 整数型, 数组<br /> .局部变量 局_文本长度, 整数型<br /> .局部变量 局_行起始位置, 整数型, , "0"<br /> .局部变量 局_行结束位置, 整数型, , "0"<br /> .局部变量 局_i, 整数型<br /> .局部变量 局_当前行, 整数型<br /> .局部变量 局_最大行号, 整数型<br /> .局部变量 局_删除标记, 逻辑型, , "0"<br /> .局部变量 局_结果文本, 文本型<br /> .局部变量 局_临时文本, 文本型<br /> <br /> 局_文本长度 ＝ 取文本长度 (参_文本内容)<br /> 局_当前行 ＝ 1<br /> 重定义数组 (局_行起始位置, 假, 局_文本长度 ＋ 1)<br /> 重定义数组 (局_行结束位置, 假, 局_文本长度 ＋ 1)<br /> 重定义数组 (局_删除标记, 假, 局_文本长度 ＋ 1)<br /> 局_行起始位置 [1] ＝ 1<br /> .计次循环首 (局_文本长度, 局_i)<br />     .如果真 (取文本中间 (参_文本内容, 局_i, 1) ＝ #换行符)<br />         局_行结束位置 [局_当前行] ＝ 局_i<br />         局_当前行 ＝ 局_当前行 ＋ 1<br />         局_行起始位置 [局_当前行] ＝ 局_i ＋ 1<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 局_行结束位置 [局_当前行] ＝ 局_文本长度<br /> 局_最大行号 ＝ 局_当前行<br /> .计次循环首 (取数组成员数 (参_要删除的行号数组), 局_i)<br />     .如果真 (参_要删除的行号数组 [局_i] ＞ 0 且 参_要删除的行号数组 [局_i] ≤ 局_最大行号)<br />         局_删除标记 [参_要删除的行号数组 [局_i]] ＝ 真<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 局_结果文本 ＝ “”<br /> .计次循环首 (局_最大行号, 局_i)<br />     .如果真 (局_删除标记 [局_i] ＝ 假)<br />         局_临时文本 ＝ 取文本中间 (参_文本内容, 局_行起始位置 [局_i], 局_行结束位置 [局_i] － 局_行起始位置 [局_i] ＋ 1)<br />         局_结果文本 ＝ 局_结果文本 ＋ 局_临时文本<br />         .如果真 (局_i ＜ 局_最大行号)<br />             局_结果文本 ＝ 局_结果文本 ＋ #换行符<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> 返回 (局_结果文本)

测试对比，比精易模块快20倍！！！

ffshen

正则的最快速

萧楚楠

远程看看嘞，实在不行给你弄个汇编版

tj5523

只用了精益模块，6万多行耗时750毫秒，内存换速度

  

子程序名	返回值类型	公开	备 注
删除指定文本行
参数名	类 型	参考	可空	数组	备 注
文件	文本型
行数	整数型

变量名	类 型	静态	数组	备 注
文件号	整数型
内容	文本型
分割数组	文本型		0
i	整数型
开始时间	文本型
结束时间	文本型

开始时间 ＝ 时间_取现行时间戳 (假)
内容 ＝ UTF8到文本 (读入文件 (文件))
分割数组 ＝ 分割文本 (内容, #换行符, )
调试输出 (“文件总行数：” ＋ 到文本 (取数组下标 (分割数组, )))
调试输出 (“删除行内容：” ＋ 分割数组 [行数])
删除成员 (分割数组, 行数, )
文件号 ＝ 打开文件 (“C:\Users\Administrator\Desktop\新建文本文档2.txt”, #改写, )
变量循环首 (1, 取数组下标 (分割数组, ), 1, i)
写文本行 (文件号, 到文本 (文本到UTF8 (分割数组 [i])))
变量循环尾 ()
关闭文件 (文件号)
结束时间 ＝ 时间_取现行时间戳 (假)
调试输出 (“耗时：” ＋ 到文本 (到长整数 (结束时间) － 到长整数 (开始时间)) ＋ “毫秒”)
调试输出 (“完成”)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 删除指定文本行<br /> .参数 文件, 文本型<br /> .参数 行数, 整数型<br /> .局部变量 文件号, 整数型<br /> .局部变量 内容, 文本型<br /> .局部变量 分割数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 开始时间, 文本型<br /> .局部变量 结束时间, 文本型<br /> <br /> 开始时间 ＝ 时间_取现行时间戳 (假)<br /> 内容 ＝ UTF8到文本 (读入文件 (文件))<br /> 分割数组 ＝ 分割文本 (内容, #换行符, )<br /> 调试输出 (“文件总行数：” ＋ 到文本 (取数组下标 (分割数组, )))<br /> 调试输出 (“删除行内容：” ＋ 分割数组 [行数])<br /> 删除成员 (分割数组, 行数, )<br /> 文件号 ＝ 打开文件 (“C:\Users\Administrator\Desktop\新建文本文档2.txt”, #改写, )<br /> .变量循环首 (1, 取数组下标 (分割数组, ), 1, i)<br />     写文本行 (文件号, 到文本 (文本到UTF8 (分割数组 <i>)))<br /> .变量循环尾 ()<br /> 关闭文件 (文件号)<br /> 结束时间 ＝ 时间_取现行时间戳 (假)<br /> 调试输出 (“耗时：” ＋ 到文本 (到长整数 (结束时间) － 到长整数 (开始时间)) ＋ “毫秒”)<br /> 调试输出 (“完成”)

补充内容 (2025-6-19 17:24):
冒犯了，我试了精益的，2毫秒

补充内容 (2025-6-19 17:27):
哦搞错了，我敲错代码了，精益的确实慢，72835毫秒