Declare Function RTrim Overload ( ByRef str As Const String, [ Any ] ByRef trimset As Const String = " " ) As String
Declare Function RTrim ( ByRef str As Const WString, [ Any ] ByRef trimset As Const WString = WStr(" ") ) As WString

result = RTrim[$]( str [, [ Any ] trimset ] )

str
trimset

Возвращает обрезанную строку.

Эта функция обрезает окружающие символы справа (с конца) у исходной строки. Сопоставленная подстрока trimset будет обрезана, если указана, в противном случае обрезаются пробелы (ASCII код 32) .

Если используется ключевое слово Any, тогда любой символ, соответствующий символу в trimset будет обрезан.

Все сравнения происходят с учетом регистра.

Dim s1 As String = "Article 101  "
Print "'" + RTrim(s1) + "'"
Print "'" + RTrim(s1, " 01") + "'"
Print "'" + RTrim(s1, Any " 10") + "'"

Dim s2 As String = "Test Pattern aaBBaaBaa"
Print "'" + RTrim(s2, "Baa") + "'"
Print "'" + RTrim(s2, Any "Ba") + "'"

вывод:

'Article 101'
'Article 101  '
'Article'
'Test Pattern aaB'
'Test Pattern '

• DOS версия FreeBASIC не поддерживает версию расширенных символов RTrim.
  
  

• Суффикс строкового типа "$" обязателен в диалекте -lang qb.
  
• Суффикс строкового типа "$" не обязателен в диалектах -lang fblite и -lang fb.
  
  

• QB не поддерживает возможность указания trimset строки и спецификатора ANY.
  
  

• LTrim
  
• Trim