'シチュエーションドリル：文字列の置換、削除、抽出

'

Imports System

Public Module Module1

Public Sub Main()

​

'変数の宣言

    Dim iCount as Int32

    Dim 元の文字列 as String = "あいうえおかきくけこさしすせそ,たちつてと,なにぬねの"

    Dim 結果文字列 as String

​

​

'★問題集★

'問題1 元の文字列の「あい」を「愛」、「かき」を「柿」に置き換える　⇒結果文字列に格納

'問題2 元の文字列の6文字目から15文字目を削除する　⇒結果文字列に格納

'問題3 元の文字列の6文字目から15文字目を抽出する　⇒結果文字列に格納

'問題4 元の文字列の末尾から5文字目に始まる3文字を抽出する　⇒結果文字列に格納

'問題5 元の文字列の1つ目の半角カンマよりも左の文字列を抽出する　⇒結果文字列に格納

'問題6 元の文字列の1つ目の半角カンマよりも右の文字列を抽出する　⇒結果文字列に格納

'問題7 元の文字列の1つ目と2つ目の半角カンマの間の文字列を抽出する　⇒結果文字列に格納

'問題8 元の文字列の「さしすせそ」以降の文字列を抽出する　⇒結果文字列に格納

'回答方法：以下の式の右辺を書き換える

​

        iCount = 0

        結果文字列 = 元の文字列

​

'答え1 元の文字列.Replace("あい","愛").Replace("かき","柿")

'答え2 結果文字列 = 元の文字列.Remove(5,10)

'答え3 結果文字列 = 元の文字列.Substring(5,10)

'答え4 結果文字列 = 元の文字列.Substring(元の文字列.Length-5,3)

'答え5 結果文字列 = 元の文字列.Substring(0,元の文字列.IndexOf(","))

    'または 結果文字列 = 元の文字列.Split(","c)(0)

'答え6 結果文字列 = 元の文字列.Substring(元の文字列.IndexOf(","))

'答え7 結果文字列 = 元の文字列.Split(","c)(1)

'答え8 結果文字列 = 元の文字列.Substring(元の文字列.IndexOf("さしすせそ"))

'処理結果の出力

    Console.WriteLine("元の文字列：" + 元の文字列)

    Console.WriteLine("iCount：" + iCount.ToString)

    Console.WriteLine("結果文字列：" + 結果文字列)

End Sub

End Module