cobol怎么去掉字符串末尾的空格

2023-10-16 1514阅读

在COBOL中去掉字符串末尾的空格可以通过以下几种方法实现：1. 使用STRING函数：使用STRING函数可以将字符串中的空格替换为空，然后再对替换后的字符串进行TRIM操作，即可去掉末尾的空格。示例代码如下：```01 MY-STRING PIC X VALUE 'COBOL '.01 RESULT-STRING PIC X.MOVE SPACES TO RESULT-STRING.STRING MY-STRING DELIMITED BY SPACEINTO RESULT-STRINGON OVERFLOWEND-STRINGEND-STRING.MOVE FUNCTION TRIM TO RESULT-STRING.DISPLAY RESULT-STRING.```2. 使用INSPECT函数：使用INSPECT函数可以在字符串中查找最后一个非空格字符的位置，然后再使用SUBSTRING函数截取字符串到该位置。示例代码如下：```01 MY-STRING PIC X VALUE 'CO活动：慈云数据爆款香港服务器，CTG+CN2高速带宽、快速稳定、平均延迟10+ms 速度快，免备案，每月仅需19元！！

在COBOL中去掉字符串末尾的空格可以通过以下几种方法实现：
1. 使用STRING函数：使用STRING函数可以将字符串中的空格替换为空，然后再对替换后的字符串进行TRIM操作，即可去掉末尾的空格。示例代码如下：
```
01 MY-STRING PIC X(10) VALUE 'COBOL '.
01 RESULT-STRING PIC X(10).
MOVE SPACES TO RESULT-STRING.
STRING MY-STRING DELIMITED BY SPACE
INTO RESULT-STRING
ON OVERFLOW
END-STRING
END-STRING.
MOVE FUNCTION TRIM(RESULT-STRING) TO RESULT-STRING.
DISPLAY RESULT-STRING.
```
2. 使用INSPECT函数：使用INSPECT函数可以在字符串中查找最后一个非空格字符的位置，然后再使用SUBSTRING函数截取字符串到该位置。示例代码如下：
```
01 MY-STRING PIC X(10) VALUE 'CO活动：慈云数据爆款香港服务器，CTG+CN2高速带宽、快速稳定、平均延迟10+ms 速度快，免备案，每月仅需19元！！点击查看BOL '.
01 LENGTH PIC 9(2).
01 RESULT-STRING PIC X(10).
MOVE LENGTH OF MY-STRING TO LENGTH.
INSPECT FUNCTION REVERSE(MY-STRING)
TALLYING LENGTH FOR LEADING SPACES.
MOVE FUNCTION SUBSTRING(MY-STRING, 1, LENGTH) TO RESULT-STRING.
DISPLAY RESULT-STRING.
```
以上两种方法都可以达到去掉字符串末尾的空格的效果，根据实际需求选择适合的方法即可。