Скачать: CL | DM;

Подскажите пример поиска строки в текстовом файле.   Найти похожие ветки 

← →
Gemini   (2004-06-04 00:38) [0]

Необходимо производить поиск строки в текстовом файле. Достаточно даже просто знать - имееться ли такая строка или нет. Если можно примерчик пожалуйста... :)

---

← →
NeVIP.   (2004-06-04 00:48) [1]

Поробуй плясать от этого :

...

var ThisFile    : TextFile;
   S           : string;
   Yes         : integer;
begin
// Ассоциирую файловую переменную с файлом
AssignFile(ThisFile,FilePatch);
{$I-}
// Перехожу в начало файла
Reset(ThisFile);
{$I+}
// Проверка на ошибки при доступе к файлу
if IOResult<>0 then
 begin
  MessageBox(Application.Handle,PChar("Ошибка при чтении файла "+FilePatch),"Ошибка", MB_ICONWARNING);
  Exit;
 end;
// Пока не будет достигнут конец файла
while not Eof(ThisFile) do
 begin
  // читай строку
  Readln(ThisFile, S);
  S="строка поиска" then ShowMessage("Строка найдена");
 end;
// Закрой файл
CloseFile(ThisFile);

...

С уважением.

---

← →
NeVIP.   (2004-06-04 00:55) [2]

Ссори, потoропился, читать :
if S="строка поиска" then ShowMessage("Строка найдена");
и Yes - убрать... ^_^

С уважением.

---

← →
Gemini   (2004-06-04 01:03) [3]

Спасибо, а что такое FilePatch?

---

← →
Gemini   (2004-06-04 01:14) [4]

Разобрался , спасибо огромное!!!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.024 c