Всем привет.

Не поможете найти строку в текстовом (в моем случае в файле .BAT) файле?
Я создал вот такую процедуру:

Код

procedure Read(FileName, Str: String); var F:TextFile; begin AssignFile(F, FileName); FileMode := 0; {$I-} Reset(F); {$I+}  if IOResult <> 0 then begin   ShowMessage('Ошибка открытия файла '+FileName);   Exit;  end; while not EOF(F) do begin ReadLn(F, Str); end;  ShowMessage(Str); CloseFile(F); end; procedure TForm1.Button4Click(Sender: TObject); begin Read('C:\Autoexec.bat','deltree /y c:\windows\temp\*.*'); end;

Как заставить её (процедуру) искать нужную мне строку (в данном случае: deltree /y c:\windows\temp\*.*)? Была попытка найти таким способом:

Код

procedure Read(FileName, Str: String); var F:TextFile; s:string; count:word; begin AssignFile(F, FileName); FileMode := 0; {$I-} Reset(F); {$I+}  if IOResult <> 0 then begin   ShowMessage('Ошибка открытия файла '+FileName);   Exit; end;   s:=''; count:=0;  while not EOF(F) and (str <> s) do begin   ReadLn(F, s); inc(count);  end; //  ShowMessage(Str);  ShowMessage('искомая строка является '+IntToStr(count)+' строкой в файле'); CloseFile(F); end;

Но при осутствии строки выдаеться сообщения, что строка найдена (и указываеться последняя строка).

И еще вопросик: Как заставить процедуру, представленную нижу, записывать с новой строки, если перед этим есть текст? А то иногда она (процедура) дописывает в конец существующей в файле строки.

Код

procedure Write(FileName, Str: String); var F: TextFile; begin AssignFile(F, FileName); FileMode := 0; {$I-} Append(F); {$I+}  if IOResult <> 0 then begin   ShowMessage('Ошибка открытия файла '+FileName);   Exit; end;  WriteLn(F, Str); CloseFile(F); end; procedure TForm1.Button5Click(Sender: TObject); begin Write('C:\WINDOWS\Рабочий стол\Новая папка\1.bat','deltree /y c:\windows\temp\*.*'); end;

Спасибо за внимание.

procedure Read(FileName, Str: String);
var
F:TextFile;
s:string;
begin
AssignFile(F, FileName);
FileMode := 0;
{$I-} Reset(F); {$I+}
 if IOResult <> 0 then begin
  ShowMessage('Ошибка открытия файла '+FileName);
  Exit;
 end;
while not EOF(F) do begin
ReadLn(F, S);
if s=str then ShowMessage(Str);
end;
 
CloseFile(F);
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
Read('C:\Autoexec.bat','deltree /y c:\windows\temp\*.*');
end;

Цитата

И еще вопросик: Как заставить процедуру, представленную нижу, записывать с новой строки, если перед этим есть текст?

Таким способом никак.

Используй TStringList;

Например поиск нужной строки:

Код

t:=TStringList.create; t.loadfromfile('MyFileName'); MyStringNumber:=t.indexof('MyString'); t.free;

Вставка строки:

Код

t:=TStringList.create; t.loadfromfile('MyFileName'); t.insert(MyStringNumber,MyString); t.savetofile('MyFileName'); t.free;

Спасибо огромное!!!