数组_合并_快速命令在特定情况下会有问题

540760448

当使用易语言自带命令  分割文本 生成的数组 里面有空值的时候  数组_合并_快速  会舍弃  如果是自己定义的数组不会存在.
我先分割 然后修改部分值  再合并  空数据的那个数组就会没了 后面程序数组下标就会越界了

.版本 2
.支持库 spec

d ＝ “0||Y|2”                                                            ' 第二个元素 是空
' a [1] ＝ “0”
' a [2] ＝ “”                                                              '直接赋值的空值没问题
' a [3] ＝ “2”
a ＝ 分割文本 (d, “|”, )
调试输出 (a)  ' 数组:4{“0”,“”,“Y”,“2”}
b ＝ 数组_合并_快速 (a, “|”)
调试输出 (b)                                                         ' “0|Y|2” 空值 没了

540760448

850536360 发表于 2021-6-19 11:34
[e=1].版本 2

.子程序 数组_合并_快速, 文本型, 公开, @福仔 把数组里所有的成员组合成一个文本

修改测试无误.正解

850536360

  

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

变量名	类 型	静态	数组	备 注
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)  ' 修复成员指针为0时，不复制间隔符
nStr ＝ strlen (pStr)  ' 成员长度
如果真 (offset ＋ nStr ＞ bufSize)  ' 内存超了, 需要重新分配
tmpSize ＝ bufSize
bufSize ＝ bufSize × 2 ＋ nStr  ' 原来是内存扩充一倍
' pBuf ＝ realloc (bufSize)
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 /> 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)  ' 修复成员指针为0时，不复制间隔符<br />         nStr ＝ strlen (pStr)  ' 成员长度<br />         .如果真 (offset ＋ nStr ＞ bufSize)  ' 内存超了, 需要重新分配<br />             tmpSize ＝ bufSize<br />             bufSize ＝ bufSize × 2 ＋ nStr  ' 原来是内存扩充一倍<br />             ' pBuf ＝ realloc (bufSize)<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 />     .如果真结束<br /> <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)

850536360

重复内容