精易模块命令 数组_合并_快速 bug

540760448

特定内容下(也没找到特殊在哪里) 使用 数组_合并_快速 有一个分隔符 变成了 字符(13) 原本是逗号的 相同数组 使用 数组_合并 内容正常 数组合并bug重现.e (898.16 KB, 下载次数: 4)

2023-3-16 20:17 上传

点击文件名下载附件

老陈

福仔 发表于 2023-3-16 21:59
[e=1]
.版本 2

合并600w的手机号，会出现闪退的情况

福仔

  

子程序名	返回值类型	公开	备 注
数组_合并_快速	文本型		@福仔 把数组里所有的成员组合成一个文本
参数名	类 型	参考	可空	数组	备 注
欲处理的数组	文本型
间隔符	文本型

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

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


计次循环首 (len, i)
pStr ＝ __get (pArr, (i － 1) × 4)  ' 取出数组成员
如果真 (pStr ≠ 0)
nStr ＝ strlen (pStr)  ' 成员长度
如果真 (offset ＋ nStr ＞ bufSize)  ' 内存超了, 需要重新分配
数组_合并_快速_重新分配内存 (pBuf, bufSize, nStr)

memcpy (pBuf ＋ offset, pStr, nStr)
offset ＝ offset ＋ nStr

如果真 (pSub ≠ 0 且 i ＜ len)
如果真 (offset ＋ nSub ＞ bufSize)
数组_合并_快速_重新分配内存 (pBuf, bufSize, nSub)

memcpy (pBuf ＋ offset, pSub, nSub)
offset ＝ offset ＋ nSub

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

子程序名	返回值类型	公开	备 注
数组_合并_快速_重新分配内存			把原地址和内存尺寸传递进来重新分配内存, 参考接收新的缓冲区尺寸和内存地址
参数名	类 型	参考	可空	数组	备 注
pBuf	整数型
bufSize	整数型
dataSize	整数型				需要加入到内存里的数据尺寸

变量名	类 型	静态	数组	备 注
tmpSize	整数型
pTmp	整数型

tmpSize ＝ bufSize
bufSize ＝ bufSize × 2 ＋ dataSize  ' 原来的内存扩充一倍再加上新加入的数据尺寸
' pBuf ＝ realloc (bufSize)
pTmp ＝ malloc (bufSize)
memcpy (pTmp, pBuf, tmpSize)  ' 拷贝原来的数据, 然后释放
free (pBuf)
pBuf ＝ pTmp

.版本 2<br /> <br /> .子程序 数组_合并_快速, 文本型, 公开, <a href="https://bbs.125.la/home.php?mod=space&uid=320499" target="_blank">@福仔</a> 把数组里所有的成员组合成一个文本<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 /> len ＝ 取数组成员数 (欲处理的数组)<br /> .如果真 (len ＝ 0)<br />     返回 (“”)<br /> .如果真结束<br /> pArr ＝ 取数据_通用型_数组 (欲处理的数组)  ' 数组数据指针<br /> bufSize ＝ len × 260  ' 缓冲区长度<br /> pBuf ＝ malloc (bufSize ＋ 1)  ' 缓冲区<br /> .如果真 (取反 (是否为空 (间隔符)))  ' 间隔符<br />     pSub ＝ 取指针_文本型 (间隔符)<br />     .如果真 (pSub ≠ 0)  ' 防止用户传递 字符(0)<br />         nSub ＝ strlen (pSub)<br />     .如果真结束<br /> <br /> .如果真结束<br /> <br /> .计次循环首 (len, i)<br />     pStr ＝ __get (pArr, (i － 1) × 4)  ' 取出数组成员<br />     .如果真 (pStr ≠ 0)<br />         nStr ＝ strlen (pStr)  ' 成员长度<br />         .如果真 (offset ＋ nStr ＞ bufSize)  ' 内存超了, 需要重新分配<br />             数组_合并_快速_重新分配内存 (pBuf, bufSize, nStr)<br />         .如果真结束<br /> <br />         memcpy (pBuf ＋ offset, pStr, nStr)<br />         offset ＝ offset ＋ nStr<br />     .如果真结束<br /> <br />     .如果真 (pSub ≠ 0 且 i ＜ len)<br />         .如果真 (offset ＋ nSub ＞ bufSize)<br />             数组_合并_快速_重新分配内存 (pBuf, bufSize, nSub)<br />         .如果真结束<br /> <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)<br /> <br /> .子程序 数组_合并_快速_重新分配内存, , , 把原地址和内存尺寸传递进来重新分配内存, 参考接收新的缓冲区尺寸和内存地址<br /> .参数 pBuf, 整数型, 参考<br /> .参数 bufSize, 整数型, 参考<br /> .参数 dataSize, 整数型, , 需要加入到内存里的数据尺寸<br /> .局部变量 tmpSize, 整数型<br /> .局部变量 pTmp, 整数型<br /> <br /> tmpSize ＝ bufSize<br /> bufSize ＝ bufSize × 2 ＋ dataSize  ' 原来的内存扩充一倍再加上新加入的数据尺寸<br /> ' pBuf ＝ realloc (bufSize)<br /> pTmp ＝ malloc (bufSize)<br /> memcpy (pTmp, pBuf, tmpSize)  ' 拷贝原来的数据, 然后释放<br /> free (pBuf)<br /> pBuf ＝ pTmp

@项目部004 原来的命令改成这两个命令