右側空白削除 RTrim関数 [VB]

Visual Basic 文法[2015 2013 2012]

右端の空白文字列のみ削除

RTrim関数は、引数に指定した文字列の後(右側)にある空白文字列を削除して返します。

左側の空白文字列や、文字列中の空白文字列や空白文字は削除しません。

  Dim inStr As String

  ' 右側の連続する空白を削除
  inStr = "  <Visual Basic>   "
  inStr = RTrim(inStr)        ' inStr="<Visual Basic>"

  ' 左側の連続する空白はそのまま
  inStr = "  <Visual Basic>   "
  inStr = RTrim(inStr)        ' inStr="  <Visual Basic>"

  inStr = "  <Visual Basic>"
  inStr = RTrim(inStr)        ' inStr="  <Visual Basic>"

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