|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
02.06.2015, 12:52 | #1 |
Форумчанин
Регистрация: 06.05.2015
Сообщений: 120
|
Delphi поиск в блокноте
Здравствуйте многоуважаемые пользователи.Скажите пожалуйста как сделать поиск чтобы то что я напечатал в блокноте можно было найти в программе,пример:
В edit1 вожу Фамилию человека и он находит эту фамилию в блокноте и показывает что нашёл. |
02.06.2015, 13:01 | #2 |
Старожил
Регистрация: 20.04.2008
Сообщений: 5,528
|
именно в блокноте (т.е. в окне УЖЕ ЗАПУЩЕННОЙ программы блокнот) ?
или же все-таки в тех ФАЙЛАХ, которые по умолчанию открываются с помощью указанной программы (блокнота) и ПОТОМ ПОКАЗАТЬ ЭТОТ файл с помощью блокнота? в любом случае рекомендую посмотреть похожие темы в конце страницы.
программа — запись алгоритма на языке понятном транслятору
Последний раз редактировалось evg_m; 02.06.2015 в 13:06. |
02.06.2015, 13:11 | #3 |
Форумчанин
Регистрация: 06.05.2015
Сообщений: 120
|
Я создал текстовый документ txt и записал туда фамилии.Хотелось бы чтобы при в воде в edit1 и после нажатия на кнопку программа могла найти в этот текстовом документе фамилию которую я вписал.
вот я посылаю скриншот Последний раз редактировалось Stilet; 02.06.2015 в 14:12. |
02.06.2015, 14:03 | #4 |
Старожил
Регистрация: 20.04.2008
Сообщений: 5,528
|
Значит надо
1) найти такие файлы (или он всегда известен? ) ищите работу с поиском файлов. FileSearch и маска *.txt 2) проверить наличие в найденных файлах нужного текста работа с текстовыми файлами или же TStringList или же TMemo TMemo это почти ТОТ же блокнот но который можно вывести(поместить на форму) т.е. не надо заморачиваться с управленем ДРУГОЙ программой. Он выведет текст файла, в нем есть подсветка выделенного фрагмента. Код:
ах да поиск. Код:
программа — запись алгоритма на языке понятном транслятору
|
02.06.2015, 17:37 | #5 |
Форумчанин
Регистрация: 06.05.2015
Сообщений: 120
|
Задание таково что нужно создать поисковик альбома. Этих альбомов несколько(реальные альбомы всего 12 штук) и в каждом из них содержаться имена.Нужно чтобы я вёл имя фамилию нажал на кнопку и он вывел ответ чтобы я искал информацию об этом человеке в таком то альбоме.
|
02.06.2015, 21:13 | #6 |
Участник клуба
Регистрация: 09.11.2007
Сообщений: 1,762
|
D2010+: сначала находишь все текстовые файлы (пути к ним), а потом в цикле проверяешь каждый файл на соответствие.
Более ранние версии: сразу в цикле ищешь файлы и проверяешь на соответствие. |
03.06.2015, 01:41 | #7 |
ПШП
Участник клуба
Регистрация: 15.07.2013
Сообщений: 1,894
|
|
03.06.2015, 10:06 | #8 | |||||
Старожил
Регистрация: 20.04.2008
Сообщений: 5,528
|
Цитата:
Цитата:
поле ввода для непосредственного ввода расположения папки (TEdit) + кнопка вызова диалога(окна) графического(мышиного) задания этой папки (TButton/TSpeedButton/...) + сам диалог выбора папки SelectDirectory Цитата:
Цитата:
(перебор либо всех файлов в папке FileSeach (*.*)/либо всех файлов нужного типа fileSeach(*.txt) ) Цитата:
TListBox (простой текстовый спсисок) TListView (многоколоночный список таким пользуется windows когда показывает содержимое какой-либо папки) дополнительно можно показ текста (информации) из выбранного альбома TMemo если файл показа чисто текстовый то как писал ранее Memo1.Lines.LoadFromfile( .. и путь/имя полученные на предыдущих этапах) Или же ... есть текстовый файл каталог известной структуры и со ВСЕЙ необходимой информацией имена фамилии наименования альбомов .... и поиск НАДО вести в этом каталоге. а также выводимая информации берется из этого же каталога насколько я понимаю именно здесь и возникла идея "прикрутить" блокнот для показа.
программа — запись алгоритма на языке понятном транслятору
|
|||||
03.06.2015, 10:19 | #9 |
Участник клуба
Регистрация: 09.11.2007
Сообщений: 1,762
|
Потому что в нём есть модуль IOUtils и в нём есть TDirectory.GetFiles вместо старого доброго FindFirst, FindNext, FindClose.
Последний раз редактировалось FaTaL; 03.06.2015 в 10:22. |
03.06.2015, 10:34 | #10 |
Цифровой кот
Старожил
Регистрация: 29.08.2014
Сообщений: 7,629
|
А notepad тут, извините, нафига?
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Работа со строками в блокноте | Lau | Microsoft Office Word | 11 | 10.08.2010 12:36 |
Написать в блокноте | guffer | Общие вопросы Delphi | 10 | 23.08.2009 20:05 |
Цвет фона в блокноте. | Alexxx92 | Паскаль, Turbo Pascal, PascalABC.NET | 4 | 18.05.2009 04:45 |
редактирование текста в блокноте. | Kio | Помощь студентам | 16 | 21.07.2008 17:02 |
Как работает Замена в блокноте? | Alar | Софт | 9 | 14.01.2008 11:07 |