文字列データの切り出し(抜き出し)

文字列の指定範囲の文字列を抽出し判定や編集に使います。
COBOLでこの方法を使うとDATA DIVISIONの文字定義を細切れにする手間が減ります。
VB.NETではEXCELなどと同様のMid関数が使用できます。
同様の機能にSubstringが有りますが開始文字位置が０になります。
例）
　設定した文字列から25番目の文字を判定し
　指定した３つの文字を結合して
　画面に表示しています。

COBOL
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 A PIC X(26) VALUE 'ABCDEFGHIJKLMNOPORSTUVWXYZ'.
       01 B PIC X(3).
       PROCEDURE DIVISION.
           IF A(25:1) = 'Y' THEN
               STRING A(25:1) A(5:1) A(19:1) DELIMITED BY SIZE INTO B
               DISPLAY B UPON CONSOLE
               MOVE A(4:3) TO B
               DISPLAY B UPON CONSOLE
           END-IF
           .
           STOP RUN.

VB.NET（Mid関数）
Module Module1
    Dim A As String = "ABCDEFGHIJKLMNOPORSTUVWXYZ"
    Dim B As String
    Sub Main()
        If Mid(A, 25, 1) = "Y" Then
            B = Mid(A, 25, 1) & Mid(A, 5, 1) & Mid(A, 19, 1)
            Console.WriteLine(B)
            Console.WriteLine(Mid(A, 4, 3))
        End If
    End Sub
End Module

VB.NET(Substringメソッド）

Module Module1
    Sub Main()
        Dim A As String = "ABCDEFGHIJKLMNOPORSTUVWXYZ"
        Dim B As String
        If A.Substring(24, 1) = "Y" Then
            B = A.Substring(24, 1) & A.Substring(4, 1) & A.Substring(18, 1)
            Console.WriteLine(B)
            Console.WriteLine(A.Substring(3, 3))
        End If
    End Sub
End Module

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

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