Arquivo Zonado CNAB400

[Ernander (Nander)]

Olá Lista!

Tenho um Pequeno problema com um Arquivo Zonado. Para gerar um BOLETO em
umprograma que importa Arquivos TXT,  eu preciso que essearq1uivo esteja
separado por ";" de acordo com o layout a seguir:

*REGISTRO HEADER (1ª linha, que pode ser feita em separado)*

* *

*POSIÇÃO   DESCRIÇÃO*

001 a 001 TIPO DE REGISTRO  = 0

002 a 005 AGENCIA                   Preencher com zeros a esquerda

006 a 008 OPERAÇÃO                  Preencher com zeros a esquerda

009 a 017 CONTA                     Preencher com zeros a esquerda

018 a 019 TIPO DE EMPRESA

          01 = Pessoa Fisica

          02 = Pessoa Juridica

020 a 033 CPF / CGC

          CPF = Preencher com zeros a esquerda

034 a 073 NOME DO CEDENTE

074 a 395 EM BRANCOS

396 a 400 NÚMERO SEQUENCIAL         Preencher com zeros a esquerda

400 a 402 CRLF




*REGISTRO MOVIMENTO ( resto do TXT )*

* *

*POSIÇÃO   DESCRIÇÃO*

001 a 001 TIPO DE REGISTRO  = 1

002 a 003 TIPO DE EMPRESA

          01 = Pessoa Fisica

          02 = Pessoa Juridica

004 a 017 CGC/CPF DO SACADO

          CPF = Preencher com zeros a esquerda

018 a 057 NOME DO SACADO

058 a 097 ENDERECO DO SACADO

098 a 117 CIDADE DO SACADO

118 a 137 BAIRRO DO SACADO

138 a 145 CEP DO SACADO

146 a 147 ESTADO

148 a 153 DATA DO VENCIMENTO        (DDMMAA) ou 000000

154 a 159 DATA PARA DESCONTO        (DDMMAA) ou 000000

160 a 165 DATA PARA A MULTA         (DDMMAA) ou 000000

166 a 171 DATA DO MOVIMENTO         (DDMMAA) ou 000000

172 a 187 CAMPO AUXILIAR

188 a 205 VALOR DO TITULO           Preencher com zeros a esquerda

206 a 223 VALOR DO DESCONTO         Preencher com zeros a esquerda

224 a 241 VALOR DO MULTA            Preencher com zeros a esquerda

242 a 259 VALOR DO ABATIMENTO       Preencher com zeros a esquerda

260 a 302 EM BRANCO[COBCE1] <#_msocom_1>

303 a 303 TIPO DE MOEDA

          1 = REAL

          2 = IDTR

          3 = UPF

          4 = UFIR-D

          7 = FAJ

304 a 304 ACEITE

          A = ACEITO

          N = NAO ACEITO

305 a 306 ESPECIE DE TITULO

          01 = DM   - DUPLICATA MERCANTIL

          02 = NP   - NOTA PROMISSORIA

          03 = DS   - DUPLICATA DE PRESTACAO DE SERVICO

          05 = NS   - NOTA DE SEGURO

          06 = LC   - LETRA DE CAMBIO

          09 = OU   - OUTROS

307 a 308 CARTEIRA

          SR = Carteira Sem Registro

309 a 319 NOSSO NUMERO = ("82" + NUM. DO CLIENTE + DIG.)

          309 a 310 = "82"

          311 a 318 = NUMERO DO CLIENTE

          319 a 319 = DIGITO CALCULADO

320 a 329 SEU NUMERO

330 a 333 PREENCHIDO COM ZEROS[COBCE2] <#_msocom_2>

334 a 373 MENSAGEM

374 a 377 PREENCHIDO COM ZEROS

378 a 383 EM BRANCO

384 a 395 PREENCHIDO COM ZEROS

396 a 400 NÚMERO SEQUENCIAL        Preencher com zeros a esquerda
 ------------------------------

Gostaria de Saber como inserir os ";" ja que tenho os delimitadores; pois
tenho que fazer isso em quase 150 arquivos.

Se alguém puder dar uma LUZ agradeço.  Segue um exemplo nopastebin:

http://pastebin.com/f5890d9c4


Att
-- 
╔═══════════════════╗
║ Ernander Lataliza ║
╚═══════════════════╝
--------------------------------------
SEJA LIVRE! USE LINUX!
Linux User #394812
-----BEGIN PGP PUBLIC KEY BLOCK-----
Version: GnuPG v1.4.6 (GNU/Linux)

mQGiBEnrmpwRBADsGwMo8R2spUxfer19bGyX5mAXRyEhm5vlzkOH9T7Fe4WyAvLM
rDpSKjv1VgcC3/fSMpPQ8MmQZwwO4H87IIwyN0AX/NqvmEQDNMVZS6omrcN39jpt
xEC80Hs/TP/yKyB2V6seHV0eZtjlfmokIb7nYazcxTLAhiv9CVg9nL+JCwCg+gNL
R+1rQcqGooGtjIL95OZr/8kEANpGy/Jb+B7Ajq4gatJ6qoedDyeyFFDRz8aV1OBJ
TCRh9T8MWjOhwvgcsGQV7R95VHgJNVGnej6yilMoM3NtIcyA2tbXAUerp5QhRAAi
2BU50z2JF5wl7YQ5ocSpOxp5Cq4sEBJYa/gTUzbLzztNc+ezCIKV403kEbE2IqSV
9rt3A/4vxcKsh9IX1At+vH9Ev850CXlRyxN4H7tRlGL+OdqQ76SR3tMi1qm4NRIp
p0Y7gJ8k9YdfWCgm56aLlSCCXlr80TXP5WHEH+sz2yDrw6iCj5ABeBMA5tdTae5y
bpx9QJgu5+1dYAK+FFWM+czPO11FM6nOKC3N+XSvrmM88dQhg7RHRXJuYW5kZXIg
TWFyY3VzIExhdGFsaXphIFJvc2VuZG8gKE5hbmRlciBMYXRhbGl6YSkgPGVybmFu
ZGVyQGdtYWlsLmNvbT6IYAQTEQIAIAUCSeuanAIbAwYLCQgHAwIEFQIIAwQWAgMB
Ah4BAheAAAoJEKahazXSKEoo15oAoPBiOWjUw0I2a6u7MtDPPwNPebG3AKDsoBuT
tcC4MzB17iNsOq819aV42rkBDQRJ65qdEAQApuFxoXRdeQrFIOJDyxE2EQi3GZby
2RP0+6iWiLbMk3XUGVsc477NTeGkEuDQA0SpkA5whL4wHWHCrYaE9rtmYMYW67ml
z/PUPWGI78cQ/R7M1ADPLGaD7cSxfdWzIHbhkP29x4zHTkSrdl4zT+XOHXwmAULp
ekzuKdb6whw676MAAwUD/isUOzlyF5sf/Q7RJRmLjOEEn5gpL/pf7ZzWHNxgxsPH
s1LlicO2yObH1cuVDXQDsc3a6ag61z1gCapa8Q1L/E5akKpU0irRzf99yNVzTp3i
BD9cua7h7fnfBMp6D4EyLDnUkCxOMD5HdIik1Ie6iHoVdCeDpYFnv72RplPI3dBB
iEkEGBECAAkFAknrmp0CGwwACgkQpqFrNdIoSiiUYgCgvHpf/Tkub4sWz/Vj91y6
BgH84hQAn3Z8pVMAUMJmmH/jRqJg49SS8AHc
=1sQ8
-----END PGP PUBLIC KEY BLOCK-----


[As partes desta mensagem que não continham texto foram removidas]