|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
08.06.2022, 19:16 | #1 |
Пользователь
Регистрация: 11.01.2021
Сообщений: 48
|
Как осуществить по очереди поиск информации из списка файлов?
Здравствуйте помогите решить проблему, у меня три поля. Edit1 указываю путь к папке, Edit2 указываю расширения файлов например txt, при нажатии “Запуск сканера”, начинаются искать эти файлы с расширением txt в папке которую указала в Edit1.
Мне требуются также сделать, чтобы при запуске сканере происходил заход в каждый файл и осуществлялся поиск по ключевому слову который указан допустим в edit3. Например прописываем в edit3 слово “development”, файл открывается ищет в нем это слово, если его нет файл закрывается и продолжается поиск (количество похожих слов в одном файле не имеет значение, главное чтобы до первого встречного слова заданного в Edit3 и потом добавлялся файл в Memo2). В случае если это слово присутствует то файл, добавлялся в компонент Memo2 и таким образом пополнялся список файлов где присутствует заданное ключевое слово в Edit3. Вот некоторый пример работы с файлами: Код:
Код:
Последний раз редактировалось Катя93; 08.06.2022 в 19:22. |
08.06.2022, 19:16 | #2 |
Пользователь
Регистрация: 11.01.2021
Сообщений: 48
|
Также прикладываю код дополнительного файла Shared, где хранятся данные о файлах и прочее.
Код:
|
08.06.2022, 19:36 | #3 |
Участник клуба
Регистрация: 17.04.2022
Сообщений: 1,833
|
Если вы ищите текст, то зачем открывать нетипизированный файл. Измените переменную F1 на TextFile или вам надо искать во всевозможных кодировках одно и тоже слово?
ADD: На приведенном изображении показаны следующие строки (дополненные до 128 байт):
Последний раз редактировалось macomics; 08.06.2022 в 20:44. |
09.06.2022, 09:11 | #4 |
Пользователь
Регистрация: 11.01.2021
Сообщений: 48
|
Я не чего не поняла, мне нужен конкретный пример. Вот простой код который ищет в тексте ключевое слово, но это только для одного файла. Как это можно применить в цикле, чтобы делать поиск ключевого слово во множество найденных файлов поочередно?
Код:
|
09.06.2022, 09:30 | #5 | |
Участник клуба
Регистрация: 17.04.2022
Сообщений: 1,833
|
Цитата:
Код:
Последний раз редактировалось macomics; 09.06.2022 в 09:48. |
|
13.06.2022, 01:23 | #6 | |
Пользователь
Регистрация: 11.01.2021
Сообщений: 48
|
Еще одна ошибка связанная с ReadLn, в этой процедуре TProgressThread.Execute; Когда я пытаюсь передать text: String в ReadLn, выдает ошибку:
Цитата:
Код:
Код:
Код:
|
|
13.06.2022, 01:36 | #7 |
Участник клуба
Регистрация: 17.04.2022
Сообщений: 1,833
|
Пропустили
Код:
Код:
Последний раз редактировалось macomics; 13.06.2022 в 01:42. |
13.06.2022, 10:33 | #8 |
Пользователь
Регистрация: 11.01.2021
Сообщений: 48
|
Файлы, он в папке ищет, но текст в них не находит.
Код:
Код:
|
13.06.2022, 14:29 | #9 | |
Участник клуба
Регистрация: 17.04.2022
Сообщений: 1,833
|
Цитата:
Код:
|
|
13.06.2022, 17:20 | #10 |
Пользователь
Регистрация: 11.01.2021
Сообщений: 48
|
Добавила, дополнительный массив (запись), чтобы туда вносить все файлы где были найдены совпадения по ключам.
Код:
Код:
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
[Free Pascal] Сортировка списка очереди. | Dikoobraz | Помощь студентам | 3 | 25.04.2013 21:33 |
Реализация очереди с элементами из списка | Quadrelle | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 20.04.2013 22:05 |
Как нескольким потокам брать строку из одного списка по очереди? | trafbite | Общие вопросы Delphi | 23 | 12.03.2012 19:34 |
Списка. Стеки, очереди, Кольца c++ | megavolt91 | Помощь студентам | 0 | 01.06.2009 20:23 |