Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Подсчет слов совпадающих с данным в текстовом файле [D7, XP]

Sn © (2006-12-28 16:55:00)
Нужно сделать в Delphi программу, которая должна работать следующим образом:
В поле Edit вводится строка,
затем через OpenDialog открывается текстовый файл,
на Label выводится сколько раз данное слово встречается в файле
нужен только алгоритм, со связкой компонентов проблем нет

Sha (2006-12-29 09:49:00) [1]
> Sn (28.12.06 16:55)
> нужен только алгоритм...

> Sn (29.12.06 06:58) [14]
> Так и я могу написать, как мне ответили, типа
> 1. открываешь файл
> 2. ищешь совпадения
> 3. накручиваешь целочисленную перменную
> 4. закрываешь файл
> 5. выводишь количество совпадений

А что в твоем понимании алгоритм?

> Sn (28.12.06 16:55)
> нужен только алгоритм...

> Sn (29.12.06 06:52) [13]
> Я здесь писал как раз для того, чтобы не рыться в справочниках и хелпах!
> И просил готовое решение.

Определись, че те надо, и сформулируй.

> Sn
Первй раз деньги на форумах вымогают.

Люли отвечают на понравившиеся им вопросы.
Ты принимаешь понравившиеся ответы.
Это ж так просто.

> Sn
Конечно, надо быть взаимно вежливыми.

Во-во, не хрен здесь хамить

Elen (2006-12-29 08:21:00) [2]

> все 1000%

Да уж... Неуважение к другим действительно зашкаливает на 1000%.
Кстати а как расшифровывается WMZ?

Virgo_Style (2006-12-29 08:01:00) [3]
ура

Sn (2006-12-29 07:43:00) [4]
Конечно, надо быть взаимно вежливыми.
Первй раз деньги на форумах вымогают.
Я же не курсовую прошу написать, а 10 строк элементарного, для знающего паскаль, кода.
Я всегда знал, что нахрен Паскаль не нужен.
Сейчас в этом убедился на все 1000%.
Прощайте, господа!

Sn (2006-12-29 07:36:00) [5]
Удалено модератором
Примечание: Сам займись эти, на тренировки три дня

MikePetrichenko (2006-12-29 07:11:00) [6]

> Я здесь писал как раз для того, чтобы не рыться в справочниках
> и хелпах!
> И просил готовое решение.

Готовое реение = $50WMZ

Sn (2006-12-29 06:58:00) [7]
Так и я могу написать, как мне ответили, типа
1. открываешь файл
2. ищешь совпадения
3. накручиваешь целочисленную перменную
4. закрываешь файл
5. выводишь количество совпадений

Sn (2006-12-29 06:52:00) [8]
>загружаете текст в TStrings и в св-ве TStrings.Text ищете нужное >сочетание с помощью ф-ции PosEx
Просто возникла такая задача, а Паскаль я вообще не знаю!
Я здесь писал как раз для того, чтобы не рыться в справочниках и хелпах!
И просил готовое решение.
Неужели нельзя привести 10 строк кода.
Это же элементарная задача.
Конечно на Perl или PHP можно через регексы легко разобрать.
На C тоже без проблем.
Это особенность людей пишуших на Паскале отвечать задачей на задачу???

Sha (2006-12-29 00:32:00) [9]
> umbra © (28.12.06 18:20) [9]
> тогда пришлось бы сделать практически то же, что делается в TStrings.LoadFromFile.

Вовсе нет. Достаточно одной таблетки, т.е. одного BlockRead.
А в TStrings.LoadFromFile много лишнего для нас делается.

default (2006-12-28 21:05:00) [10]
что тебе мешает мыслить текстовый файл как одну строку?
и дальше применить какой-либо алгоритм поиска подстроки в строке
как правило эти алгоритмы требуют одного прямого прохода по строке
если файл большой тебе потребуется подгружать части строки по мере просмотра
можно поручить задачу динамической подгрузки частей строки ОС используя файлы отображаемые в память

Sn (2006-12-28 20:14:00) [11]
Пушкин в txt 12 МБ.
нет, что-нибудь такое нужно в стиле C
т.е. Открыл файл
потом read()
закрыл файл
Наверняка же есть простое решение на Паскаль?
без всяких TString и загрузки файла в текстовые области или еще чего

umbra (2006-12-28 18:20:00) [12]

> Не проще ли было сразу в строку все зачитать?
>

тогда пришлось бы сделать практически то же, что делается в TStrings.LoadFromFile. И, честно говоря, читая описание задачи, я не рассчитывал даже на Пушкина (о нем еще и речи не было), не говоря уже о Толстом.

Sha (2006-12-28 18:01:00) [13]
И еще один вопрос остается, а стоило ли грузить в TStrings, а потом искать в Text?
Не проще ли было сразу в строку все зачитать?

umbra (2006-12-28 17:45:00) [14]
но вот Льва Толстого я в этом смысле опасаюсь :)

umbra (2006-12-28 17:42:00) [15]
если без черновиков, набросков и комментариев, то точно меньше :)

Sha (2006-12-28 17:40:00) [16]
Раньше не задумывался, Пушкин больше 2х гигов написал или меньше )

umbra (2006-12-28 17:09:00) [17]
загружаете текст в TStringsи в св-ве TStrings.Textищете нужное сочетание с помощью ф-ции PosEx

Anatoly Podgoretsky (2006-12-28 17:05:00) [18]
> Sn (28.12.2006 17:02:02) [2]

Для собрания сочинений Пушкина используй базу данных, по одному слову в поле и запрос с Count и Group

Sn (2006-12-28 17:02:00) [19]
можно чуть подробнее... как искать какую функцию использовать?
а если текстовый файл полное собрание сочинений Пушкина например?
тоже загружать?

Elen (2006-12-28 16:58:00) [20]

> Sn

Загружай тест в ListBox и в цикле до конца ищи слово, увеличивая счетчик.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »