Question

我的任务是在cobol中反转字符串，而不使用反转函数。

到目前为止，我已经知道了：

MOVE 20 TO LOO.                       
MOVE 1  TO LOP.                       
MOVE 20 TO LOU.                       
MOVE EINA01 OF FORMAT1 TO WORTTXT1.   

PERFORM 20 TIMES                      
   MOVE WORTTXT1 (LOP:1) TO B (20:LOO)
   SUBTRACT 1 FROM LOO                
   ADD 1 TO LOP                       
   MOVE B  TO WORTTXT2 (20:LOU)       
   SUBTRACT 1 FROM LOU                
END-PERFORM.                          
MOVE WORTTXT2 TO AUSA01 OF FORMAT1.

AUSA01是输出 EINA01输入。

我现在遇到的问题是：如果我在输入字段中输入“ Hello”，我得到的只是“ 00000000000h”，他只是反转了第一个字母，但看起来应该像“ Hello”。

Answer 1

正如您所提到的，程序还必须反转空格，我建议您修改PERFORM循环，如下所示。

PERFORM 20 TIMES
MOVE WORTTXT1(LOP:1) TO B(LOO:1) 
SUBTRACT 1 FROM LOO
ADD 1 TO LOP
END-PERFORM.

完整程序：

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO-WORLD.
DATA DIVISION.
WORKING-STORAGE SECTION. 
01 EINA01 PIC X(20) VALUE 'Srinivasan          '.
01 WORTTXT1 PIC X(20) VALUE SPACES.
01 WORTTXT2 PIC X(20) VALUE SPACES.
01 AUSA01 PIC X(20) VALUE SPACES.
01 B PIC X(20) VALUE SPACES. 
01 LOO PIC 9(2) VALUE 0.
01 LOP PIC 9(2) VALUE 0.
PROCEDURE DIVISION.

MOVE 20 TO LOO.
MOVE 1 TO LOP.
MOVE EINA01 TO WORTTXT1.

PERFORM 20 TIMES
MOVE WORTTXT1(LOP:1) TO B(LOO:1) 
SUBTRACT 1 FROM LOO
ADD 1 TO LOP
END-PERFORM.

MOVE B TO AUSA01.
DISPLAY AUSA01.
STOP RUN.

注意：我没有使用数据项B，LOU和WORTTXT2，因为我认为它们不是必需的。

输出：

          nasavinirS

尝试here

Answer 2

您还可以使用INSPECT反转字符串。编写类似这样的代码来反转8个字符的字符串SRC并在TGT中获得结果：

.httpBasic()

请注意，您可以使用此技巧以任何所需的方式对字段重新排序。

反转字符串而不在COBOL中使用反转功能

2 个答案: