xjxing213 的 数组成员过滤 论坛自动把[i]屏蔽了

cjxdn

1. //列子1:言术
   
2.     变量 数组测试=数组("a","b","c","d","e","f","g")
   
3.     变量 标记=假,数组成员数=数组大小(数组测试)
   
4.     遍历(变量 i = 0; i < 数组成员数; i++)
   
5.         如果(数组测试[i] == "h")
   
6.             标记=真
   
7.         结束
   
8.         如果(标记)
   
9.             数组测试[i]=数组测试[i+1]
   
10.         结束
    
11.     结束
    
12.     如果(标记)
    
13.         数组删除末尾元素(数组测试,"")
    
14.         数组删除末尾元素(数组测试,"")
    
15.     结束
    
16.     调试输出(数组测试)
    
17. 
    
18. 
    
19. 
    
20. 
    
21.     ////例子2:
    
22.     变量 数组测试=数组("a","b","c","d","e","f","g")
    
23.     调试输出(数组测试)
    
24.     变量 数组总数=数组大小(数组测试)
    
25.     遍历(变量 i = 0; i < 数组总数; i++)
    
26.         如果(数组测试[i]=="g")
    
27.             遍历(变量 j = i; j < 数组总数; j++)
    
28.                 如果(j<数组总数-1)
    
29.                     数组测试[j]=数组测试[j+1]
    
30.                 结束
    
31.             结束
    
32.             数组删除末尾元素(数组测试,"")
    
33.             跳出//j赋值完毕,跳出多余i的遍历
    
34.         结束
    
35.     结束
    
36.     调试输出(数组测试)
    
37. 
    
38.     ////////经测试过滤a b f g都正常

复制代码

言术

大神，能不能遍历条件不用（数组成员数-1），如果删除一个不存在的字母（比如：h），那么数组结尾必然少一个。囧。。。。

言术

.....

cjxdn

言术 发表于 2016-12-7 10:46
.....

1.     变量 数组测试=数组("a","b","c","d","e","f","g"),过滤内容="b"
   
2.     调试输出(数组测试)
   
3.     变量 是否找到=字符串查找(数组测试,""=""&过滤内容&""")
   
4.     如果(是否找到!=-1)//找到需要过滤的内容
   
5.         变量 数组总数=数组大小(数组测试)
   
6.         变量 获取下标=字符串格式化("%c",字符串返回字符(数组测试,是否找到-1))
   
7.         遍历(变量 i = 获取下标; i < 数组总数; i++)
   
8.             如果(i<数组总数-1)
   
9.                 数组测试[i]=数组测试[i+1]
   
10.             结束
    
11.         结束
    
12.         数组删除末尾元素(数组测试,"")
    
13.     结束
    
14.     调试输出(数组测试)

复制代码

大神这个例子有没有建议