Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
kucochka
0 / 0 / 1
Регистрация: 18.04.2015
Сообщений: 20
1

Поиск по слову в файле с выводом всего содержимого в memo

18.02.2016, 21:28. Просмотров 468. Ответов 4

Есть программа, которая вводит информацию о товарах, с трех разных эдитов и сохраняет эту информацию в файл 1.txt по строчкам, который в папке с программой. Например:
"продукт"
"страна"
"количество".
Нужно реализовать поиск, то есть я набираю слово "продукт" в поисковую строчку ( для этого создаю новый эдит), и он выводит в memo всю остальную информацию: "продукт","страна","количество". Подскажите, на форуме уже поискала..
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.02.2016, 21:28
Ответы с готовыми решениями:

Поиск содержимого в файле
нашел эту программу в паскале,переделать не получается...

Поиск файлов по ключевому слову в их именах и перемещение найденных в новую папку с выводом на экран их числа
Суть вопроса такова. В папке имеется файл(-ы), содержащие в названии ключевое слово, но название...

Поиск в файле по введенному слову
Мне нужно вывести товары одной фирмы ,которую введет пользователь. Вот такой ввод данных: void...

Поиск по слову в файле и вывод
Подскажите пожалуйста имеется текстовый файл вида: 2-15-16-01:02:03:04:05:06. Как сделать чтобы...

Поиск строки в файле по заданному слову
Ребят,подскажите. У меня создан текстовый файл,в котором 5 строк,каждая строка это новая книга,а...

4
NIKOLAYY
830 / 727 / 340
Регистрация: 22.09.2012
Сообщений: 5,000
18.02.2016, 21:33 2
kucochka,
Все зависит от того что лежит в текстовом файле.

Если в текстовом файле лежат строки так:
Продукт - ананас

То тебе нужно считать текстовый файл в память и вывести в мемо всю строку в которой есть слово продукт.
Но если файл организован по другому- то и делать нужно по другому. А пока непонятно что у тебя в текстовом файле.
0
kucochka
0 / 0 / 1
Регистрация: 18.04.2015
Сообщений: 20
18.02.2016, 21:46  [ТС] 3
Если открыть текстовый файл, то его содержимое выглядит так:
Ананас
Африка
30
При введении новых данных эти строки просто заменяются новыми данными в таком же формате
0
Zergius
88 / 85 / 22
Регистрация: 11.01.2012
Сообщений: 863
18.02.2016, 22:27 4
Цитата Сообщение от kucochka Посмотреть сообщение
При введении новых данных эти строки просто заменяются новыми данными в таком же формате
То есть в файле 1.txt всегда три строчки?

Тогда так:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Var
f:textfile;
s:string;
begin
memo1.Clear;
 
AssignFile(f,'1.txt');
 
reset(f);
 
readln(f,s);
 
if s='Ананас' then
begin
memo1.Lines.Add(s);
readln(f,s);
memo1.Lines.Add(s);
readln(f,s);
memo1.Lines.Add(s);
end
else
ShowMessage('Данные о продукте не найдены');
 
closefile(f);
 
end;
0
NIKOLAYY
830 / 727 / 340
Регистрация: 22.09.2012
Сообщений: 5,000
18.02.2016, 23:25 5
kucochka,
Ты пошол сразу неправильным путем в созданнии текстового файла..
Я пишу в этит слово "крокодил" как мне найти слово стул в тексте если я написал крокодил?

С чего ты взял что ты вводиш продукт тебе будет искать ананс?
У меня слово крокодил не ищет слово стул..

Потому что слово крокодил не знает что нужно искать слово стул, так же как и слово продукт не знает что нужно искать слово ананас.

Создай текстовой фал так:

Продукты:
Ананас
Апеьсин
Яболко

Город:
Москва
Красноярск
Омск

Или так:

Продкуты: Ананас, апельсин, яблоко.
Город: Москва, Красноярск, Омск.

Тогда можно и код собрать который что-то искать будет. Твой глупый подход к созданию файла текстовика ни чего не найдет.
0
18.02.2016, 23:25
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.02.2016, 23:25

Как выполнить поиск в файле по ключевому слову ?
Уже есть массив, который заполнен данными из файла. Возможно ли за выполнить поиск за ключевым...

Как наладить поиск в текстовом файле по ключевому слову
Вообщем засел за написание курсовой, помогите пожалуйста. Одна из задач состоит в том что бы...

Поиск в файле по определенным критериям с последующим выводом на печать
Всем доброго времени суток! Я только начинаю изучать PHP и столкнулся с такой проблемой. Есть...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.