Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.06.20;
Скачать: 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 вся ветка

Текущий архив: 2004.06.20;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.052 c
14-1085934647
riko
2004-05-30 20:30
2004.06.20
Программирование мобильных телефонов


3-1085732139
KADAN
2004-05-28 12:15
2004.06.20
PASSWORD() в MSSQL?


6-1083257567
Lena19
2004-04-29 20:52
2004.06.20
шаг назад


1-1086174531
Ш-К
2004-06-02 15:08
2004.06.20
Клонировать форму


4-1084612229
Ярослав
2004-05-15 13:10
2004.06.20
Как программно закрыть messagebox?