Редактировалось 1 раз(а), последний 2017-03-03 09:58:29

D&W, пример слишком большой для форума, выложил в Upload под названием "dictionary". Файл в 300 кБ с 50 000 словами обрабатывает за 90 сек (Pen-IY, 2400 мГц). Из имеющихся у меня текстовых файлов удалось извлечь ~30 000 слов, так что при словаре в 800 000 слов проверку работоспособности выполнить не удалось.

Леонид, нада же так извращятся столько лишнего кода
Пример работает неккоректно добавляются разные символы (+ - = _) и тд, после открытия файла постоянно выскакивает message Открыть словарь? вобщем добавить в словарь мне так и не удалось.
Производить поиск одинаковых слов надо в несколько потоков скажем по числу букв в алфавите каждый поток ищет слова начинающиеся на определенную букву и добавляет в отдельную базу данных соответсвенно поиск слов и работа программы возрастет в несколько раз неговоря уже о том что все слова будут отсортированны по алфавиту

PS: Леонид, как говорил дядюшка Ленин оптимизировать оптимизировать и ещё раз оптимизировать

-=Dima=-, я горился, как же мне набирать базу для кросвордов (сам их не люблю, да внучка заставляет - кто вперёд!), а тут гостьD&W, спасибо, подсказал.
Вообще-то я собирался оставить в тексте только 33 маленькие русские буквы, но отложил на потом и, конечно, забыл, т. к. проверял на литературных текстах, там таких знаков не встретилось , это легко исправить - во вложенной схеме в *.sha/.
Одинаковые слова ищутся после сортировки и поэтому раположены рядом и удаляются за один проход по массиву.
Я не рассказал про последовательность работы с программкой: запуск программки - открытие источника (текстового файла) - на message "Открыть словарь?" ответить "Да" и открыть приложенный файл "dictionary.txt" (который и является, собственно, словарём) - после занесения новых слов в словарь можно открывать следующий ***.txt - по окончании работы не забыть сохранить словарь!
Над оптимизацией буду работать , спасибо за подсказки!

Редактировалось 1 раз(а), последний 2017-03-03 09:58:29

D&W, -=Dima=-, я критику учёл и выложил новую версию без визуальных викрутасов и, как смог, уменьшил

Леонид, надеюсь Вы прочли как установить фильтр в ODialog. Я задавал этот вопрос после анализа Вашего словаря. Так что можно еще упростить схему.

Tad, ой, и правда!

А еще правда, что на форуме об этом говорили (периодически) раз пять

Galkov, и ещё одна правда: что бы я в этот фильтр ни выставлял, диалог показывает и открывает все файлы , может там есть какая-нибудь тонкость, примерчиком не побалуете?

Вот так можно организовать два фильтра. Только я не знаю как сделать так чтобы в одной стоке происходило выделение нескольких типов файлов.
[code:1]Add(MainForm,839566,21,105) {
Left=20
Top=105
link(onCreate,12666382:doExecute,[(103,146)(103,202)])
}
Add(ODialog,12666382,154,196)
{
Filter="Txt fail|*.txt|WinRar|*.rar"
}
[/code:1]

[b]Эдик[/b], спасибо, у меня разделители нарисованы "", а работают "|" - разве догадаешся![code:1]Add(MainForm,8456193,98,63) {
Left=20
Top=105
link(onCreate,8730419:doExecute,[])
}
Add(ODialog,8730419,189,98)
{
Filter="Текстовые файлы(*.txt, *.html)|*.txt;*.html"
}
[/code:1] оказывается перечислять расширения надо через ";" (точка с запятой) :D

А еще правда - искал, но "Поиск" увы... Или "поиск" не поиск, или я не там искал.

Поиск - не поиск. Блин....

Редактировалось 1 раз(а), последний 2017-03-03 09:58:29