01 SUBSTRING-VARIABLE PIC X(5). MOVE 'ABCDEFGHIJ' TO STRING-VARIABLE. MOVE FUNCTION STRING(STRING-VARIABLE, 6, 5) TO SUBSTRING-VARIABLE. 复制代码 在上面的例子中,SUBSTRING-VARIABLE将包含字符串’FGHIJ’。 使用UNSTRING语句:可以使用UNSTRING语句来将一个字符串分割成多个子字符串,并将其存储在不同的...
使用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...
input-string − 要计算字符数的字符串。 output-count − 用于保存字符数的数据项。 示例 IDENTIFICATION DIVISION.PROGRAM-ID.HELLO.DATADIVISION.WORKING-STORAGE SECTION.01WS-CNT1 PIC9(2) VALUE0.01WS-CNT2 PIC9(2) VALUE0.01WS-STRING PIC X(15) VALUE'ABCDACDADEAAAFF'.PROCEDURE DIVISION.INSPECT WS...
对开始数据进行替换:INSPECTSOURCE-STRINGREPLACING LEADING'A' BY 'B'. 对首个字符进行替换:INSPECTSOURCE-STRINGREPLACING FIRST'A' BY 'B'. 5.字符串替换 以原字符串的字符为基础进行格式转换。 a、大小写转换 例: FUNCTION LOWER-CASE(TEST-STRING) TO NEW-STRING. FUNCTION UPPER-CASE(TEST-STRING) TO N...
String Unstring Inspect Inspect动词用于计算或替换字符串中的字符。可以对字母数字、数字或字母值执行字符串操作。Inspect操作从左到右执行。用于字符串操作的选项如下 - 统计 Tallying 选项用于对字符串字符进行计数。 语法 以下是 Tallying 选项的语法 - INSPECT input-string TALLYING output-count FOR ALL...
cobol拼接字符串--STRING 语句的基本用法 一、 STRING 语句的基本用法 DATA DIVISION WORKING-STORAGE SECTION. 01 FIRST-NAME PIC X(10). 01 LAST-NAME PIC X(10). 01 FULL-NAME PIC X(20). PROCEDURE DIVISION. MOVE 'ADAM' TO FIRST-NAME.
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 最...
在PROCEDURE DIVISION中,我们首先将STRING1的内容移动到RESULT中。然后,我们使用INSPECT语句来计算RESULT中的字符数,并将其存储在STRING-LENGTH变量中。最后,我们将STRING2的内容移动到RESULT中,从STRING-LENGTH + 1的位置开始。 这个示例演示了如何在 COBOL 中串联未知长度的字符串。请注意,这只是一个简单的示例,实际...
连接字符串是指将多个字符串拼接成一个字符串。在COBOL中,可以使用STRING语句来连接字符串。STRING语句接受多个字符串作为输入,并将它们按顺序连接起来,形成一个新的字符串。可以使用DELIMITED BY子句来指定连接后的字符串之间的分隔符。 以下是一个示例代码,演示了如何使用MID函数和STRING语句连接字符串: ...
去掉了 STRING 语句的基本用法 DATA DIVISION WORKING-STORAGE SECTION.01 FIRST-NAME PIC X(10).01 LAST-NAME PIC X(10).01 FULL-NAME PIC X(20).PROCEDURE DIVISION.MOVE 'ADAM' TO FIRST-NAME.MOVE 'SMITH' TO LAST-NAME.STRING FIRST-NAME DELMITED BY SPACE ' ' DELIMITED BY SIZE LAST...