Fórum COMPARAR ARQUIVO texto !!! como??? #229772
04/05/2004
0
Olá pessoal preciso comparar arquivos textos, tipo recebo
semanalmente um cadastro de lojas, gostaria de alterar meu banco
somente se o arquivo recebido por último tivesse alguma alteração do
anterior.
no arquivo consta um cadastro tipo abaixo
CADASTRO270404.TXT
0091102LOJAS LTDA AV.GETULIO VARGAS 867 (11)68411010
0091103LOJAS CANADA AV.REGINALDO FARIA 844 (23)24101020
CADASTRO240504.TXT
0091102LOJAS LTDA AV.GETULIO VARGAS 867 (11)68122020
0091103LOJAS CANADA AV.REGINALDO FARIA 844 (23)24101020
Neste caso o cadastro foi modificado veja o fone da lojas LTDA, aí
preciso então que seja avisado que este arquivo está modificado.
uso delphi 6 e paradox.
Como faço isso? se me ajudarem com dicas e exemplos agradeço!!!
Infohelp
Curtir tópico
+ 0Posts
04/05/2004
Lucas Silva
var Stl1,Stl2: TStirnglist;
i: integer;
...
stl1.LoadFormFile(´c:\teste.txt´);
stl2.LoadFormFile(´c:\teste1.txt´);
for i:= 0 to stl1.Count - 1 do
if stl1[i] = stl[i] then
ShowMessage(´São iguais´)
Gostei + 0
04/05/2004
Dopi
Gostei + 0
04/05/2004
Lucas Silva
var Stl1,Stl2: TStirnglist;
i: integer;
...
stl1.LoadFormFile(´c:\teste.txt´);
stl2.LoadFormFile(´c:\teste1.txt´);
for i:= 0 to stl1.Count - 1 do
if stl1[i] = stl2[i] then
ShowMessage(´São iguais´)
Gostei + 0
04/05/2004
Infohelp
podeira me ajudar
Gostei + 0
04/05/2004
Lucas Silva
var Stl1,Stl2: TStirnglist;
i: integer;
...
[b:bb19a087eb] stl1 := TStringList.Create;
stl2 := TStringList.Create;[/b:bb19a087eb]
stl1.LoadFormFile(´c:\teste.txt´);
stl2.LoadFormFile(´c:\teste1.txt´);
for i:= 0 to stl1.Count - 1 do
if stl1[i] = stl2[i] then
ShowMessage(´São iguais´)
Gostei + 0