另一个数组_合并

神女软件定制

  

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

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

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

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

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

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

count ＝ 取数组成员数 (cs_数组)
sptlen ＝ 取文本长度 (cs_分隔符)
size ＝ 16 × count
p ＝ 申请内存 (size, 真)
计次循环首 (count, i)
len ＝ 取文本长度 (cs_数组 [i]) ＋ sptlen
判断循环首 (size ＜ pos ＋ len)
size ＝ size × 2
判断循环尾 ()
p ＝ api_LocalReAlloc (p, size, 2)
写到内存 (cs_数组 [i] ＋ cs_分隔符, p ＋ pos, len)
pos ＝ pos ＋ len
计次循环尾 ()
如果真 (pos ≠ 0)
写到内存 (0, p ＋ pos － sptlen, 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_分隔符)<br /> size ＝ 16 × count<br /> p ＝ 申请内存 (size, 真)<br /> .计次循环首 (count, i)<br />     len ＝ 取文本长度 (cs_数组 <i>) ＋ sptlen<br />     .判断循环首 (size ＜ pos ＋ len)<br />         size ＝ size × 2<br />     .判断循环尾 ()<br />     p ＝ api_LocalReAlloc (p, size, 2)<br />     写到内存 (cs_数组 <i> ＋ cs_分隔符, p ＋ pos, len)<br />     pos ＝ pos ＋ len<br /> .计次循环尾 ()<br /> .如果真 (pos ≠ 0)<br />     写到内存 (0, p ＋ pos － sptlen, 1)<br /> .如果真结束<br /> temp ＝ 指针到文本 (p)<br /> 释放内存 (p)<br /> 返回 (temp)

ghost12

感谢分享，很给力！~

APPLEUFO

六的不行   跑的飞快
比53770贴出来 那段， 还快了五到10倍

124149449

不明真相的吃瓜群众路过~\赶紧买个瓜围观

外星星人

支持楼主。

宋大宝

66666666666666

53770zhang

  

子程序名	返回值类型	公开	备 注
数组_转文本	文本型		将文本数组的内容合并到一个文本变量中
参数名	类 型	参考	可空	数组	备 注
文本数组	文本型
添加分隔符	文本型

变量名	类 型	静态	数组	备 注
缓冲区	整数型			内存缓冲区
新缓冲区	整数型
内容长度	整数型
缓冲区大小	整数型
计数器	整数型
文本串	文本型
文本长度	整数型
返回值	文本型

' 初始化缓冲区为10M大小
缓冲区大小 ＝ 1024 × 1024 × 10
缓冲区 ＝ 申请内存 (缓冲区大小, )
计次循环首 (取数组成员数 (文本数组), 计数器)
文本串 ＝ 文本数组 [计数器]
文本长度 ＝ 取文本长度 (文本串 ＋ 添加分隔符)
' 如果缓冲区使用过半时增加缓冲区大小
如果真 (缓冲区大小 × 0.8 ＜ 内容长度 ＋ 文本长度)
新缓冲区 ＝ 申请内存 (缓冲区大小 × 1.5, )
缓冲区大小 ＝ 缓冲区大小 × 1.5
写到内存 (指针到字节集 (缓冲区, 内容长度), 新缓冲区, )
释放内存 (缓冲区)
缓冲区 ＝ 新缓冲区
写到内存 (文本串 ＋ 添加分隔符, 缓冲区 ＋ 内容长度, )
内容长度 ＝ 内容长度 ＋ 文本长度
计次循环尾 ()
返回值 ＝ 到文本 (指针到字节集 (缓冲区, 内容长度 － 取文本长度 (添加分隔符)))
释放内存 (缓冲区)
返回 (返回值)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 数组_转文本, 文本型, 公开, 将文本数组的内容合并到一个文本变量中<br /> .参数 文本数组, 文本型, 数组<br /> .参数 添加分隔符, 文本型, 可空<br /> .局部变量 缓冲区, 整数型, , , 内存缓冲区<br /> .局部变量 新缓冲区, 整数型<br /> .局部变量 内容长度, 整数型<br /> .局部变量 缓冲区大小, 整数型<br /> .局部变量 计数器, 整数型<br /> .局部变量 文本串, 文本型<br /> .局部变量 文本长度, 整数型<br /> .局部变量 返回值, 文本型<br /> <br /> ' 初始化缓冲区为10M大小<br /> 缓冲区大小 ＝ 1024 × 1024 × 10<br /> 缓冲区 ＝ 申请内存 (缓冲区大小, )<br /> .计次循环首 (取数组成员数 (文本数组), 计数器)<br />     文本串 ＝ 文本数组 [计数器]<br />     文本长度 ＝ 取文本长度 (文本串 ＋ 添加分隔符)<br />     ' 如果缓冲区使用过半时增加缓冲区大小<br />     .如果真 (缓冲区大小 × 0.8 ＜ 内容长度 ＋ 文本长度)<br />         新缓冲区 ＝ 申请内存 (缓冲区大小 × 1.5, )<br />         缓冲区大小 ＝ 缓冲区大小 × 1.5<br />         写到内存 (指针到字节集 (缓冲区, 内容长度), 新缓冲区, )<br />         释放内存 (缓冲区)<br />         缓冲区 ＝ 新缓冲区<br />     .如果真结束<br />     写到内存 (文本串 ＋ 添加分隔符, 缓冲区 ＋ 内容长度, )<br />     内容长度 ＝ 内容长度 ＋ 文本长度<br /> .计次循环尾 ()<br /> 返回值 ＝ 到文本 (指针到字节集 (缓冲区, 内容长度 － 取文本长度 (添加分隔符)))<br /> 释放内存 (缓冲区)<br /> 返回 (返回值)

@jr20166 写的  

汉族

今天  是个  热闹的时间点啊~~ 是不是 各位大佬都在迎接 2021的到来