|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
10.04.2011, 16:26 | #1 |
Форумчанин
Регистрация: 09.11.2010
Сообщений: 134
|
Поиск в файлах папке
Скажите как найти текст (который например введен в Edit1) во всех файлах в данной папке(путь до папки Edit2 например ) и вывести номер строки в файле и найденное слово а так же имя файла в ListBox ???
http://ddmsite.ucoz.ru Мой сайт.
Бесплатный Блокировщик рекламы http://download.adguard.ru/d/1656/adguardInstaller.exe |
10.04.2011, 16:36 | #2 |
Старожил
Регистрация: 30.12.2009
Сообщений: 11,426
|
Ну для начала перебор всех файлов в папке через TSearchRec(FinfFirst,FindNext,FindC lose), далее грузим файл в StringList а имя файла записываем в пременную и в цикле for..to..do по строчно ищем заданное слово, нашли? Молодца, имя файла из переменной+номер строки в которой нашли слово.
Нет? Break и к прыжок вк след. файлу. Но у этого алгоритма есть минусы: 1. Медлительность. 2. Ну тут первого с головой достаточно. Решением может стать, многопоточность поиска слова в 1 файле. |
11.04.2011, 22:47 | #3 |
Форумчанин
Регистрация: 09.11.2010
Сообщений: 134
|
Вот в том то и проблема я не понимаю ВООБЩЕ как искать через TSearchRec
http://ddmsite.ucoz.ru Мой сайт.
Бесплатный Блокировщик рекламы http://download.adguard.ru/d/1656/adguardInstaller.exe |
12.04.2011, 12:53 | #4 |
personality
Старожил
Регистрация: 28.04.2009
Сообщений: 2,882
|
Код:
советую почитать справку по tsearchrec findfirst findnext |
24.04.2011, 02:22 | #5 |
Пользователь
Регистрация: 17.04.2011
Сообщений: 10
|
А может и мне подскажете, что у меня кроме мозгов не так?
Код:
|
24.04.2011, 07:36 | #6 |
personality
Старожил
Регистрация: 28.04.2009
Сообщений: 2,882
|
ts Вы туда заносите имя, а проверяет на символ нуля... по идее Вам надо проверять не путая ли строка , т.е. if ts <> '' // это апострофы а не кавычки
советую пройтись ещё трасировкой с проверкой значений (подсказка F7 и F4 наводите мышкой на значение) узнаете его прямо во время хода проги, поймете, есть ли косяк |
24.04.2011, 10:38 | #7 |
Пользователь
Регистрация: 17.04.2011
Сообщений: 10
|
Спасибо, огромное! Поиск проходит сначала по файлам с единицей в начале 1, 10, 11 и тд, потом с двойкой 2, 20... теперь понятно почему открывает 9, он получается последний, значит вроде все корректно, теперь условия поиска нужно вставлять
Теперь на Reset(f) выдает File not found, хотя ts=1.htm Последний раз редактировалось kees; 24.04.2011 в 11:36. |
24.04.2011, 18:09 | #8 | ||
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Цитата:
Цитата:
а, Код:
|
||
24.04.2011, 18:22 | #9 |
Пользователь
Регистрация: 17.04.2011
Сообщений: 10
|
Теперь так и открываю, и без толку
Выдает I/O 104 и останавливается на while not EOF(f) do Код:
|
24.04.2011, 18:26 | #10 |
Пользователь
Регистрация: 17.04.2011
Сообщений: 10
|
Может кто нить потратит свое время за скромную мзду? мне очень надо и срочно
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Поиск текста в файлах | Arassir | Общие вопросы по программированию, компьютерный форум | 5 | 08.04.2011 09:22 |
Поиск и замена в текстовых файлах | akm-gala | Помощь студентам | 1 | 18.06.2010 09:08 |
Контекстный поиск в pdf-файлах за ДЕНЬГИ!!! | Kot-Sarov | Помощь студентам | 0 | 30.05.2010 22:31 |
Win32 Api информация о файлах в папке | noxin | Помощь студентам | 0 | 27.03.2010 18:49 |
Поиск одинаковых строк в файлах xls | valeryana | Microsoft Office Excel | 10 | 22.09.2009 11:45 |