Devolve uma Variante (Cadeia) que contém uma cópia de uma cadeia especificada sem espaços à esquerda (LTrim), espaços à direita (RTrim) ou espaços à esquerda e à direita (Cortar).
Sintaxe
LTrim(cadeia)
RTrim(cadeia)
Cortar(cadeia)
O argumento de cadeianecessário é qualquer expressão de cadeia válida. Se a cadeia contiver Nulo, será devolvido Nulo .
Exemplos de consulta
| Expressão. | Resultados |
|---|---|
| SELECT LTrim(ProductDesc) AS Expr1 FROM ProductSales; | Devolve os valores de cadeia do campo "ProductDesc" sem os espaços à esquerda e é apresentado na coluna Expr1. |
| SELECT RTrim(ProductDesc) AS Expr1 FROM ProductSales; | Devolve os valores de cadeia do campo "ProductDesc" sem os espaços à direita e é apresentado na coluna Expr1. |
| SELECT LTrim(ProductDesc) AS NoTrailingSpace FROM ProductSales; | Devolve os valores de cadeia do campo "ProductDesc" sem os espaços à esquerda e é apresentado na coluna "NoTrailingSpace". |
| SELECT RTrim(ProductDesc) AS NoLeadingSpace FROM ProductSales; | Devolve os valores de cadeia do campo "ProductDesc" sem os espaços à direita e é apresentado na coluna "NoLeadingSpaces". |
| SELECT Trim(ProductDesc) AS Trimmed FROM ProductSales; | Devolve os valores de cadeia do campo "ProductDesc" sem os espaços à esquerda e à direita e é apresentado na coluna "Aparado". |
Exemplo de VBA
Observação
Exemplos que se seguem demonstram a utilização desta função num módulo Visual Basic for Applications (VBA). Para obter mais informações sobre como trabalhar com o VBA, selecione Referência do Programador na lista pendente junto a Procurar e introduza um ou mais termos na caixa de pesquisa.
Este exemplo utiliza a função LTrim para retirar espaços à esquerda e a função RTrim para retirar espaços à direita de uma variável de cadeia. Utiliza a função Cortar para despojar ambos os tipos de espaços.
Dim MyString, TrimString
MyString = " <-Trim-> " ' Initialize string.
TrimString = LTrim(MyString)
' TrimString = "<-Trim-> ".
TrimString = RTrim(MyString)
' TrimString = " <-Trim->".
TrimString = LTrim(RTrim(MyString))
' TrimString = "<-Trim->".
' Using the Trim function alone
' achieves the same result.
TrimString = Trim(MyString)
' TrimString = "<-Trim->".