文字列関数

COBOL組み込み関数
文字の長さ   LENGTH .....末尾の空白文字も計数します。
大文字変換   UPPER-CASE
小文字変換   LOWER-CASE
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 A        PIC X(27) VALUE 'ABCDEFGHIJKLMNOPORSTUVWXYZ '.
       01 A-RESULT PIC X(26).
       01 B        PIC X(10) VALUE "abcdefghij".
       01 B-RESULT PIC X(10).
       01 Z PIC X(26).
       01 I PIC 9(3).
       PROCEDURE DIVISION.
           COMPUTE I = FUNCTION LENGTH (A)
           MOVE FUNCTION LOWER-CASE (A) TO A-RESULT.
           MOVE FUNCTION UPPER-CASE (B) TO B-RESULT.
           DISPLAY "文字数:" I.
           DISPLAY "小文字化:" A "→" A-RESULT.
           DISPLAY "大文字化:" B "→" B-RESULT.
           STOP RUN.

文字数(末尾空白を含みます。):27
小文字化:ABCDEFGHIJKLMNOPQRSTUVXYZ →abcdefghijklmnopqrstuvxyz
大文字化:abcdefghi→ABCDEFGHI

VB.NET
Module Module1
    Dim A As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ "
    Dim B As String = "abcdefghi"
    Dim A_RESULT As String
    Dim B_RESULT As String
    Dim i As Integer
    Sub Main()
        i = A.Length
        A_RESULT = A.ToLower
        B_RESULT = B.ToUpper
        Console.WriteLine("文字数(末尾空白を含みます。):" & i)
        Console.WriteLine("文字数(末尾空白を除去します。):" & A.TrimEnd.Length)
        Console.WriteLine("小文字化:" & A & "→" & A_RESULT)
        Console.WriteLine("大文字化:" & B & "→" & B_RESULT)
    End Sub
End Module

文字数(末尾空白を含みます。):27
文字数(末尾空白を除去します。):26
小文字化:ABCDEFGHIJKLMNOPQRSTUVWXYZ →abcdefghijklmnopqrstuvwxyz
大文字化:abcdefghi→ABCDEFGHI

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

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