UNSTRING命令(文字列の分割)

COBOL
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 A PIC X(20) VALUE 'ABC DEF 12 zy'.
       01 B PIC X(3) OCCURS 5.
       01 I PIC 9(2).
       PROCEDURE DIVISION.
           UNSTRING A DELIMITED BY SPACE INTO
                    B(1)
                    B(2)
                    B(3)
                    B(4)
           .
           PERFORM VARYING I FROM 1 BY 1 UNTIL I > 4
               DISPLAY B(I) UPON CONSOLE
           END-PERFORM.
           STOP RUN.

VB.NET
Module Module1
    Dim A As String = "ABC DEF 12 zy"
    Dim B() As String
    Sub Main()
        B = Split(A, " ")
        For Each C As String In B
            Console.WriteLine(C)
        Next
    End Sub
End Module

結果表示

ABC
DEF
12
zy

お役に立てましたか？
ＩＴ、プログラミングのランキングサイトはこちらです。

最新記事の自動受信登録はこちらです。