Arquivo Texto

22/09/2004

0

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

Rogeranalista

Responder

Posts

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

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

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar