IBM Lotus Symphony


Função Trim [Runtime]

Remove todos os espaços à esquerda e à direita de uma expressão em caracteres.

Sintaxe:

Trim( Text As String )

Valor de retorno:

String

Parâmetros:

Text: Qualquer expressão em caracteres.

Códigos de erro

5 Chamada de procedimento não válido

Exemplo:

Sub ExampleSpaces

Dim sText2 as String,sText as String,sOut as String

sText2 = " <*Las Vegas*> "

sOut = "'"+sText2 +"'"+ Chr(13)

sText = Ltrim(sText2) REM sText = " <*Las Vegas*> "

sOut = sOut + "'"+sText +"'" + Chr(13)

sText = Rtrim(sText2) REM sText = " <*Las Vegas*> "

sOut = sOut +"'"+ sText +"'" + Chr(13)

sText = Trim(sText2) REM sText = " <*Las Vegas*> "

sOut = sOut +"'"+ sText +"'"

MsgBox sOut

end sub


Comentários sobre o produto | Documentação adicional | Marcas comerciais