rexx - 删除表中的重复项（rexx 语言）

Question

我有一个关于删除表中的重复项（rexx 语言）的问题，我在使用 rexx 语言的 netphantom 应用程序上。
我需要一个关于如何删除表中重复项的示例。

不过，我确实有一个想法，比如对这两个表 A 和 B 使用两个循环，但我对此并不熟悉。

我的情况是：

rc = PanlistInsertData('A',0,SAMPLE)

表 A（此表有重复数据）

123   
1   
1234   
12   
123   
1234   

我需要像这样将这些重复数据过滤到表 B 中：

123   
1234   
1   
12    

Answer 1

您可以使用lookup stem variables来测试您是否已经找到了一个值。这应该可以工作（注意我没有测试过，所以可能有语法错误）

no=0;
yes=1

lookup. = no   /* initialize the stem to no, not strictly needed */
j=0
do i = 1 to in.0
   v = in.i
   if lookup.v <> yes then do
       j = j + 1
       out.j = v
       lookup.v = yes
   end
end
out.0 = j

Answer 2

您可以通过以下方式消除重复项：

1. 如果 InStem 第一个元素，将元素移动到 OutStem 否则检查当前 InStem 元素的所有 OutStem 元素
2. 如果找到元素，则迭代到下一个 InStem 元素否则将 InStem 元素添加到 OutStem

代码片段：

/*Input Stem - InStem.
  Output Stem - OutStem.
  Array Counters - I, J, K */

J = 1
DO I = 1 TO InStem.0
   IF I = 1 THEN
      OutStem.I = InStem.I
   ELSE
      DO K = 1 TO J
         IF (InStem.I ?= OutStem.K) & (K = J) THEN
         DO
            J = J + 1
            OutStem.J = InStem.I
         END
         ELSE
         DO
            IF (InStem.I == OutStem.K) THEN
               ITERATE I
         END
      END
END
OutStem.0 = J

希望这可以帮助。