sqr - SQR 按位置而不是多个 IF LET ENDIF 替换

Question

在将代码从一个数据库翻译到另一个数据库时，我必须为每个代码使用一个 IF LET ENDIF。IF $CODE = 'A11' LET $CODE = 'AAA' END-IF IF $CODE = 'B11' LET $CODE = 'BBB' END-IF IF $CODE = 'C11' LET $CODE = 'CCC' END-如果。. .ad 恶心

SQR 有没有办法进行位置替换？替换（'A11'，'B11'，'C11'）IN（'AAA'，'BBB'，'CCC'）

谢谢，大卫

Answer 1

不幸的是，LET 语句的 REPLACE 和 TRANSLATE 子命令都只允许进行一次转换。

作为多个 if-then-else 的替代方案，您可以使用 Evaluate 语句：

Evaluate $Code
   When = 'A11'
      Let $Code = 'AAA'
   When = 'B11'
      Let $Code = 'BBB'
   When-Other
End-Evaluate

这将使代码更容易审查并且不那么冗长。