Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Topete

Alterar Linha de Arquivo

Recommended Posts

Pesso ajuda "Pelo Amor de Deus".......................................No meu trabalho eu tenho q pegar um disquete colocar no driveentrar no MS-DOS e entrar no edit para fazer umas alterações noArquivo do Disquete...Exemplo:C:\>edit xam20051.mnsdai dentro desse arquivos existem linhas como essas000000810206125000506025425510306125000506152845810406125000506254885510506125000506369525710606125000506477852510706125000506568798810806125000506511115610906125000506532568411006125000506dai eu vou em Procurar e depois em Substituir (ctrl+P , ctrl+S)pois tenho q substituir parte dessas linhasmais especifico, preciso alterar o valor que esta entre os números 1vou detalhar a linha aqui abaixo para exclarecimentos:0000008 1 0206 1 2500 05060254255 1 0306 1 2500 05061528458 1 0406 1 2500 05062548855 1 0506 1 2500 0506esse exemplo é as linhas que mensionei mais acima é que agora eucoloquei espaço entre os dados apenas para compreenção de vocês.nas linhas temos:0000008 - Que é a Matrícula do cara.1 - indica onde começa minha alteração.0206 - data do pagamento (tenho q alterar apenas esse valor para 200602).1 - indica o final de onde devo alterar.2500 - valor pago.0506 - Data de Vencimento.000000810206125000506 - Linha Normal (Antes da Alteração).00000081200602125000506 - Linha Alterada.caso a data fosse 0306 teria q ser alterado para 200603 e etcMinha idéia... fazer um programa que altere os dados q estão entre o números 1 (Ex.: de 0206 para 200602).Tem + uma coisinha por exemplo as vezes a data de pagamento q fica entre os numeros 1 se repetem na mesma linha so q na parte de data de vencimento:Exemplo:0000008 1 0506 1 2500 0506eu so posso alterar o valor que esta entre os números 1Sei q no Visual Basic tem o "Modo de Acesso Aleatório" que da pra mim fazer algo nesse estiloporem no delphi não tenho a minima ideia de como fazer nem por onde começar...alguem pode me ajudar?desde já agradeço a todos pela paciência comigo...abraço a todos irmãos!!

Compartilhar este post


Link para o post
Compartilhar em outros sites

olha, não lembro exatamente como faz, lembro que você vai ter que usar aquivos do tipo textfile e ler caracter por caracter, tento o nº 1 como indicador de fim de campo. você vai usar o comando read(<arquivo>,<vardestino>); para buscar dentro do arquivo e o comando write(<arquivo>,<vardestino>); para gravar...

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.