IBM Lotus Symphony


Função Trim [Tempo de Execução]

Remove todos os espaços à esquerda e à direita de uma expressão de sequência.

Sintaxe:

Trim( Text As String )

Valores de Retorno:

Sequência

Parâmetros:

Text: Qualquer expressão de sequência.

Códigos de Erro

5 Chamada de procedimento inválida

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


Feedback do Produto | Documentação Adicional | Marcas Registradas