我也发个 数组_合并

神女软件定制

  

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

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
arr	文本型		0

arr ＝ { “1234567890123456123456789012345612345678901234561234567890123456”, “1234567890123456” }
调试输出 (数组_合并 (arr, “<->”))

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

变量名	类 型	静态	数组	备 注
count	整数型
sptlen	整数型
size	整数型
p	整数型
pos	整数型
i	整数型
len	整数型
temp	文本型

count ＝ 取数组成员数 (cs_数组)  ' 缓存成员数
sptlen ＝ 取文本长度 (cs_分隔符) ＋ 1
size ＝ 16 × count  ' 初始分配大小，合理的认为，每个文本成员大约16个字符
p ＝ 申请内存 (size, )
计次循环首 (count, i)
len ＝ 取文本长度 (cs_数组 [i])
如果真 (pos ＋ len ＋ sptlen ＞ size)  ' 如果内存装不下了。
size ＝ size × 2  ' 在原来基础上分配两倍内存
调试输出 (“不够了，重分配”)  ' 如果还是装不下
如果真 (pos ＋ len ＋ sptlen ＞ size)  ' 就老老实实分配刚好能装下的内存
size ＝ pos ＋ len ＋ sptlen
调试输出 (“*2依然不够，分配刚好满足的内存”)
p ＝ api_LocalReAlloc (p, size, 2)  ' 2=LMEM_MOVEABLE
写到内存 (cs_数组 [i], p ＋ pos, len)
写到内存 (cs_分隔符, p ＋ pos ＋ len, sptlen)
pos ＝ pos ＋ len ＋ sptlen － 1
计次循环尾 ()
如果真 (pos ≠ 0)
写到内存 (0, p ＋ pos － sptlen ＋ 1, 1)  ' 取消掉最后一次添加的分隔符
temp ＝ 指针到文本 (p)
释放内存 (p)
返回 (temp)

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 arr, 文本型, , "0"<br /> <br /> arr ＝ { “1234567890123456123456789012345612345678901234561234567890123456”, “1234567890123456” }<br /> 调试输出 (数组_合并 (arr, “<->”))<br /> <br /> .子程序 数组_合并, 文本型<br /> .参数 cs_数组, 文本型, 数组<br /> .参数 cs_分隔符, 文本型<br /> .局部变量 count, 整数型<br /> .局部变量 sptlen, 整数型<br /> .局部变量 size, 整数型<br /> .局部变量 p, 整数型<br /> .局部变量 pos, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 len, 整数型<br /> .局部变量 temp, 文本型<br /> <br /> count ＝ 取数组成员数 (cs_数组)  ' 缓存成员数<br /> sptlen ＝ 取文本长度 (cs_分隔符) ＋ 1<br /> size ＝ 16 × count  ' 初始分配大小，合理的认为，每个文本成员大约16个字符<br /> p ＝ 申请内存 (size, )<br /> .计次循环首 (count, i)<br />     len ＝ 取文本长度 (cs_数组 <i>)<br />     .如果真 (pos ＋ len ＋ sptlen ＞ size)  ' 如果内存装不下了。<br />         size ＝ size × 2  ' 在原来基础上分配两倍内存<br />         调试输出 (“不够了，重分配”)  ' 如果还是装不下<br />         .如果真 (pos ＋ len ＋ sptlen ＞ size)  ' 就老老实实分配刚好能装下的内存<br />             size ＝ pos ＋ len ＋ sptlen<br />             调试输出 (“*2依然不够，分配刚好满足的内存”)<br />         .如果真结束<br />         p ＝ api_LocalReAlloc (p, size, 2)  ' 2=LMEM_MOVEABLE<br />     .如果真结束<br />     写到内存 (cs_数组 <i>, p ＋ pos, len)<br />     写到内存 (cs_分隔符, p ＋ pos ＋ len, sptlen)<br />     pos ＝ pos ＋ len ＋ sptlen － 1<br /> .计次循环尾 ()<br /> .如果真 (pos ≠ 0)<br />     写到内存 (0, p ＋ pos － sptlen ＋ 1, 1)  ' 取消掉最后一次添加的分隔符<br /> .如果真结束<br /> temp ＝ 指针到文本 (p)<br /> 释放内存 (p)<br /> 返回 (temp)

tt.e (4.37 KB, 下载次数: 15)

2020-12-30 20:48 上传

点击文件名下载附件

外星星人

感谢分享哦