RTrim関数を使ったサンプルプログラム

RTrim関数を使って、キーボードから入力した文字列の右側の空白を削除するプログラムを作成します。 "end" を入力するとプログラムを終了します。

ソースリストの枠内をクリックすると全選択できます。

Module Module1

  Sub Main()
      ' 変数の宣言
      Dim inStr As String = Nothing
      ' endを入力すると終了

      Do Until inStr = "end"
          Console.WriteLine("** endを入力で終了 **")
          Console.Write("前後に空白文字列を付けて")
          Console.WriteLine("文字列を入力して下さい")
          ' キーボードから入力
          inStr = Console.ReadLine()
          ' プログラム終了チェック
          If inStr = "end" Then
              Exit Do
          End If
          ' 入力した文字列から右側の空白のみを削除
          inStr = RTrim(inStr)
          ' 結果を表示
          Console.WriteLine("RTrim関数で右側空白削除")
          Console.WriteLine("[" & inStr & "]")
      Loop
  End Sub

End Module