Поиск слов в текстовых файлах delphi

@Hardalternative · Регистрация: 30.01.2018

Author24 — интернет-сервис помощи студентам

Кто сможет помочь сделать простую программу. Найти все вхождения слова в файлах - в каталоге и его подкаталогах и результат вывести в memo.

К примеру ввожу слово "Авто", указываю путь к папке и программа ищет все вхождения этого слова во всех файлах этой папки и всех папок что находяться в этой папке и результат выводит в Memo.

То есть: Поиск слова авто и результат:
автомобили
автомойка
авто_2018
автоматический
автомагазин

@Hardalternative · 02.06.2018, 12:43 **[ТС]**

Есть идеи как это сделать?, я пробовал - перед тем как задать вопрос, но задача для меня не простая.

~~Verevkin~~ · 02.06.2018, 12:54

Готовое решение удовлетворит отца русской демократии? Их есть у меня.

@Hardalternative · 02.06.2018, 13:03 **[ТС]**

Verevkin, Получается ваш софт ищет все вхождения указаного слова в файлах? А вот выводит ли он список вхождений?:

К примеру если задал слово авто то: если в тексте есть слова с этим словом он выводит - эти вхождение, к примеру в MEMO:

автомобили
автомойка
авто_2018
автоматический
автомагазин

~~Verevkin~~ · 02.06.2018, 13:13

Сообщение от Hardalternative

Получается ваш софт ищет все вхождения указаного слова в файлах?

Это не мой софт. Это open-source, который принадлежит всем людям.
Обрабатывать и выводить результаты поиска куда-либо - задача программиста.

@Hardalternative · 02.06.2018, 13:24 **[ТС]**

Verevkin,
Но то софт не делает того что нужно, он просто ищет файлы по ключевым словам.

~~Verevkin~~ · 02.06.2018, 13:40

Сообщение от Hardalternative

Но то софт не делает того что нужно, он просто ищет файлы по ключевым словам.

А кто обещал, что будет легко? Жизнь - это боль. Я предложил решение задачи поиска
файлов по контенту. Искать вхождения контента внутри файла - это другая задача, не зависящая от предыдущей.

@AlexSky-coder · 02.06.2018, 14:09

Сообщение от Hardalternative

К примеру если задал слово авто то: если в тексте есть слова с этим словом он выводит - эти вхождение, к примеру в MEMO:

Т. е. взять предложение "Моя бабушка разбила автомобиль лопатой." должен быть результат: "автомобиль", или целая строка?

@Hardalternative · 02.06.2018, 14:23 **[ТС]**

SkyLion27, Желательный результат должен быть "автомобиль".

Добавлено через 8 минут
Но если проще сделать целым предложением то можно и так. Один из двух вариантов на ваше усмотрение.

@AlexSky-coder · 02.06.2018, 15:11

Delphi

procedure posslov(var t:TMemo;const txt:TStringList; s:string);
var i,j:Integer; m:TStringlist;
begin
m:=TStringList.Create;
for i:=0 to txt.Count-1 do begin
m.Text:=StringReplace(txt.Strings[i],' ',#13+#10,[rfReplaceAll,rfIgnoreCase]);
for j:=0 to m.Count-1 do if Pos(s,m.Strings[j])>0 then t.Lines.Add(m.Strings[j]);
end;
m.Free;
end;
 
procedure TForm1.btn1Click(Sender: TObject);
var fl:TStringList;
begin
mmo1.Clear;
fl:=TStringList.Create;
fl.LoadFromFile('file.txt');
posslov(mmo1,fl,'авто');
fl.Free;
end;

@Hardalternative · 02.06.2018, 15:35 **[ТС]**

SkyLion27, Благодарю! Именно то что нужно.

@Hardalternative 3 / 3 / 0 Регистрация: 30.01.2018 Сообщений: 409
		1
	RAD XE3+ Поиск слов в текстовых файлах delphi 02.06.2018, 12:22. Показов 1462. Ответов 10 Метки нет (Все метки) Кто сможет помочь сделать простую программу. Найти все вхождения слова в файлах - в каталоге и его подкаталогах и результат вывести в memo. К примеру ввожу слово "Авто", указываю путь к папке и программа ищет все вхождения этого слова во всех файлах этой папки и всех папок что находяться в этой папке и результат выводит в Memo. То есть: Поиск слова авто и результат: автомобили автомойка авто_2018 автоматический автомагазин Миниатюры 0

@Hardalternative 3 / 3 / 0 Регистрация: 30.01.2018 Сообщений: 409
	02.06.2018, 12:43 [ТС]	2
	Есть идеи как это сделать?, я пробовал - перед тем как задать вопрос, но задача для меня не простая. 0

~~Verevkin~~ Заблокирован
	02.06.2018, 12:54	3
	Готовое решение удовлетворит отца русской демократии? Их есть у меня. 1

@Hardalternative 3 / 3 / 0 Регистрация: 30.01.2018 Сообщений: 409
	02.06.2018, 13:03 [ТС]	4
	Verevkin, Получается ваш софт ищет все вхождения указаного слова в файлах? А вот выводит ли он список вхождений?: К примеру если задал слово авто то: если в тексте есть слова с этим словом он выводит - эти вхождение, к примеру в MEMO: автомобили автомойка авто_2018 автоматический автомагазин 0

~~Verevkin~~ Заблокирован
	02.06.2018, 13:13	5
	Сообщение от Hardalternative Получается ваш софт ищет все вхождения указаного слова в файлах? Это не мой софт. Это open-source, который принадлежит всем людям. Обрабатывать и выводить результаты поиска куда-либо - задача программиста. 0

@Hardalternative 3 / 3 / 0 Регистрация: 30.01.2018 Сообщений: 409
	02.06.2018, 13:24 [ТС]	6
	Verevkin, Но то софт не делает того что нужно, он просто ищет файлы по ключевым словам. 0

~~Verevkin~~ Заблокирован
	02.06.2018, 13:40	7
	Сообщение от Hardalternative Но то софт не делает того что нужно, он просто ищет файлы по ключевым словам. А кто обещал, что будет легко? Жизнь - это боль. Я предложил решение задачи поиска файлов по контенту. Искать вхождения контента внутри файла - это другая задача, не зависящая от предыдущей. 0

@AlexSky-coder Да так, от скуки захожу. 141 / 120 / 44 Регистрация: 25.06.2017 Сообщений: 365 Записей в блоге: 3
	02.06.2018, 14:09	8
	Сообщение от Hardalternative К примеру если задал слово авто то: если в тексте есть слова с этим словом он выводит - эти вхождение, к примеру в MEMO: Т. е. взять предложение "Моя бабушка разбила автомобиль лопатой." должен быть результат: "автомобиль", или целая строка? 0

@Hardalternative 3 / 3 / 0 Регистрация: 30.01.2018 Сообщений: 409
	02.06.2018, 14:23 [ТС]	9
	SkyLion27, Желательный результат должен быть "автомобиль". Добавлено через 8 минут Но если проще сделать целым предложением то можно и так. Один из двух вариантов на ваше усмотрение. 0

@Hardalternative 3 / 3 / 0 Регистрация: 30.01.2018 Сообщений: 409
	02.06.2018, 15:35 [ТС]	11
	SkyLion27, Благодарю! Именно то что нужно. 0

Поиск слов в текстовых файлах delphi

Решение