COBOL程序用于文件编码转换

Question

我需要将文本文件从utf8转换为cp1251.我不能使用任何第三方软件.是否有任何用COBOL编写的例程？这是Windows上的Micro Focus Cobol.

Answer 1

答:为此编写了很多COBOL例程......

我不知道任何免费(=实际使用它的自由开源)实现,但你可以轻松地自己编写它.只需通过源并将其移动到目标,如果cp1251中没有符号,请使用'？' 管他呢.这里唯一的工作:你需要从x'80'及以上查找128个字符...

或者您检查MF是否具有某些特定扩展名,或者您自己编写.在SO处没有"请为我编码",所以你应该展示你已经尝试过的东西.

为了让你有一个想法看看这个javascript示例的转换,应该是(未经测试的代码):

       77  utf-8-field     PIC X(5000).
       77  new-char        PIC X.
       77  cp1251-field    PIC X(5000).
       77  utf-8-pos       PIC 9(04) COMP-5.
       77  cp1251-pos      PIC 9(04) COMP-5.
       77  utf-8-end       PIC 9(04) COMP-5.

       MOVE FUNCTION LENGTH ( FUNCTION TRIM (utf-8-field TRAILING) )
         TO utf-8-end
       MOVE 1 TO cp1251-pos
       PERFORM VARYING utf-8-pos FROM 1 BY 1
               UNTIL   utf-8-pos = utf-8-end
          EVALUATE TRUE
             *> normal ASCII character
             WHEN utf-8-field (utf-8-pos) < x'80'
                MOVE utf-8-field (utf-8-pos) TO new-char
             *> UTF-8 in CP1251 range
             WHEN utf-8-field (utf-8-pos) < x'04'
                *> skip the first byte
                ADD 1 TO utf-8-pos
                EVALUATE TRUE
                   WHEN utf-8-pos > utf-8-end
                      MOVE '?'   TO new-char
                   WHEN utf-8-field (utf-8-pos)  = x'51'
                      MOVE x'B8' TO new-char
                   WHEN utf-8-field (utf-8-pos) >= x'4F'
                      MOVE '?'   TO new-char
                   *> alternative: use alphabet conversion here
                   WHEN utf-8-field (utf-8-pos)  = x'01'
                      MOVE x'A8' TO new-char
                   WHEN OTHER
                      MOVE utf-8-field (utf-8-pos) TO new-char
                      INSPECT new-char CONVERTING x'0203 ...
                                       TO         x'B2B2 ...
                END-EVALUATE
             *> UTF-8 with no CP1251 char 
             *> Todo: check for other multibyte headers and add the correct
             *>       number of characters to utf-8-pos
             *> WHEN ...
             WHEN OTHER
                MOVE '?' TO new-char
          END-EVALUATE
          STRING new-char
                 DELIMITED BY SIZE
                 INTO cp1251-field
                 WITH POINTER cp1251-pos
          END-STRING
       END-PERFORM

您可能想要ALPHABET为CONVERTING x'0203 ... TO x'B2B3 ...零件定义:

       SPECIAL-NAMES.
          ALPHABET UTF8-PART-2 IS x'01', x'02' THRU x'4F', x'51'.
          ALPHABET CP1251      IS x'A8', x'B2' THRU x'FF', x'B8'.

并在内在EVALUATE使用

           MOVE utf-8-field (utf-8-pos) TO new-char
           INSPECT new-char CONVERTING UTF8-PART-2 TO CP1251