22/09/2004

Arquivo Texto

Pessoal

Estou fazendo um programa para gerar um arquivo texto. Esse arquivo é um Layout com 400 posições. Em um meio dessas posições tem que gravar um espaço em branco de 277 posições. O que acontece é que antes de gravar estou colocando esse espaços, ex:


vlinha := ´01REMESSA01COBRANCA00000000000000000001´ +
´Razão Social 237Bradesco´ +
´220904 MX0000001´ +
´ ´ +
´ ´ +
´ ´ +
´ ´ +
´ 000001´;


No arquivo texto que foi gerado vejo que tem aspas dentro. As aspas não poderia no caso aparecer. Como devo proceder ???



Rogério


Rogeranalista

Respostas

22/09/2004

Rodrigo Costa

Não entendi muito bem o seu problema, mas de qualquer forma, você pode usar a função [b:ed72e1c63d]stringofchar[/b:ed72e1c63d] para preencher os espaçõs que desejar. Exe:

stringofchar(´ ´,297);


Se quiser te mando o código que eu implementei para gerar este arquivo remessa do Bradesco.


Responder Citar

22/09/2004

Aroldo Zanela

Colega,

Fiz um teste com o seu fragmento de código e não apresentou nenhum problema. Fiz um exemplo abaixo para gerar uma linha de 400 posições e também funcionou normalmente. Veja:

var Linha: String;
    Arquivo: TStringList;
begin
  Arquivo := TStringList.Create;
  Linha   :=  ´01REMESSA01COBRANCA00000000000000000001´ +
              ´Razão Social 237Bradesco´ +
              ´220904 MX0000001´ +
              StringOfChar(´ ´, 315) +
              ´000001´;
  Arquivo.Add(Linha);
  Arquivo.SaveToFile(´C:\TEMP\TEMPFILE.TXT´);
  Arquivo.Free;


Linha gerada:

01REMESSA01COBRANCA00000000000000000001Razão Social 237Bradesco220904 MX0000001                                                                                                                                                                                                                                                                                                                           000001


Para analisar o arquivo, recomendo o editor Context que pode ser baixado gratuitamente aqui: www.fixedsys.com/context

Se desejar, eu fiz uma ferramenta que lê arquivos textos de tamanho fixo e mostra/gera XML para facilitar a visualização. Basta solicitar em: aroldo_zanela@hotmail.com com o assunto: Analisador.


Responder Citar