Olá!
Estou tentando remover um caractere que é interpretado como CHR LF + CR
Usando alltrim(descricao) não adianta.
Tem outro comando para pegar só o que tem escrito e visÃvel ?
Saudações,
Itamar M. Lins Jr.

Moderador: Moderadores
cVar := StrTran( HardCR( AllTrim( descricao ) ), Hb_EOL() )
cTexto := StrTran( cTexto, chr( 13 ) , "" ) // elimina CR (carriage return)
cTexto := StrTran( cTexto, chr( 10 ) , "" ) // elimina LF (line feed)
PROCEDURE Main()
LOCAL cText
cText := "teste1 " + chr( 10 ) + " teste2" + chr( 9 ) + "teste3 " + chr( 25 ) + chr( 13 ) + chr( 10 )
? len( cText )
? cText
cText := ClearString( cText )
? len( cText )
? cText
RETURN
FUNCTION ClearString( cString )
LOCAL cNewString
LOCAL n
cNewString := ""
FOR n := 1 TO len( cString )
IF asc( substr( cString, n, 1 ) ) == 9 // TAB
cNewString += chr( 32 )
ELSEIF asc( substr( cString, n, 1 ) ) >= 32
cNewString += substr( cString, n, 1 )
ENDIF
NEXT n
RETURN cNewString
Usuários vendo este fórum: Nenhum usuário registrado online e 9 visitantes