Percorrer arquivo texto

Question

Como fa�o para percorrer um arquivo texto? Tenho um arquivo XML, e preciso dar uma esp�cie de NOT ARQUIVO.EOF, e trocar o valor de um campo do tipo Integer para String, usando StringReplace. Como fa�o...

Marco Salles · Answer

porque voce n�o usa um ClientDataSet Para Isto ????

geralmente alogica �

cds1 -->>> arquivo xml original
cds2 -->>> definir os Tfield que voce quer
percorrer o cds na estrutura while not eof
carregar os valores de cd2
no final salve este arquivo do cds2 em cima do arquivo de leitura do cds1

Aqui um exemplo com dois campo aonde incialmente o campo Matricula estava definido como inteiro...

procedure TForm1.Button1Click(Sender: TObject);
begin
cds1.First;
while not cds1.Eof do
  begin
    cds2.Append;
    cds2Nome.AsString:=cds1Nome.AsString;
     cds2Matricula.AsString:=cds2Matricula.AsString;
     cds2.Post;
     cds1.Next;
  end;
  cds2.SaveToFile(�C:\podeApagarUrgenteja2\podeapagar.xml�,dfXML);
end;

espero que tenha ajudado..

Paulo · Answer

Fiz assim:[quote:b9818f7ff1]procedure TForm1.BitBtn1Click(Sender: TObject);var  nvo   : TStringlist;  s,caminho : String;  i     : Integer;begin caminho := �C:RemedioTabelaRemedio.xml�; nvo := TStringList.Create; nvo.loadFromfile(caminho); for i := 0 to nvo.count-1 do begin   s := nvo;   StringReplace(s,��integer��,��string� WIDTH=�9��,[rfReplaceAll]);   nvo := s; end; nvo.saveToFile(caminho); FreeAndNil(nvo);end;[/quote:b9818f7ff1]S� que n�o t� funcionando com o StringReplace. O que pode ser? No aguardo, grato!!!...

Marco Salles · Answer

paulo a resposta que eu lhe forneci foi baseada no seu outro t�pico

http://forum.clubedelphi.net/viewtopic.php?t=79907

Tenho um arquivo XML. [b:307119e514]Preciso trocar um campo l� nele de Integer para string. [/b:307119e514]Como fa�o para abrir o arquivo XML e trocar o tipo de dado?

o mecansimo com cds troca o tipo de Campo e funciona mesmo , testado por mim no arquivo PodeApagar....

Porem nesse t�pico , olhando com mais calma voce fala em :

e trocar o [b:307119e514]valor[/b:307119e514] de um campo do tipo Integer

afinal , voce quer trocar o Valor do Campo Ou po Tipo do campo...

Paulo · Answer

J� consegui. Eis abaixo o que fiz.[quote:c1e7da45a8]procedure TForm1.BitBtn1Click(Sender: TObject);var  nvo   : TStringlist;  s,caminho : String;begin caminho := ExtractFilePath(Application.ExeName)+�mnemonicos.xml�; nvo := TStringList.Create; nvo.loadFromfile(caminho); s := nvo.Text; s := StringReplace(s,��Integer��,��String� WIDTH=�9��,[rfReplaceAll]); nvo.Text := s; nvo.saveToFile(caminho); FreeAndNil(nvo); ModalResult := mrOk;end;[/quote:c1e7da45a8]Assim funcionou e bem. Grato a todos!!!!...

F�rum Percorrer arquivo texto #327519