RTrim

应用示例

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

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

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

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

  ' 在bbb中代入末尾输入有1个标记的字符串"Denso Corporation  "
  bbb = "Denso Corporation  "

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

  ' 在ccc中代入删除aaa字符串末尾空格的字符串
  ccc = RTrim( aaa )

  ' 在ddd中代入删除bbb字符串末尾空格的字符串
  ddd = RTrim( bbb )

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

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

End Sub