Поиск совпадений слов в двух файлах (Delphi 7)

@TheLisikFox · Регистрация: 20.12.2017

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

Всем доброго дня!
Впервые пытаюсь писать программу на Delphi и ни как не получается последняя часть.
Имеется файл .txt в котором записано несколько словосочетаний, каждое в новой строке.
И имеется второй файл также .txt в котором произвольный текст.
Путь к файлам определён через переменные.
Нужно написать программу, которая считывает эти 2 файла и если во втором файле (произвольный текст) находиться совпадение хоть по 1 из словосочетаний (находит совпадение по 1 из строке) из первого файла, выводиться сообщение "найдено". В противном случае "Не найдено".

@droider · 20.12.2017, 21:35

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

ни как не получается последняя часть

Общий алгоритм:

1. Загрузите оба файла в TMemo,
2. в цикле считывайте построчно первый файл,
3. через строковую функцию AnsiPos() проверяйте вхождение считанной строки во весь текст второго файла (Memo2.Text),
4. если AnsiPos(AnsiLowerCase('строка первого файла'), AnsiLowerCase(' весь текст второго файла'))> 0, то "Найдено" иначе "Не найдено".

P.S. перед сравнением советую привести искомую строку и весь общий текст к одному регистру букв. Например, к малому через AnsiLowerCase(), чтобы поиск был точнее. AnsiPos() чувствительна к регистру.

P.P.S. можно еще реализовать поиск с помощью TRichEdit с последующим выделением найденной строки. Пример тут :Поиск слова в richedit.

@TheLisikFox · 20.12.2017, 22:13 **[ТС]**

Спасибо постараюсь завтра опробовать.
Как опробую, сразу отпишусь.

@TheLisikFox 0 / 0 / 0 Регистрация: 20.12.2017 Сообщений: 2
		1
	Поиск совпадений слов в двух файлах (Delphi 7) 20.12.2017, 18:57. Показов 1561. Ответов 2 Метки нет (Все метки) Всем доброго дня! Впервые пытаюсь писать программу на Delphi и ни как не получается последняя часть. Имеется файл .txt в котором записано несколько словосочетаний, каждое в новой строке. И имеется второй файл также .txt в котором произвольный текст. Путь к файлам определён через переменные. Нужно написать программу, которая считывает эти 2 файла и если во втором файле (произвольный текст) находиться совпадение хоть по 1 из словосочетаний (находит совпадение по 1 из строке) из первого файла, выводиться сообщение "найдено". В противном случае "Не найдено". 0

@droider 4912 / 2781 / 853 Регистрация: 04.10.2012 Сообщений: 10,121
	20.12.2017, 21:35	2
	Сообщение от TheLisikFox ни как не получается последняя часть Общий алгоритм: 1. Загрузите оба файла в TMemo, 2. в цикле считывайте построчно первый файл, 3. через строковую функцию AnsiPos() проверяйте вхождение считанной строки во весь текст второго файла (Memo2.Text), 4. если AnsiPos(AnsiLowerCase('строка первого файла'), AnsiLowerCase(' весь текст второго файла'))> 0, то "Найдено" иначе "Не найдено". P.S. перед сравнением советую привести искомую строку и весь общий текст к одному регистру букв. Например, к малому через AnsiLowerCase(), чтобы поиск был точнее. AnsiPos() чувствительна к регистру. P.P.S. можно еще реализовать поиск с помощью TRichEdit с последующим выделением найденной строки. Пример тут :Поиск слова в richedit. 0

@TheLisikFox 0 / 0 / 0 Регистрация: 20.12.2017 Сообщений: 2
	20.12.2017, 22:13 [ТС]	3
	Спасибо постараюсь завтра опробовать. Как опробую, сразу отпишусь. 0