IBM Lotus Symphony
|
Elimina los espacios del final de una expresión de cadena.
Consulte también: Función LTrim
RTrim (Texto As String)
Cadena
Texto: Cualquier expresión de cadena.
Sub EjemploSpaces
Dim sTexto2 as String,sTexto as String,sOut as String
sTexto2 = " <*Las Vegas*> "
sOut = "'"+sTexto2 +"'"+ Chr(13)
sTexto = Ltrim(sTexto2) REM sTexto = " <*Las Vegas*> "
sOut = sOut + "'"+sTexto +"'" + Chr(13)
sTexto = Rtrim(sTexto2) REM sTexto = " <*Las Vegas*> "
sOut = sOut +"'"+ sTexto +"'" + Chr(13)
sTexto = Trim(sTexto2) REM sTexto = "
sOut = sOut +"'"+ sTexto +"'"
MsgBox sOut
end sub