Histórico da Página

RTrim(

 < cText > )

#include "TOTVS.ch"

• Eliminar espaços em branco à direita ao se concatenar strings.
• Para concatenar, por exemplo, o primeiro e o último campo do nome para formar uma string de nome. Exemplo: Campos de banco de dados que são armazenados em formato de tamanho fixo.

//+----------------------------------------------------------------------------+
//|Exemplo de uso da função

 RTrim                                              |
//+----------------------------------------------------------------------------+
User Function 

rtrim1()
  Local cText 

 := "    text 

with spaces 

at 

the 

beginning 

and 

at 

the 

end    "

Local cRTrim := RTrim(

cText )
  Local cMsg := "

"
 

  cMsg := "Original Text: [" + 

cText + "]"

  cMsg += CRLF + "RTrim: "

 + "[" + cRTrim + "]"

Return MsgInfo(

 cMsg, "

RTrim Example" )