继续优化文本替换

爱赚钱的壮壮鹿

感谢分享

已注销571294

没有看出来怎么优化？

z3201

z3201 发表于 2022-11-24 00:49
修复bug完成

修复内存泄露

  

子程序名	返回值类型	公开	备 注
__文本_替换	文本型		主要是解决重复申请内存,从而提升了效率 By:海笑
参数名	类 型	参考	可空	数组	备 注
原文本	文本型
替换的数据	文本型				要替换的内容,替换的内容,要替换的内容--以此类推

变量名	类 型	静态	数组	备 注
申请内存长度	整数型
指针1	整数型
指针2	整数型
结果指针	整数型
i	整数型
堆句柄	整数型

指针1 ＝ 0
如果真 (原文本 ＝ “”)
返回 (“”)

i ＝ __取文本长度_asm (原文本)
如果 (i ＜ 2048)
申请内存长度 ＝ 4096
申请内存长度 ＝ 四舍五入 ( (i × 0.6 ＋ i) ÷ 4096, 0) × 4096

堆句柄 ＝ GetProcessHeap ()
指针1 ＝ __申请堆内存_RtlAllocateHeap (堆句柄, 8, 申请内存长度)  ' 8做填0处理
指针2 ＝ __申请堆内存_RtlAllocateHeap (堆句柄, 8, 申请内存长度)  ' 8做填0处理
如果真 (指针1 ＝ 0 或 指针2 ＝ 0)
调试输出 (“内存申请失败”)
返回 (“”)

__写内存地址整数型_asm (指针1, 申请内存长度)  ' 把长度写到申请的内存里,方便汇编去读取长度用来判断是否溢出
__写内存地址整数型_asm (指针2, 申请内存长度)
如果真 (取数组成员数 (替换的数据) ％ 2 ≠ 0)
调试输出 (“替换数组错误”)
返回 (原文本)

__复制内存_asm (指针1 ＋ 4, __取指针地址_文本型_asm (原文本), i ＋ 1)
i ＝ 1
' 暂停 ()
判断循环首 (i ＜ 取数组成员数 (替换的数据))
如果真 (替换的数据 [i] ≠ “”)  ' 被替换的文本为空就跳过
如果 (__子文本替换_指针_asm (指针1, 替换的数据 [i], 替换的数据 [i ＋ 1], 指针2))  ' 失败只有可能是内存不够
结果指针 ＝ 指针2
指针2 ＝ 指针1
指针1 ＝ 结果指针
' 保证指针2永远在输出位置
申请内存长度 ＝ __指针到整数_asm (指针2)
申请内存长度 ＝ 取整 (申请内存长度 × 0.5 ＋ 申请内存长度)  ' 长度扩增1半
指针2 ＝ __重置内存_RtlReAllocateHeap (堆句柄, 8, 指针2, 申请内存长度)
调试输出 (“内存不够,申请内存”, 指针2, 申请内存长度)
如果真 (指针2 ＝ 0)
调试输出 (“扩展内存失败”)
__释放堆内存_RtlFreeHeap (堆句柄, 0, 指针2)  ' 不释放也没事,易语言在确定不用的时候会帮忙释放的
__释放堆内存_RtlFreeHeap (堆句柄, 0, 指针1)
返回 (原文本)
__写内存地址整数型_asm (指针2, 申请内存长度)
到循环尾 ()

i ＝ i ＋ 2  ' 重新循环这次
判断循环尾 ()
__释放堆内存_RtlFreeHeap (堆句柄, 0, 指针2)  ' 指针1里面是结果,留着返回 用完了易语言会释放
申请内存长度 ＝ lstrlenA (指针1 ＋ 4)
__复制内存_asm (指针1, 指针1 ＋ 4, 申请内存长度 ＋ 1)  ' 不会出现重叠部分~ 整体数据前移4个字节,直接返回会造成释放内存异常
置入代码 ({ 139, 69, 252, 201, 194, 8, 0 })
返回 (“”)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 __文本_替换, 文本型, 公开, 主要是解决重复申请内存,从而提升了效率 By:海笑<br /> .参数 原文本, 文本型<br /> .参数 替换的数据, 文本型, 数组, 要替换的内容,替换的内容,要替换的内容--以此类推<br /> .局部变量 申请内存长度, 整数型<br /> .局部变量 指针1, 整数型<br /> .局部变量 指针2, 整数型<br /> .局部变量 结果指针, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 堆句柄, 整数型<br /> <br /> 指针1 ＝ 0<br /> .如果真 (原文本 ＝ “”)<br />     返回 (“”)<br /> .如果真结束<br /> <br /> i ＝ __取文本长度_asm (原文本)<br /> .如果 (i ＜ 2048)<br />     申请内存长度 ＝ 4096<br /> .否则<br />     申请内存长度 ＝ 四舍五入 ((i × 0.6 ＋ i) ÷ 4096, 0) × 4096<br /> .如果结束<br /> <br /> 堆句柄 ＝ GetProcessHeap ()<br /> 指针1 ＝ __申请堆内存_RtlAllocateHeap (堆句柄, 8, 申请内存长度)  ' 8做填0处理<br /> 指针2 ＝ __申请堆内存_RtlAllocateHeap (堆句柄, 8, 申请内存长度)  ' 8做填0处理<br /> .如果真 (指针1 ＝ 0 或 指针2 ＝ 0)<br />     调试输出 (“内存申请失败”)<br />     返回 (“”)<br /> .如果真结束<br /> <br /> __写内存地址整数型_asm (指针1, 申请内存长度)  ' 把长度写到申请的内存里,方便汇编去读取长度用来判断是否溢出<br /> __写内存地址整数型_asm (指针2, 申请内存长度)<br /> <br /> .如果真 (取数组成员数 (替换的数据) ％ 2 ≠ 0)<br />     调试输出 (“替换数组错误”)<br />     返回 (原文本)<br /> .如果真结束<br /> <br /> __复制内存_asm (指针1 ＋ 4, __取指针地址_文本型_asm (原文本), i ＋ 1)<br /> <br /> i ＝ 1<br /> ' 暂停 ()<br /> .判断循环首 (i ＜ 取数组成员数 (替换的数据))<br />     .如果真 (替换的数据 <i> ≠ “”)  ' 被替换的文本为空就跳过<br />         .如果 (__子文本替换_指针_asm (指针1, 替换的数据 <i>, 替换的数据 [i ＋ 1], 指针2))  ' 失败只有可能是内存不够<br />             结果指针 ＝ 指针2<br />             指针2 ＝ 指针1<br />             指针1 ＝ 结果指针<br />             ' 保证指针2永远在输出位置<br />         .否则<br />             申请内存长度 ＝ __指针到整数_asm (指针2)<br /> <br />             申请内存长度 ＝ 取整 (申请内存长度 × 0.5 ＋ 申请内存长度)  ' 长度扩增1半<br />             指针2 ＝ __重置内存_RtlReAllocateHeap (堆句柄, 8, 指针2, 申请内存长度)<br />             调试输出 (“内存不够,申请内存”, 指针2, 申请内存长度)<br />             .如果真 (指针2 ＝ 0)<br />                 调试输出 (“扩展内存失败”)<br />                 __释放堆内存_RtlFreeHeap (堆句柄, 0, 指针2)  ' 不释放也没事,易语言在确定不用的时候会帮忙释放的<br />                 __释放堆内存_RtlFreeHeap (堆句柄, 0, 指针1)<br />                 返回 (原文本)<br />             .如果真结束<br />             __写内存地址整数型_asm (指针2, 申请内存长度)<br />             到循环尾 ()<br />         .如果结束<br /> <br />     .如果真结束<br />     i ＝ i ＋ 2  ' 重新循环这次<br /> .判断循环尾 ()<br /> <br /> __释放堆内存_RtlFreeHeap (堆句柄, 0, 指针2)  ' 指针1里面是结果,留着返回 用完了易语言会释放<br /> 申请内存长度 ＝ lstrlenA (指针1 ＋ 4)<br /> __复制内存_asm (指针1, 指针1 ＋ 4, 申请内存长度 ＋ 1)  ' 不会出现重叠部分~ 整体数据前移4个字节,直接返回会造成释放内存异常<br /> 置入代码 ({ 139, 69, 252, 201, 194, 8, 0 })<br /> 返回 (“”)

Mth520

牛逼，，，感谢大佬刚好需要

撩唇笔

RE: 继续优化文本替换 [修改]

lu12a

看看帖子里藏了啥好东西~~~

爱你N年

谢谢分享。

sinewtec

开源精神必须支持~

tseed

开源精神必须支持~

cfvgbhnj

开源精神必须支持~