易语言内存问题

mengxinmeng · 发表于 2024-8-12 22:15:18

我有段代码处理的数据差不多是100M
我申请了两个400M的地址来存存放结果
程序在运行中任务管理器现在内存都到2g了....我很不理解

变量名	类型	静态	数组	备注
分割后	字节集		0
行	整数型
写入数据	文本型
数据长度	整数型
导出数据	字节集		0
数据	文本型
列	整数型
总数	整数型
索引_共享文本	整数型
指针_共享字符	整数型
指针_索引	整数型
偏移_共享字符	整数型
偏移_索引	整数型
列内容	文本型
快速字节集
结果_共享字符	文本型
zip	ZIP压缩
结果_索引	文本型
sheet1bin	字节集
sharedStringsbin	字节集
zr	整数型
q	整数型
计时	整数型

分割后＝分割字节集 (超级列表框.表项, { 0, 255, 255, 255, 255, 255, 255, 255, 255, 0, 0, 0, 0, 0, 0, 0, 0 }, )

如果真 (取数组成员数 (分割后) ＞ 1)

删除成员 (分割后, 1, )
超级列表框.可视＝假
超级列表框.全部删除 ()
超级列表框.可视＝真
' 初始化
' 哈希.创建 (100000, 25 × 1000000)
索引_共享文本＝ 0
指针_索引＝内存_申请内存 (1024 × 1024 × 400) ' 400M
指针_共享字符＝内存_申请内存 (1024 × 1024 × 400) ' 400M
偏移_共享字符＝ 0
偏移_索引＝ 0

如果真 (指针_共享字符＝ 0)

信息框 (“指针_共享字符=0”, 0, , )

如果真 (指针_索引 ≠ 0)

释放内存 (指针_索引)

返回 ()

如果真 (指针_索引＝ 0)

信息框 (“指针_索引 = 0”, 0, , )

释放内存 (指针_共享字符)

返回 ()
写到内存 ( #常量sheet头部, 指针_索引＋偏移_索引, )
偏移_索引＝偏移_索引＋取文本长度 ( #常量sheet头部 )

计次循环首 (取数组成员数 (分割后), 行)

导出数据＝分割字节集 (子字节集替换 (分割后 [行], { 0, 0 }, { }, , ), { 1, 255, 255, 255, 255, 255, 255, 255, 255 }, )

列内容＝ “”

计次循环首 (取数组成员数 (导出数据), 列)

数据＝到文本 (导出数据 [列])

如果真 (数据＝ “”)

数据＝ “--空文本--”

总数＝总数＋ 1

' 索引_共享文本＝哈希.遍历 (, 数据, , 真, )

如果 (索引_共享文本 ≥ 0) ' = 0不存在，需要加入共享字符

' 哈希.添加_文本型 (数据, 计数_共享文本)

' 索引_共享文本＝哈希.遍历 (, 数据, , 真, )

索引_共享文本＝索引_共享文本＋ 1 ' 我用的哈希表速度太慢了，那就只能空间换时间了

如果真 (数据＝ “--空文本--”)

数据＝ “”

' 写入数据

写入数据＝ “” ＋数据＋ “” ＋ #换行符

如果真 (偏移_共享字符 ≥ 1024 × 1024 × 390)

信息框 (“偏移_共享字符即将溢出内存:” ＋到文本 (偏移_共享字符), 0, , )

写到内存 (写入数据, 指针_共享字符＋偏移_共享字符, )

偏移_共享字符＝偏移_共享字符＋取文本长度 (写入数据)

列内容＝列内容＋ “” ＋到文本 (索引_共享文本－ 1) ＋ “” ＋ #换行符

' 已存在

列内容＝列内容＋ “” ＋到文本 (索引_共享文本－ 1) ＋ “” ＋ #换行符

计次循环尾 ()

写入数据＝ “” ＋列内容＋ “” ＋ #换行符 ' ＋ #换行符＋ #换行符

如果真 (偏移_索引 ≥ 1024 × 1024 × 398)

信息框 (“偏移_索引即将溢出内存:” ＋到文本 (偏移_索引), 0, , )

写到内存 (写入数据, 指针_索引＋偏移_索引, )

偏移_索引＝偏移_索引＋取文本长度 (写入数据)

计次循环尾 ()
写到内存 ( #常量sheet尾部, 指针_索引＋偏移_索引, )
偏移_索引＝偏移_索引＋取文本长度 ( #常量sheet尾部 )
结果_共享字符＝文本_替换 ( #常量共享字符串前, , , , “总数”, 到文本 (总数), “唯一数”, 到文本 (取数组成员数 (索引_共享文本)), , , , , , ) ＋指针到文本 (指针_共享字符) ＋ #常量共享字符串后
结果_索引＝指针到文本 (指针_索引)
释放内存_ (指针_索引)
释放内存_ (指针_共享字符)

i支持库列表	支持库注释
EZipUtils	(未知支持库)
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br />
.支持库 EZipUtils<br />
.支持库 iext<br />
.支持库 spec<br />
<br />
.局部变量 分割后, 字节集, , "0"<br />
.局部变量 行, 整数型<br />
.局部变量 写入数据, 文本型<br />
.局部变量 数据长度, 整数型<br />
.局部变量 导出数据, 字节集, , "0"<br />
.局部变量 数据, 文本型<br />
.局部变量 列, 整数型<br />
.局部变量 总数, 整数型<br />
.局部变量 索引_共享文本, 整数型<br />
.局部变量 指针_共享字符, 整数型<br />
.局部变量 指针_索引, 整数型<br />
.局部变量 偏移_共享字符, 整数型<br />
.局部变量 偏移_索引, 整数型<br />
.局部变量 列内容, 文本型<br />
.局部变量 快速字节集<br />
.局部变量 结果_共享字符, 文本型<br />
.局部变量 zip, ZIP压缩<br />
.局部变量 结果_索引, 文本型<br />
.局部变量 sheet1bin, 字节集<br />
.局部变量 sharedStringsbin, 字节集<br />
.局部变量 zr, 整数型<br />
.局部变量 q, 整数型<br />
.局部变量 计时, 整数型<br />
<br />
分割后 ＝ 分割字节集 (超级列表框.表项, { 0, 255, 255, 255, 255, 255, 255, 255, 255, 0, 0, 0, 0, 0, 0, 0, 0 }, )<br />
.如果真 (取数组成员数 (分割后) ＞ 1)<br />
    删除成员 (分割后, 1, )<br />
.如果真结束<br />
超级列表框.可视 ＝ 假<br />
超级列表框.全部删除 ()<br />
超级列表框.可视 ＝ 真<br />
' 初始化<br />
' 哈希.创建 (100000, 25 × 1000000)<br />
索引_共享文本 ＝ 0<br />
指针_索引 ＝ 内存_申请内存 (1024 × 1024 × 400)  ' 400M<br />
指针_共享字符 ＝ 内存_申请内存 (1024 × 1024 × 400)  ' 400M<br />
<br />
<br />
偏移_共享字符 ＝ 0<br />
偏移_索引 ＝ 0<br />
.如果真 (指针_共享字符 ＝ 0)<br />
    信息框 (“指针_共享字符=0”, 0, , )<br />
    .如果真 (指针_索引 ≠ 0)<br />
        释放内存 (指针_索引)<br />
    .如果真结束<br />
    返回 ()<br />
.如果真结束<br />
.如果真 (指针_索引 ＝ 0)<br />
    信息框 (“指针_索引 = 0”, 0, , )<br />
    释放内存 (指针_共享字符)<br />
    返回 ()<br />
.如果真结束<br />
写到内存 (#常量sheet头部, 指针_索引 ＋ 偏移_索引, )<br />
偏移_索引 ＝ 偏移_索引 ＋ 取文本长度 (#常量sheet头部)<br />
.计次循环首 (取数组成员数 (分割后), 行)<br />
    导出数据 ＝ 分割字节集 (子字节集替换 (分割后 [行], { 0, 0 }, {  }, , ), { 1, 255, 255, 255, 255, 255, 255, 255, 255 }, )<br />
    列内容 ＝ “”<br />
    .计次循环首 (取数组成员数 (导出数据), 列)<br />
        数据 ＝ 到文本 (导出数据 [列])<br />
        .如果真 (数据 ＝ “”)<br />
            数据 ＝ “--空文本--”<br />
        .如果真结束<br />
        总数 ＝ 总数 ＋ 1<br />
        ' 索引_共享文本 ＝ 哈希.遍历 (, 数据, , 真, )<br />
        .如果 (索引_共享文本 ≥ 0)  ' = 0不存在，需要加入共享字符<br />
            ' 哈希.添加_文本型 (数据, 计数_共享文本)<br />
            ' 索引_共享文本 ＝ 哈希.遍历 (, 数据, , 真, )<br />
            索引_共享文本 ＝ 索引_共享文本 ＋ 1  ' 我用的哈希表速度太慢了，那就只能空间换时间了<br />
<br />
            .如果真 (数据 ＝ “--空文本--”)<br />
                数据 ＝ “”<br />
            .如果真结束<br />
            ' 写入数据<br />
            写入数据 ＝ “” ＋ 数据 ＋ “” ＋ #换行符<br />
            .如果真 (偏移_共享字符 ≥ 1024 × 1024 × 390)<br />
                信息框 (“偏移_共享字符即将溢出内存:” ＋ 到文本 (偏移_共享字符), 0, , )<br />
            .如果真结束<br />
            写到内存 (写入数据, 指针_共享字符 ＋ 偏移_共享字符, )<br />
            偏移_共享字符 ＝ 偏移_共享字符 ＋ 取文本长度 (写入数据)<br />
            列内容 ＝ 列内容 ＋ “” ＋ 到文本 (索引_共享文本 － 1) ＋ “” ＋ #换行符<br />
        .否则<br />
            ' 已存在<br />
            列内容 ＝ 列内容 ＋ “” ＋ 到文本 (索引_共享文本 － 1) ＋ “” ＋ #换行符<br />
        .如果结束<br />
<br />
<br />
    .计次循环尾 ()<br />
    写入数据 ＝ “” ＋ 列内容 ＋ “” ＋ #换行符  ' ＋ #换行符 ＋ #换行符<br />
    .如果真 (偏移_索引 ≥ 1024 × 1024 × 398)<br />
        信息框 (“偏移_索引即将溢出内存:” ＋ 到文本 (偏移_索引), 0, , )<br />
    .如果真结束<br />
<br />
    写到内存 (写入数据, 指针_索引 ＋ 偏移_索引, )<br />
    偏移_索引 ＝ 偏移_索引 ＋ 取文本长度 (写入数据)<br />
.计次循环尾 ()<br />
写到内存 (#常量sheet尾部, 指针_索引 ＋ 偏移_索引, )<br />
偏移_索引 ＝ 偏移_索引 ＋ 取文本长度 (#常量sheet尾部)<br />
结果_共享字符 ＝ 文本_替换 (#常量共享字符串前, , , , “总数”, 到文本 (总数), “唯一数”, 到文本 (取数组成员数 (索引_共享文本)), , , , , , ) ＋ 指针到文本 (指针_共享字符) ＋ #常量共享字符串后<br />
结果_索引 ＝ 指针到文本 (指针_索引)<br />
释放内存_ (指针_索引)<br />
释放内存_ (指针_共享字符)