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->".