听说你们在优化 数组_合并() ?

福仔

  

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

变量名	类 型	静态	数组	备 注
pArr	整数型			数组指针
len	整数型			数组长度
i	整数型
bufSize	整数型
pBuf	整数型
pSub	整数型
nSub	整数型
offset	整数型
strLen	整数型
pStr	整数型
nStr	整数型
pTmp	整数型
tmpSize	整数型
ret	文本型

pArr ＝ 取数据_通用型_数组 (欲处理的数组)  ' 数组数据指针
len ＝ 取数组成员数 (欲处理的数组)
bufSize ＝ len × 260  ' 缓冲区长度
pBuf ＝ malloc (bufSize ＋ 1)  ' 缓冲区
如果真 (取反 (是否为空 (间隔符)))  ' 间隔符
pSub ＝ 取指针_文本型 (间隔符)
nSub ＝ strlen (pSub)

计次循环首 (len, i)
pStr ＝ __get (pArr, (i － 1) × 4)  ' 取出数组成员
如果真 (pStr ＝ 0)
到循环尾 ()
nStr ＝ strlen (pStr)  ' 成员长度
如果真 (offset ＋ nStr ＞ bufSize)  ' 内存超了, 需要重新分配
tmpSize ＝ bufSize
bufSize ＝ bufSize × 2 ＋ nStr  ' 原来是内存扩充一倍
pTmp ＝ malloc (bufSize)
memcpy (pTmp, pBuf, tmpSize)  ' 拷贝原来的数据, 然后释放
free (pBuf)
pBuf ＝ pTmp

memcpy (pBuf ＋ offset, pStr, nStr)
offset ＝ offset ＋ nStr
如果真 (pSub ≠ 0 且 i ＜ len)
memcpy (pBuf ＋ offset, pSub, nSub)
offset ＝ offset ＋ nSub

计次循环尾 ()
__set_byte (pBuf, offset, 0)  ' 结束标识
ret ＝ 指针到文本 (pBuf)
free (pBuf)
返回 (ret)

.版本 2<br /> <br /> .子程序 数组_合并, 文本型<br /> .参数 欲处理的数组, 文本型, 数组<br /> .参数 间隔符, 文本型, 可空<br /> .局部变量 pArr, 整数型, , , 数组指针<br /> .局部变量 len, 整数型, , , 数组长度<br /> .局部变量 i, 整数型<br /> .局部变量 bufSize, 整数型<br /> .局部变量 pBuf, 整数型<br /> .局部变量 pSub, 整数型<br /> .局部变量 nSub, 整数型<br /> .局部变量 offset, 整数型<br /> .局部变量 strLen, 整数型<br /> .局部变量 pStr, 整数型<br /> .局部变量 nStr, 整数型<br /> .局部变量 pTmp, 整数型<br /> .局部变量 tmpSize, 整数型<br /> .局部变量 ret, 文本型<br /> <br /> pArr ＝ 取数据_通用型_数组 (欲处理的数组)  ' 数组数据指针<br /> len ＝ 取数组成员数 (欲处理的数组)<br /> bufSize ＝ len × 260  ' 缓冲区长度<br /> pBuf ＝ malloc (bufSize ＋ 1)  ' 缓冲区<br /> .如果真 (取反 (是否为空 (间隔符)))  ' 间隔符<br />     pSub ＝ 取指针_文本型 (间隔符)<br />     nSub ＝ strlen (pSub)<br /> .如果真结束<br /> <br /> .计次循环首 (len, i)<br />     pStr ＝ __get (pArr, (i － 1) × 4)  ' 取出数组成员<br />     .如果真 (pStr ＝ 0)<br />         到循环尾 ()<br />     .如果真结束<br />     nStr ＝ strlen (pStr)  ' 成员长度<br />     .如果真 (offset ＋ nStr ＞ bufSize)  ' 内存超了, 需要重新分配<br />         tmpSize ＝ bufSize<br />         bufSize ＝ bufSize × 2 ＋ nStr  ' 原来是内存扩充一倍<br />         pTmp ＝ malloc (bufSize)<br />         memcpy (pTmp, pBuf, tmpSize)  ' 拷贝原来的数据, 然后释放<br />         free (pBuf)<br />         pBuf ＝ pTmp<br />     .如果真结束<br /> <br />     memcpy (pBuf ＋ offset, pStr, nStr)<br />     offset ＝ offset ＋ nStr<br />     .如果真 (pSub ≠ 0 且 i ＜ len)<br />         memcpy (pBuf ＋ offset, pSub, nSub)<br />         offset ＝ offset ＋ nSub<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> __set_byte (pBuf, offset, 0)  ' 结束标识<br /> <br /> ret ＝ 指针到文本 (pBuf)<br /> free (pBuf)<br /> 返回 (ret)

数组_合并.e (40.96 KB, 下载次数: 41)

2020-12-30 19:39 上传

点击文件名下载附件
我有点方, 这标题是不是太狂了?

易造轮

咋还原回文本数组

Strator

我鼠标右键传入的路径带空格，用取命令行会变成数组，需要合并，有没有别的办法？

Xiaochuzhang

我寻思谁来个字节集的啊

a3960382663

这个功能有啥用啊...

外星星人

支持一下下

神女软件定制

福仔 发表于 2020-12-30 21:06
@神一样的女人 你看一下扩充2倍之后还做了什么操作

哦哦，加上去了，我也写了个，回来看你这个，以为找到了bug

福仔

@神一样的女人 你看一下扩充2倍之后还做了什么操作

汉族

也是比较冷门的命令但是在 一些小伙伴识别训练上有些人喜欢用数组  保存时需要转 就可能用到了

宋大宝

我是Rw

这个命令我很常用 看看和精易模块哪一个效率更好