'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变量中。然后使用STRING语句将多个字符串连接起来,包括SOURCE-STRING、SUBSTRING、固...
STRING firstName DELIMITED BY SPACE lastName DELIMITED BY SPACE INTO fullName. DISPLAY "Full Name: " fullName. STOP RUN. 在这个示例中,firstName和lastName被拼接成一个完整的fullName,并在它们之间插入了一个空格作为分隔符。最后,拼接结果通过DISPLAY语句输出。 注意事项 确保resultString的长度足够容纳...
以上为STRING 语句的基本格式。其中每项用于合并的字符串后面都要加上DELIMITED BY 语句。DELIMITED BY 子句后面有两个选项，分别为SPACE和SIZE。[b]SPACE:找到前面用于合并的字符串中第一个出现空格的地方。将该空格以前的部分进行合并，空格以后的内容包括该空格在内不参与合并操作。SIZE:将前面对应的用...
WS-STRING : WelcomeToTutorialspoint WS-COUNT : 25 Unstring Unstring 动词用于将一个字符串拆分为多个子字符串。 Delimited By 子句是强制性的。 语法 以下是 Unstring 动词的语法 − UNSTRING ws-string DELIMITED BY SPACE INTO ws-str1, ws-str2 WITH POINTER ws-count ON OVERFLOW DISPLAY message NOT...
STRING FIRST-NAME DELIMITED BY SAPCE ' ' DELIMITED BY SIZE LAST-NAME DELIMITED BY SPACE INTO FULL-NAME. 其中:DELIMITED BY的SPACE选项用于截掉字符串前后的空格。 SIZE用于将合并的字符串全部内容合并 ' ' DELIMITED BY SIZE:是在FULLname中添加一个空格 ...
WS-STRING : WelcomeToTutorialspoint WS-COUNT : 25 复制 Unstring Unstring动词用于将一个字符串拆分为多个子字符串。Delimited By 子句是强制性的。 语法 以下是 Unstring 动词的语法 - UNSTRING ws-string DELIMITED BY SPACE INTO ws-str1, ws-str2 WITH POINTER ws-count ON OVERFLOW DISPLAY messa...
STRING FIRST-NAME DELMITED 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. 输出结果:
DELIMITED BY SPACE意思是碰到空格,或到A的结尾或C的结尾,则合并A字符串结束。 DELIMITED BY SIZE意思是到" !"的结尾或C的结尾,则合并" !"字符串结束。 STRING A INTO B POINTER C ON OVERFLOW PROC1 NOT ON OVERFLOW PROC2. 将A字符串复制到B中由C开始的地址处。如果C小于1或大于B的长度,或A的长度大...
NEW STRING : XBCDXCDXDEXXXFF String 字符串动词用于连接字符串。 使用STRING语句,可以组合两个或多个字符串以形成更长的字符串。 'Delimited By'条款是强制性的。 Syntax 以下是String动词的语法 - STRING ws-string1 DELIMITED BY SPACE ws-string2 DELIMITED BY SIZE ...
(―)字符串的合并string一、string语句的基本用法datadivision working-storagesection.01first-namepicx(10).01last-namepicx(10).01full-namepicx(20).proceduredivision. move'adam'tofirst-name.move'smith'tolast-name.string first-namedelmitedbyspace''delimitedbysize last-namedelimitedbyspaceintofull-name...