过滤一个文本的问题

王则

  

变量名	类 型	静态	数组	备 注
Str	文本型
sort	文本型		0
i	整数型
对比数组	文本型		0
a	整数型
_右值	文本型		0
重复	逻辑型
_对比右值	文本型		0
非重复数组	文本型		0

Str ＝ 编辑框1.内容
sort ＝ 分割文本 (Str, #换行符, )
对比数组 ＝ sort
计次循环首 (取数组成员数 (sort), i)
_右值 ＝ 分割文本 (sort [i], “|”, )
计次循环首 (取数组成员数 (对比数组), a)
_对比右值 ＝ 分割文本 (对比数组 [a], “|”, )
如果真 (到整数 (_右值 [2]) ＝ 到整数 (_对比右值 [2]) 且 i ≠ a)
重复 ＝ 真
跳出循环 ()
重复 ＝ 假
处理事件 ()
计次循环尾 ()
计次循环首 (取数组成员数 (_对比右值), )
如果真 (取绝对值 (到整数 (_右值 [2]) － 到整数 (_对比右值 [2])) ≤ 5)
重复 ＝ 真
跳出循环 ()
重复 ＝ 假
处理事件 ()
计次循环尾 ()
如果真 (取反 (重复))
加入成员 (非重复数组, sort [i])

计次循环尾 ()
调试输出 (非重复数组)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 Str, 文本型<br /> .局部变量 sort, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 对比数组, 文本型, , "0"<br /> .局部变量 a, 整数型<br /> .局部变量 _右值, 文本型, , "0"<br /> .局部变量 重复, 逻辑型<br /> .局部变量 _对比右值, 文本型, , "0"<br /> .局部变量 非重复数组, 文本型, , "0"<br /> <br /> Str ＝ 编辑框1.内容<br /> sort ＝ 分割文本 (Str, #换行符, )<br /> 对比数组 ＝ sort<br /> .计次循环首 (取数组成员数 (sort), i)<br />     _右值 ＝ 分割文本 (sort <i>, “|”, )<br />     .计次循环首 (取数组成员数 (对比数组), a)<br />         _对比右值 ＝ 分割文本 (对比数组 [a], “|”, )<br />         .如果真 (到整数 (_右值 [2]) ＝ 到整数 (_对比右值 [2]) 且 i ≠ a)<br />             重复 ＝ 真<br />             跳出循环 ()<br />         .如果真结束<br />         重复 ＝ 假<br />         处理事件 ()<br />     .计次循环尾 ()<br />     .计次循环首 (取数组成员数 (_对比右值), )<br />         .如果真 (取绝对值 (到整数 (_右值 [2]) － 到整数 (_对比右值 [2])) ≤ 5)<br />             重复 ＝ 真<br />             跳出循环 ()<br />         .如果真结束<br />         重复 ＝ 假<br />         处理事件 ()<br />     .计次循环尾 ()<br />     .如果真 (取反 (重复))<br />         加入成员 (非重复数组, sort <i>)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 调试输出 (非重复数组)

编辑框1的内容=
209|277
206|278
207|278
208|278
209|278
210|278
211|278
206|279
207|279
208|279
209|279
210|279
211|279
212|279
207|280
208|280
209|280
210|280
211|280
207|281
208|281
209|281
210|281
209|282
202|283
203|283


我这样是过滤掉他们右边相同的，并且把右边相差为5的也一起过滤掉。
按理说过滤完，非重复数组应该为空的，但是我过滤完还剩一组文本
* 数组:1{“209|277”}
有没有帮忙完善，修改一下的

leiyh

[e].版本 2
.支持库 EDataStructure
.支持库 spec

.子程序 _按钮1_被单击

子程序1 (#常量1)

.子程序 子程序1
.参数 str, 文本型
.局部变量 ary, 文本型, , "0"
.局部变量 node, 节点
.局部变量 temp, 文本型
.局部变量 result, 文本型
.局部变量 a, 文本型, , "0"
.局部变量 i, 整数型

ary ＝ 分割文本 (str, #换行符, )
.计次循环首 (取数组成员数 (ary), i)
    a ＝ 分割文本 (ary , “|”, )
    .如果真 (node.加入属性 (a [2], “”) 且 到整数 (a [2]) － 到整数 (a [1]) ＞ 5)
        result ＝ result ＋ ary ＋ #换行符
    .如果真结束

.计次循环尾 ()
调试输出 (result)
[/e]

专解人衣

2楼大神哦2楼大神哦

王则

leiyh 发表于 2017-2-28 02:05
[e].版本 2
.支持库 EDataStructure
.支持库 spec

这样写不行，过滤一下还剩好多个