数组_合并() 改进.

Mr.Yang

[精易模块]  数组_合并() 命令 建议  增加   或    改进
https://bbs.125.la/forum.php?mod=viewthread&tid=14655347

感谢 @汉族 提供方案.


在此方案上我稍微优化了一下.


解决了内存长度上限,长度越界,释放内存的问题.

  

子程序名	返回值类型	公开	备 注
数组_合并	文本型
参数名	类 型	参考	可空	数组	备 注
欲处理数组	文本型
间隔符	文本型

变量名	类 型	静态	数组	备 注
返回文本	文本型
数据长度	整数型
指针地址	整数型
偏移	整数型
i	整数型

间隔符 ＝ 选择 (是否为空 (间隔符), “,”, 间隔符)
' //
计次循环首 (取数组成员数 (欲处理数组), i)
数据长度 ＝ 数据长度 ＋ 取文本长度 (欲处理数组 [i])
计次循环尾 ()
数据长度 ＝ 数据长度 ��� (取数组成员数 (欲处理数组) － 1) × 取文本长度 (间隔符)
指针地址 ＝ 内存_申请内存 (数据长度)
' //
计次循环首 (取数组成员数 (欲处理数组), i)
如果 (取数组成员数 (欲处理数组) ＝ i)
数据长度 ＝ 取文本长度 (欲处理数组 [i])
数据长度 ＝ 取文本长度 (欲处理数组 [i] ＋ 间隔符)
写到内存 (欲处理数组 [i] ＋ 间隔符, 指针地址 ＋ 偏移, 数据长度)
偏移 ＝ 偏移 ＋ 数据长度
计次循环尾 ()
' //
返回文本 ＝ 取空白文本 (偏移)
内存_复制内存 (内存_取指针_文本型 (返回文本), 指针地址, 偏移)
内存_释放内存 (指针地址)
返回 (返回文本)

子程序名	返回值类型	公开	备 注
内存_申请内存	整数型		返回指针地址.
参数名	类 型	参考	可空	数组	备 注
申请长度	整数型				申请内存区域的字节长度

返回 (HeapAlloc (GetProcessHeap (), 8, 申请长度))

子程序名	返回值类型	公开	备 注
内存_释放内存	逻辑型		释放对应的内存区域.
参数名	类 型	参考	可空	数组	备 注
指针地址	整数型

返回 (HeapFree (GetProcessHeap (), 0, 指针地址) ≠ 0)

子程序名	返回值类型	公开	备 注
内存_复制内存
参数名	类 型	参考	可空	数组	备 注
存放指针	整数型
欲复制指针	整数型
复制长度	整数型

RtlMoveMemory_整数型 (存放指针, 欲复制指针, 复制长度)

子程序名	返回值类型	公开	备 注
内存_取指针_文本型	整数型		取到的是变量在堆中的地址,和 取变量数据地址() 一样
参数名	类 型	参考	可空	数组	备 注
文本	文本型

置入代码 ({ 139, 69, 8, 139, 0, 201, 194, 4, 0 })
返回 (0)

.版本 2<br /> <br /> .子程序 数组_合并, 文本型, 公开<br /> .参数 欲处理数组, 文本型, 数组<br /> .参数 间隔符, 文本型, 可空<br /> .局部变量 返回文本, 文本型<br /> .局部变量 数据长度, 整数型<br /> .局部变量 指针地址, 整数型<br /> .局部变量 偏移, 整数型<br /> .局部变量 i, 整数型<br /> <br /> 间隔符 ＝ 选择 (是否为空 (间隔符), “,”, 间隔符)<br /> ' //<br /> .计次循环首 (取数组成员数 (欲处理数组), i)<br />     数据长度 ＝ 数据长度 ＋ 取文本长度 (欲处理数组 <i>)<br /> .计次循环尾 ()<br /> 数据长度 ＝ 数据长度 ＋ (取数组成员数 (欲处理数组) － 1) × 取文本长度 (间隔符)<br /> 指针地址 ＝ 内存_申请内存 (数据长度)<br /> ' //<br /> .计次循环首 (取数组成员数 (欲处理数组), i)<br />     .如果 (取数组成员数 (欲处理数组) ＝ i)<br />         数据长度 ＝ 取文本长度 (欲处理数组 <i>)<br />     .否则<br />         数据长度 ＝ 取文本长度 (欲处理数组 <i> ＋ 间隔符)<br />     .如果结束<br />     写到内存 (欲处理数组 <i> ＋ 间隔符, 指针地址 ＋ 偏移, 数据长度)<br />     偏移 ＝ 偏移 ＋ 数据长度<br /> .计次循环尾 ()<br /> ' //<br /> 返回文本 ＝ 取空白文本 (偏移)<br /> 内存_复制内存 (内存_取指针_文本型 (返回文本), 指针地址, 偏移)<br /> 内存_释放内存 (指针地址)<br /> 返回 (返回文本)<br /> <br /> .版本 2<br /> <br /> .子程序 内存_申请内存, 整数型, 公开, 返回指针地址.<br /> .参数 申请长度, 整数型, , 申请内存区域的字节长度<br /> <br /> 返回 (HeapAlloc (GetProcessHeap (), 8, 申请长度))<br /> <br /> .子程序 内存_释放内存, 逻辑型, 公开, 释放对应的内存区域.<br /> .参数 指针地址, 整数型<br /> <br /> 返回 (HeapFree (GetProcessHeap (), 0, 指针地址) ≠ 0)<br /> <br /> .子程序 内存_复制内存, , 公开<br /> .参数 存放指针, 整数型<br /> .参数 欲复制指针, 整数型<br /> .参数 复制长度, 整数型<br /> <br /> RtlMoveMemory_整数型 (存放指针, 欲复制指针, 复制长度)<br /> <br /> <br /> .版本 2<br /> <br /> .子程序 内存_取指针_文本型, 整数型, 公开, 取到的是变量在堆中的地址,和 取变量数据地址() 一样<br /> .参数 文本, 文本型, 参考<br /> <br /> 置入代码 ({ 139, 69, 8, 139, 0, 201, 194, 4, 0 })<br /> 返回 (0)