IBM Lotus Symphony
|
Elimina todas los espacios del principio y del final de una expresión de cadena.
Trim( 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