Arquivo Texto
22/09/2004
0
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
Posts
22/09/2004
Rodrigo Costa
stringofchar(´ ´,297);
Se quiser te mando o código que eu implementei para gerar este arquivo remessa do Bradesco.
22/09/2004
Aroldo Zanela
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.
Clique aqui para fazer login e interagir na Comunidade :)