用 html 实体替换字符的 COBOL 代码

Question

我想用 COBOL 将字符 '' 替换为 < 和 >。我想知道 INSPECT 语句，但看起来这个语句只能用来翻译一个字符。我的意图是用它们的 html 实体替换所有 html 字符。

有人能想出办法吗？也许循环遍历字符串并测试每个字符是唯一的方法？

欢迎使用 GnuCOBOL 或 IBM COBOL 示例。

我最好的代码是这样的：(http://ideone.com/MKiAc6)

IDENTIFICATION DIVISION.
PROGRAM-ID. HTMLSECURE.

ENVIRONMENT DIVISION.

DATA DIVISION.
WORKING-STORAGE SECTION.
77 INPTXT PIC X(50).
77 OUTTXT PIC X(500).
77 I PIC 9(4) COMP VALUE 1.
77 P PIC 9(4) COMP VALUE 1.

PROCEDURE DIVISION.
    MOVE 1 TO P
    MOVE '<SCRIPT> TEST TEST </SCRIPT>' TO INPTXT

    PERFORM VARYING I FROM 1 BY 1
            UNTIL I EQUAL LENGTH OF INPTXT

        EVALUATE INPTXT(I:1)
            WHEN '<'
                MOVE "&lt;" TO OUTTXT(P:4)
                ADD 4 TO P
            WHEN '>'
                MOVE "&gt;" TO OUTTXT(P:4)
                ADD 4 TO P
            WHEN OTHER
                MOVE INPTXT(I:1) TO OUTTXT(P:1)
                ADD 1 TO P
        END-EVALUATE
    END-PERFORM

    DISPLAY OUTTXT

    STOP RUN
    .

Answer 1

GnuCOBOL（是的，另一个名称品牌更改）有一个内在的功能扩展，FUNCTION SUBSTITUTE。

move function substitute(inptxt, ">", "&gt;", "<", "&lt;") to where-ever-including-inptxt

接受一个主题字符串，以及成对的模式和替换。 （这不是正则表达式模式，直接文本匹配）。有关更多详细信息，请参阅http://opencobol.add1tocobol.com/gnucobol/#function-substitute。模式和替换都可以是不同的长度。

由于内部函数返回匿名 COBOL 字段，因此函数的结果可用于覆盖主题字段，而无需担心滑动重叠或其他“边读边更改”问题。

Answer 2

COBOL 是一种固定长度字段的语言。所以不，INSPECT 不会做你想做的事。

如果您在 IBM 大型机上需要此功能，您的 SORT 产品（假设足够最新）可以使用 FINDREP 完成此操作。

如果您查看 Enterprise COBOL 中的 XML 处理可能性，您会发现它们完全符合您的要求（我猜）。 GnuCOBOL 还可以轻松地与许多其他事物交互。如果您正在编写 GnuCOBOL 以在非大型机上运行，​​我建议您咨询 SourceForge 的 GnuCOBOL 部分。

否则，是的，这将归结为循环遍历数据。一旦你更清楚你想要什么，如果你仍然需要它们，你可能会得到一些例子。