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
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
Curtir tópico
+ 0
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:
Se quiser te mando o código que eu implementei para gerar este arquivo remessa do Bradesco.
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:
Linha gerada:
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.
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
Clique aqui para fazer login e interagir na Comunidade :)
