数组_删除成员_成员名

曜辉

不错,最近正好需要这个功能的说,收藏了!

2B不止铅笔还

不错不错不错不错

waiting2012

精易有你更精彩

治愈勇者

谢谢大佬分享 支持支持

rghya520

  

子程序名	返回值类型	公开	备 注
数组_删除成员_整数型	整数型		删除数组内指定内容的成员，返回删除后的数组成员数
参数名	类 型	参考	可空	数组	备 注
数组	整数型				要删除成员的数组
成员名	整数型				要删除的成员名

变量名	类 型	静态	数组	备 注
临时数组	整数型		0
n	整数型

计次循环首 (取数组成员数 (数组), n)  ' 数组内成员逐一与要删除的成员名比对
如果真 (数组 [n] ≠ 成员名)  ' 成员非欲删除的目标时加回原数组
加入成员 (临时数组, 数组 [n])

计次循环尾 ()
数组 ＝ 临时数组
返回 (取数组成员数 (数组))

.版本 2<br /> <br /> <br /> .子程序 数组_删除成员_整数型, 整数型, , 删除数组内指定内容的成员，返回删除后的数组成员数<br /> .参数 数组, 整数型, 参考 数组, 要删除成员的数组<br /> .参数 成员名, 整数型, , 要删除的成员名<br /> .局部变量 临时数组, 整数型, , "0"<br /> .局部变量 n, 整数型<br /> <br /> .计次循环首 (取数组成员数 (数组), n)  ' 数组内成员逐一与要删除的成员名比对<br />     .如果真 (数组 [n] ≠ 成员名)  ' 成员非欲删除的目标时加回原数组<br />         加入成员 (临时数组, 数组 [n])<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 数组 ＝ 临时数组<br /> 返回 (取数组成员数 (数组))

好像这样就可以了吧  不用那么繁琐

rghya520

11111111111111111111111111

APPLEUFO

这写的晕了   清除数组两次了

临时成员 函数刚开始，不用清除
不用清除 ，全部文件赋值到临时数组
再原始数组=  临时数组就OK了

airaz

建议加入精易模块

gaoqing

谢谢分享

2446789312