|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Поиск текста в текстовом файле
Суть: есть лог работы программы в виде текстового файла, например:
09.21.2006 17:50:04 Authentication Ok 09.21.2006 17:50:04 Upload file(s) 09.21.2006 17:50:27 R0021004.L09 (86272 21.09.2006 17:46:52, 3698b/s) 09.21.2006 17:50:27 Upload completed Задача: найти (проверить) в логе есть ли слово "R0021004" ну и там уже через чекбокс отметить например. Вкратце: подскажите нупу, каким образом можно найти слово в строке текстового файла (НЕ СТРОКУ). Спасибо большое |
#2
|
||||
|
||||
Народ, хорошь филонить, включайте мозги…
Код:
procedure TForm1.Button1Click(Sender: TObject); var sl: TStringList; i: integer; begin sl := TStringList.Create; sl.LoadFromFile( 'c:\test.log' ); for i := 0 to sl.Count-1 do if Pos( 'R0021004', sl[i] ) > 0 then begin // Нашли, делаем что нужно end; sl.Free; end; |