Duvida completar espaços em branco

Discussão em 'Progress 4GL' iniciado por ueluis, Julho 30, 2015.

  1. ueluis

    ueluis Membro Participativo

    Pessoal ,
    tenho uma rotina que gera relatório em txt, neste relatório tenho uma coluna chamada numeração que pode conter até 26 caracteres.
    preciso completar os caracteres restantes com (.) ponto, sendo que estes registros vem de uma tabela.
    como proceder.
    Código:
    
    OUTPUT TO VALUE "c:\temp\teste.txt"
    
        FOR EACH numeracao fields(numero):
            DISP numeracao.numero FORMAT "X(27)".
        END.
    
    
    ex: registros na variavel numero:
    |numeros |
    aa123456
    abc123456784512
    dxykz12345678954521254

    gostaria de exibi-los desta maneira:
    |numeros |
    aa123456..........................
    abc123456784512.............
    dxykz12345678954521254

    é possivel?
  2. Agnaldo

    Agnaldo Membro Ativo

    Testa aí...
    Código:
    DEF VAR x1 AS CHAR FORMAT "X(27)".
    DEF VAR x2 AS CHAR FORMAT "X(27)".
    
    x1 = "123456".
    x2 = x1 + FILL(".",27 - LENGTH(x1)).
    
    DISPLAY x1 x2.
    
  3. Agnaldo

    Agnaldo Membro Ativo

    E mais focado no teu exemplo, algo assim:
    Código:
    OUTPUT TO VALUE("c:\temp\teste.txt").
    FOR EACH numeracao fields(numero):
        DISPLAY (TRIM(numeracao.numero) + FILL(".",27 - LENGTH(TRIM(numeracao.numero)))) FORMAT "X(27)".
    END.
    
  4. ueluis

    ueluis Membro Participativo

Compartilhe esta Página