怎么快速将字符串插入到2w行的文件中的某一行?

ydl19981230

如题
将一段文本插入到 2w行的txt文件中的某一行
将文本导入数组的方法太慢了  求能快点的

我爱逗妇乳

  

.版本 2  

子程序名	返回值类型	公开	备 注
插入文本到文件	文本文件路径 作为 文本型		插入文本 作为 文本型

.局部变量 临时文件路径 作为 文本型  
.局部变量 当前行号 作为 整数型  
.局部变量 当前行内容 作为 文本型  
.局部变量 文件1 作为 文本文件  
.局部变量 文件2 作为 文本文件  

' 创建临时文件名  
临时文件路径 = "临时文件.txt"  

' 打开原始文件和临时文件以进行读写  
文件1 = 文本文件_打开 (文本文件路径, 文本文件_只读)  
如果 (文件1 = 0) 则  
输出调试文本 ("无法打开原始文件。")  
返回  
文件2 = 文本文件_创建 (临时文件路径)  
如果 (文件2 = 0) 则  
输出调试文本 ("无法创建临时文件。")  
文本文件_关闭 (文件1)  
返回  

' 逐行读取原始文件并写入临时文件  
当前行号 = 1  
当 (文本文件_读取一行 (文件1, 当前行内容)) 则  
如果 (当前行号 = 插入行号) 则  
' 在当前行之前插入文本  
文本文件_写入字符串 (文件2, 插入文本)  
文本文件_写入字符串 (文件2, 换行符)  
文本文件_写入字符串 (文件2, 当前行内容)  
文本文件_写入字符串 (文件2, 换行符)  
当前行号 = 当前行号 + 1  
否则  
' 读取完毕  

' 关闭文件并替换原始文件  
文本文件_关闭 (文件1)  
文本文件_关闭 (文件2)  
文件_删除 (文本文件路径)  
文件_重命名 (临时文件路径, 文本文件路径)  

输出调试文本 ("文本已成功插入到文件。")  
.子程序结束

.版本 2  <br />   <br /> .子程序 插入文本到文件, 文本文件路径 作为 文本型, 插入行号 作为 整数型, 插入文本 作为 文本型  <br />     .局部变量 临时文件路径 作为 文本型  <br />     .局部变量 当前行号 作为 整数型  <br />     .局部变量 当前行内容 作为 文本型  <br />     .局部变量 文件1 作为 文本文件  <br />     .局部变量 文件2 作为 文本文件  <br />       <br />     ' 创建临时文件名  <br />     临时文件路径 = "临时文件.txt"  <br />       <br />     ' 打开原始文件和临时文件以进行读写  <br />     文件1 = 文本文件_打开(文本文件路径, 文本文件_只读)  <br />     如果 (文件1 = 0) 则  <br />         输出调试文本("无法打开原始文件。")  <br />         返回  <br />     文件2 = 文本文件_创建(临时文件路径)  <br />     如果 (文件2 = 0) 则  <br />         输出调试文本("无法创建临时文件。")  <br />         文本文件_关闭(文件1)  <br />         返回  <br />       <br />     ' 逐行读取原始文件并写入临时文件  <br />     当前行号 = 1  <br />     当 (文本文件_读取一行(文件1, 当前行内容)) 则  <br />         如果 (当前行号 = 插入行号) 则  <br />             ' 在当前行之前插入文本  <br />             文本文件_写入字符串(文件2, 插入文本)  <br />             文本文件_写入字符串(文件2, 换行符)  <br />         文本文件_写入字符串(文件2, 当前行内容)  <br />         文本文件_写入字符串(文件2, 换行符)  <br />         当前行号 = 当前行号 + 1  <br />     否则  <br />         ' 读取完毕  <br />           <br />     ' 关闭文件并替换原始文件  <br />     文本文件_关闭(文件1)  <br />     文本文件_关闭(文件2)  <br />     文件_删除(文本文件路径)  <br />     文件_重命名(临时文件路径, 文本文件路径)  <br />       <br />     输出调试文本("文本已成功插入到文件。")  <br /> .子程序结束

没事瞎琢磨

快速文本对象

明天自然醒

[C] 纯文本查看 复制代码

#pragma warning(disable:4996)
void foo4() {
    auto b = clock();

    //std::ifstream infile(R"(C:\Users\Administrator\Desktop\a.txt)", std::ios::binary);

    std::vector<char*> words;

    FILE* fp = fopen(R"(D:\VSproject\test_sql\data.txt)", "rb");
    fseek(fp, 0, SEEK_END);
    long size = ftell(fp);
    fseek(fp, 0, SEEK_SET);
    char* content = (char*)malloc(size + 1);
    fread(content, 1, size, fp);
    content[size] = '\0';
    fclose(fp);

    const char* tar = "\n";
    char* line_start = content, * line_end = strstr(content, tar);

    while (line_end) {
        size_t length = line_end - line_start;

        char* p = (char*)malloc(length + 1);
        memcpy(p, line_start, length);
        p[length] = '\0';
        line_start = line_end + 1;
        line_end = strstr(line_start, tar);
        words.emplace_back(p);
    }


    free(content);
    for (const auto p : words) {
        free(p);
    }
    words.clear();

    auto e = clock();

    cout << e - b << endl;
    cout << words.size() << endl;
}

之前写的分割，自己改下，200wCPU都不热一下

ydl19981230

没事瞎琢磨 发表于 2024-5-9 16:51
快速文本对象

试了 没明白怎么写入到指定行

ydl19981230

明天自然醒 发表于 2024-5-9 16:53
[mw_shl_code=c,true]#pragma warning(disable:4996)
void foo4() {
    auto b = clock();

   啊这...需要易语言的

ydl19981230

  

子程序名	返回值类型	公开	备 注
随机行加入文本	文本型
参数名	类 型	参考	可空	数组	备 注
txt	文本型
添加的内容	文本型

变量名	类 型	静态	数组	备 注
list	文本型		0
k	快速文本对象
行数	整数型
随机数	整数型

k.添加 (txt)
list ＝ k.分割文本 ( #换行符, )
置随机数种子 ()
随机数 ＝ 取随机数 (1, 取数组成员数 (list))
k.替换子文本 (list [随机数], list [随机数] ＋ #换行符 ＋ 添加的内容, , 1, 真)
返回 (k.取文本 (, ))

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

.版本 2<br /> .支持库 commobj<br /> <br /> .子程序 随机行加入文本, 文本型<br /> .参数 txt, 文本型<br /> .参数 添加的内容, 文本型<br /> .局部变量 list, 文本型, , "0"<br /> .局部变量 k, 快速文本对象<br /> .局部变量 行数, 整数型<br /> .局部变量 随机数, 整数型<br /> <br /> k.添加 (txt)<br /> list ＝ k.分割文本 (#换行符, )<br /> 置随机数种子 ()<br /> 随机数 ＝ 取随机数 (1, 取数组成员数 (list))<br /> k.替换子文本 (list [随机数], list [随机数] ＋ #换行符 ＋ 添加的内容, , 1, 真)<br /> 返回 (k.取文本 (, ))

我爱逗妇乳

读取和写入到临时文件：不直接修改原始文件，而是读取到特定行的内容，将这部分内容写入新的临时文件，然后追加你的新文本，接着继续读取原始文件的剩余部分并追加到临时文件。
二进制读取和写入：如果可能，使用二进制模式读取和写入文件，这通常比文本模式更快。但请注意，二进制模式可能不适用于文本文件，除非你确切知道文本是如何编码的。
优化磁盘I/O：尽量减少磁盘I/O操作。例如，使用缓冲区来读取和写入文件，而不是一次读取或写入一个字符。
多线程或异步I/O（如果易语言支持）：这可能会加速操作，但也会使代码更加复杂。
在易语言中，可能没有内置的函数或库直接支持上述所有功能。但是，你可以通过结合基本的文件操作功能来实现它们。

以下是一个简化的示例，说明如何在易语言中实现这种策略：

e
.版本 2  
  
.子程序 插入文本到文件, 文本文件路径 作为 文本型, 插入行号 作为 整数型, 插入文本 作为 文本型  
    .局部变量 临时文件路径 作为 文本型  
    .局部变量 当前行号 作为 整数型  
    .局部变量 当前行内容 作为 文本型  
    .局部变量 文件1 作为 文本文件  
    .局部变量 文件2 作为 文本文件  
      
    ' 创建临时文件名  
    临时文件路径 = "临时文件.txt"  
      
    ' 打开原始文件和临时文件以进行读写  
    文件1 = 文本文件_打开(文本文件路径, 文本文件_只读)  
    如果 (文件1 = 0) 则  
        输出调试文本("无法打开原始文件。")  
        返回  
    文件2 = 文本文件_创建(临时文件路径)  
    如果 (文件2 = 0) 则  
        输出调试文本("无法创建临时文件。")  
        文本文件_关闭(文件1)  
        返回  
      
    ' 逐行读取原始文件并写入临时文件  
    当前行号 = 1  
    当 (文本文件_读取一行(文件1, 当前行内容)) 则  
        如果 (当前行号 = 插入行号) 则  
            ' 在当前行之前插入文本  
            文本文件_写入字符串(文件2, 插入文本)  
            文本文件_写入字符串(文件2, 换行符)  
        文本文件_写入字符串(文件2, 当前行内容)  
        文本文件_写入字符串(文件2, 换行符)  
        当前行号 = 当前行号 + 1  
    否则  
        ' 读取完毕  
         
    ' 关闭文件并替换原始文件  
    文本文件_关闭(文件1)  
    文本文件_关闭(文件2)  
    文件_删除(文本文件路径)  
    文件_重命名(临时文件路径, 文本文件路径)  
      
    输出调试文本("文本已成功插入到文件。")  
.子程序结束