Работа с Текстовыми файлами

[wwww]

Хай народ!Подскажите пожалуйста как можно через делфи найти и изменить в текстовом файле определенную строку.Например в файле c:\test.pkt есть строка <NUMBER>123456</NUMBER> как можно изменить номер 123456??

[Shuraken]

procedure TForm1.Button1Click(Sender: TObject);
var
st: TStringList;
i: integer;
tmpSt: string;
begin
st := TStringList.Create;
try
st.LoadFromFile('c:\test.pkt');
for i := 0 to st.count - 1 do
begin
tmpSt := st[i];
if tmpSt = '<NUMBER>123456</NUMBER>' then
begin
tmpSt := '<NUMBER>654321</NUMBER>' ;
break;
end;
end;
st.SaveToFile('c:\test.pkt');
finally
FreeAndNil(st);
end;
end;

Ну, примерно так можно (один из десятка способов).

[wwww]

А можно сделать тоже самое только по маске?Например для всех *.txt файлов на жиске C:\

[Stilet]

только по маске?

Можно конечно. Применяй FindFirst...FindNext...FindClose.
Задавай там маску, и они найдут тебе все файлы с этой маской. По нахождению открывай каждый и меняй че нуна.

Вот дя раздумий:

unit Unit1;

interface

uses shellapi,
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
ListBox1: TListBox;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
function findA(p:string; var slist:TStringList):variant;
var i:integer;
Form1: TForm1;

implementation

{$R *.dfm}
//********** FUNCTION **********
function findA;
var s:TSearchRec; lp,ep,ss:string;k:integer;
begin
ep:='c:\temp\*.txt';
if FindFirst(ep,faAnyFile, s)=0 then begin
repeat
if (s.Name <>'.')and(s.Name <>'..') then begin
lp:='';k:=0; while k<=i*4 do begin lp:=lp+' ';inc(k);end;
if s.Attr=faDirectory then
slist.Append(lp+'['+s.Name+']')
else begin
\\ А тут мы заколбасиваем найденый по маске файл
end;
if s.Attr=faDirectory then begin
inc(i);
findA(ExtractFilePath(p)+s.Name+'\' +ExtractFileName(p), slist);
dec(i);
end;
end;
until FindNext(s)<>0
end;
end;
//********** END FUNCTION ****** {}
procedure TForm1.FormCreate(Sender: TObject);

var ts:TStringList;
begin
ts:=TStringList.Create;
finda('c:\temp\*.*',ts);
ListBox1.Items:=ts;
end;

end.

(P.S. пример с ходя так что баги вероятны...)
(P.P.S пример найдет и файлы в поддиректориях, это рекурсия)

[Maslan]

Дополнение к Шуракену:

tmpSt := '<NUMBER>654321</NUMBER>' ;
st[i]:=tmpSt; //Ведь tmpSt - это не указатель, а копия...
break; 
end;
end;
st.SaveToFile('c:\test.pkt');

var
  sr: TSearchRec;
  FileAttrs: Integer;
  St:TStrings;
begin
    St:=TStringList.Create;
    FileAttrs := 0;
    FileAttrs := faReadOnly;
    FileAttrs := FileAttrs + faHidden;
    FileAttrs := FileAttrs + faSysFile;
    FileAttrs := FileAttrs + faVolumeID;
    FileAttrs := FileAttrs + faDirectory;
    FileAttrs := FileAttrs + faArchive;
    FileAttrs := FileAttrs + faAnyFile;
  begin
    if FindFirst('C:\', FileAttrs, sr) = 0 then
    begin
      repeat
        if (sr.Attr and FileAttrs) = sr.Attr then
        begin
         St.LoadFromFile(sr.name);
         St.Text:=StringReplace(st.text,'<NUMBER>123456</NUMBER>','<NUMBER>654321</NUMBER>', [rfReplaceAll]);
         St.SaveToFile(sr.name);
        end;
      until FindNext(sr) <> 0;
      FindClose(sr);
    end;
  end;
end;

[wwww]

Все работает!Огромное спасибо!!!