RTrim

应用示例

'!TITLE "删除字符串的末尾空格"
' 在信息输出视窗显示从字符串末尾删除了空格的字符串
Sub Sample_RTrim

  Dim aaa As String
  Dim bbb As String
  Dim ccc As String
  Dim ddd as String

  ' 将在末尾输入1个半角空格的字符串" Denso Corporation"代入aaa
  aaa = " Denso Corporation"

  ' 在消息输出视窗显示" Denso Corporation"
  PrintDbg aaa 

  ' 将在末尾输入1个标签的字符串"  Denso Corporation"代入bbb
  bbb = "　Denso Corporation"

  ' 在消息输出视窗显示"Denso Corporation"
  PrintDbg bbb 

  ‘ 将从aaa的字符串末尾删除了空格的字符串代入ccc
  ccc = RTrim( aaa )

  ' 将从bbb的字符串末尾删除了空格的字符串代入ddd
  ddd = RTrim( bbb )

  ' 在消息输出视窗显示"Denso Corporation"
  PrintDbg ccc

  ' 在消息输出视窗显示"Denso Corporation"
  PrintDbg ddd

End Sub