[RESOLVIDO] Txt

Discussão em 'EMS , HCM e Totvs 11' iniciado por Will, Outubro 26, 2009.

Status do Tópico:
Não esta aberto para novas mensagens.
  1. Will

    Will Membro Participativo

    Olá pessoal tudo bem? Seguinte, estou desenvolvendo um programa q vai ler um arquivo txt e vai exportar os dados do mesmo para um outro arquivo txt. Minha dúvida é, no momento da exportação como faço para ele jogar mais de um registro em uma única linha??????? E como faço par determinar qdo quero que ele quebre a linha????

    vlwwww
  2. Will

    Will Membro Participativo

    matei meu problema
    Código:
    def var cDados   as character          no-undo.
       input from value(search("c:/rs0585.txt")).
          repeat:
             import unformatted cDados.
             output to "c:\rs0585Certo.txt" append.
             if substring(cDados,1,1) = "" then do:
                put skip(1) cDados format "x(133)".
             end.
             else
                put cDados format "x(133)".
             output close.
          end.
       input close.
    
Status do Tópico:
Não esta aberto para novas mensagens.

Compartilhe esta Página