[RESOLVIDO] Eliminar CHR(10)

Discussão em 'EMS , HCM e Totvs 11' iniciado por tbranco, Fevereiro 10, 2017.

Status do Tópico:
Não esta aberto para novas mensagens.
Página 2 de 2
  1. rafael.andrade

    rafael.andrade Membro Master Moderador Equipe de Suporte

    faz assim:

    Código:
    DEF VAR texto AS CHAR.

texto = "ABC" + CHR(10) + CHR(10) + CHR(10) + CHR(10) + "TESTE".

MESSAGE "Antes: " SKIP texto
    VIEW-AS ALERT-BOX INFO BUTTONS OK.

DO WHILE INDEX(texto,CHR(10) + CHR(10)) > 0.
   texto = REPLACE(texto,CHR(10) + CHR(10),CHR(10)).
END.

MESSAGE "Depois" SKIP texto
    VIEW-AS ALERT-BOX INFO BUTTONS OK.
    rafael.andrade, Fevereiro 10, 2017
    #7
  2. rafael.andrade

    rafael.andrade Membro Master Moderador Equipe de Suporte

    Com esse código que passe, ele remove os duplicados enquanto eles existirem, assim vai ficar somente uma quebra ao invés de duas.
    rafael.andrade, Fevereiro 10, 2017
    #8
  3. bootstrapmaster

    bootstrapmaster Moderator Moderador Equipe de Suporte

    Eu trocaria o chr(10) por espaço, replace(texto,chr(10)," ") e não como o Rafael que trocou por NULL, e depois mandaria para uma rotina que inclui chr(10) onde eu preciso.
    se vc está usando tamplate excel, formata a celula para quebra automatica de texto e só joga o texto sem os CHR(10) e o excel se vira.
    bootstrapmaster, Fevereiro 10, 2017
    #9
  4. tbranco

    tbranco Membro Participativo

    @bootstrapmaster o problema é que o CHR(10) está sendo usado para justamente jogar o quadro da última folha para baixo, de forma a ficar no limite da folha. Quando ultrapassa esse limite deveria voltar 1 linha para se ajustar ou parar antes de ultrapassar o limite.
    tbranco, Fevereiro 13, 2017
    #10
Página 2 de 2
Status do Tópico:
Não esta aberto para novas mensagens.

Compartilhe esta Página