COBOL提供了STRING语句来拼接字符串。语法格式如下: cobol STRING string1 [DELIMITED BY delimiter] string2 [DELIMITED BY delimiter] ... INTO resultString [WITH POINTER pointer] [ON OVERFLOW perform-procedure] [NOT ON OVERFLOW perform-procedure]. string1, string2, ... 是要拼接的字符串。 DELIMITE...
STRING FIRST-NAME DELIMITED BY SPACE ' ' DELIMITED BY SIZE LAST-NAME DELIMITED BY SPACE INTO FULL-NAME. DISPLAY 'FIRST NAME:', FIRST-NAME. DISPLAY 'LAST NAME:', LAST-NAME. DISPLAY 'FULL NAME:', FULL-NAME. STOP RUN. 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 最...
FIRST-NAME DELIMITED BY SAPCE ' ' DELIMITED BY SIZE LAST-NAME DELIMITED BY SPACE INTO FULL-NAME. 其中:DELIMITED BY的SPACE选项用于截掉字符串前后的空格。 SIZE用于将合并的字符串全部内容合并 ' ' DELIMITED BY SIZE:是在FULLname中添加一个空格 3、相应的UNSTRING语句拆分字符串 UNSTRING FULL-NAME DELI...
OLD STRING : ABCDACDADEAAAFF NEW STRING : XBCDXCDXDEXXXFF 复制 String 字符串动词用于连接字符串。使用 STRING 语句,可以将两个或多个字符串组合成一个更长的字符串。'Delimited By' 子句是强制性的。 语法 以下是字符串动词的语法 - STRING ws-string1 DELIMITED BY SPACE ws-string2 DELIMITED BY...
以上为STRING 语句的基本格式。其中每项用于合并的字符串后面都要加上DELIMITED BY 语句。DELIMITED BY 子句后面有两个选项,分别为SPACE和SIZE。 SPACE:找到前面用于合并的字符串中第一个出现空格的地方。将该空格以前的部分进行合并,空格以后的内容包括该空格在内不参与合并操作。
ws-string1 和 ws-string2 :要连接的输入字符串 ws-string:输出字符串 ws-count :用于计算新连接字符串的长度 Delimited 指定字符串的结尾 Pointer和Overflow是可选的 示例 IDENTIFICATION DIVISION.PROGRAM-ID.HELLO.DATADIVISION.WORKING-STORAGE SECTION.01WS-STRING PIC A(30).01WS-STR1 PIC A(15) VALUE'Tu...
使用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 OVERFL...
STRING SOURCE-STRING DELIMITED BY SPACE SUBSTRING DELIMITED BY SPACE 'COBOL' DELIMITED BY SPACE 'is a powerful language.' DELIMITED BY SIZE INTO RESULT-STRING. DISPLAY 'Result: ' RESULT-STRING. STOP RUN. 上述代码中,首先使用MID函数从SOURCE-STRING中提取了前5个字符,将结果存储在SUBSTRING变量中。...
STOP RUN. 输出结果:FIRST NAME :ADAMLAST NAME :SMITHFULL NAME :ADAM SMITH 以上为STRING 语句的基本格式。其中每项用于合并的字符串后面都要加上DELIMITED BY 语句。DELIMITED BY 子句后面有两个选项,分别为SPACE和SIZE。SPACE:找到前面用于合并的字符串中第一个出现空格的地方。将该空格以前的部分进行合并,空格...
NEW STRING : XBCDXCDXDEXXXFF String 字符串动词用于连接字符串。 使用STRING语句,可以组合两个或多个字符串以形成更长的字符串。 'Delimited By'条款是强制性的。 Syntax 以下是String动词的语法 - STRING ws-string1 DELIMITED BY SPACE ws-string2 DELIMITED BY SIZE ...