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 )
A cadeia de carateres necessáriaargumento é uma 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
Nota: Os exemplos seguintes demonstram a utilização desta função no módulo VBA (Visual Basic for Applications). Para obter mais informações sobre como trabalhar com o VBA, selecione Referência para Programadores 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->".
