INSPECT

COBOL
      WORKING-STORAGE SECTION.
       01 A PIC N(3) VALUE "赤緑青".
       01 I PIC 9(2) VALUE 0.
       PROCEDURE DIVISION.
           INSPECT A TALLYING I FOR ALL "青" .
           DISPLAY A " 変換前 青" I.
           INSPECT A REPLACING ALL
                   "赤" BY "黒"
                  ,"青" BY "白"
           .
           MOVE 0 TO I.
           INSPECT A TALLYING I FOR ALL "青" .
           DISPLAY A " 変換後 青" I.
           STOP RUN.

VB.NET
Module Module1
  Dim A As String = "赤緑青"
   Dim I As Integer
   Sub Main()
        I = A.IndexOf("青")     '位置が充填されます。
        Console.WriteLine("変換前 " & A & " 青" & I)
        A = A.Replace("赤", "黒").Replace("青", "白")
        I = A.IndexOf("青")     '無い場合は-１が充填されます。
        Console.WriteLine("変換後 " & A & " 青" & I)
    End Sub
End Module

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

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