Оптимальный способ искать слова в текстовой (txt) базе.

[JTG]

http://ru.wikipedia.org/wiki/Алгоритм_Бойера_—_Мура

[Serge_Bliznykov]

JTG, 1) на ту тему где я ссылался (чтение реально больших файлов) приведёна программа, реализующая поиск по алгоритму Боейра=Мура.

2) Вы, надеюсь, не будете утверждать, что поиск в мегабайтном файле самым лучшим алгоритмом будет быстрее, чем двоичный поиск (по отсортированному списку) (это метод TStringList.Find()) или поиск в БД по индексу (SELECT * from Table where Pole Like "Что-то%" ) ?!

[Utkin]

Не знаю, писал ли кто уже (читал, но может пропустил). Предлагаю разделить мегабайт на тридцать. Нафига искать сразу во всем мегабайте? Создайте допустим на каждую первую букову свой файл и ищите в нем. Искать в маленьком StringListe быстрей чем в большом StringListe . Для мягкого знака файл можешь не создавать . Вроде как индексация есть и базу перестраивать не надо.

[Alex Cones]

Создайте допустим на каждую первую букову свой файл и ищите в нем.

Хм... Хороша идейка, надо над ней подумать.

Почему не хотите СУБД

А вот здесь укажу конкретику: Сколько будет занимать места база данных, имеющая в себе 300 000 слов, да плюс все падежи (т.е. 300 000 * 12 = 3 600 000 записей?) А в txt формате будет около 6-7 МБ.

А как работает метод Sort у стринГлиста()? Никогда его не юзал...

[Utkin]

Сообщение от Alex Cones

Хм... Хороша идейка, надо над ней подумать.

А вот здесь укажу конкретику: Сколько будет занимать места база данных, имеющая в себе 300 000 слов, да плюс все падежи (т.е. 300 000 * 12 = 3 600 000 записей?) А в txt формате будет около 6-7 МБ.

А как работает метод Sort у стринГлиста()? Никогда его не юзал...

Та ну как и везде, единственный косяк, как и везде, цифры воспринимаются как строки поэтому сортируются криво. Прямо таки ни когда? Не Мемо не RichEdita не знаете? А это по сути его обертки.

[Alex Cones]

Я имею в виду не юзал Sort, а Rich конечно использовал.

поэтому сортируются криво.

Насколько криво, если я буду использовать ТОЛЬКО ТАКИЕ БУКВЫ?

[Utkin]

Ну с буквами вроде норм.

function SortStrings(const aFileName: String);
var
  TmpStringList: TStringList;
begin
  TmpStringList := TStringList.Create;
  try

    TmpStringList.LoadFromFile(aFileName);

    TmpStringList.Sorted := True;

    TmpStringList.SaveToFile(aFileName);
  finally
    TmpStringList.Free;
  end;
end;

Ну как вариант (код не мой).

[Alex Cones]

Проверил. Работает замечательно. Значит проблема сортировки решена. Сейчас проверю на больших файлах...

Мда....

Dr.Web
D:\PROGRAMMING\DELPHI\Delphi\Projec ts\Project43.exe - инфицирован Trojan.DownLoad.47164

procedure TForm1.Button1Click(Sender: TObject);
var
  TmpStringList: TStringList;
begin
  TmpStringList := TStringList.Create;
  try

    TmpStringList.LoadFromFile('1.txt');

    TmpStringList.Sorted := True;

    TmpStringList.SaveToFile('2.txt');
  finally
    TmpStringList.Free;
    Windows.Beep(700,700);
  end;
end;

И что, теперь даже бибику нельзя юзать???
-------------------------------------------------
Убрал бибику, зарядил 2 мегатонную книгу (предварительно три раза скопировал 650 кб. и вставил). Результат поражает:

человеческим именем, но, с другой стороны, фамилия его уже прочно
человеческим именем, но, с другой стороны, фамилия его уже прочно
человеческим именем, но, с другой стороны, фамилия его уже прочно
человеческих детенышей, поступком, этически безупречным!
человеческих детенышей, поступком, этически безупречным!
человеческих детенышей, поступком, этически безупречным!
человеческую жизнь, не продлевая ее магическими способами и не улучшая
человеческую жизнь, не продлевая ее магическими способами и не улучшая
человеческую жизнь, не продлевая ее магическими способами и не улучшая
человеческую жизнь. Высокий, статный, красивый мужчина средних лет в
человеческую жизнь. Высокий, статный, красивый мужчина средних лет в
человеческую жизнь. Высокий, статный, красивый мужчина средних лет в

И ВСЕГО ЗА 5 СЕКУНД!
Я даже на буквы тогда разбивать наверное не буду...

[Utkin]

Лучше разбей - надо стремиться к совершенству . Представь, что твою прогу заюзают на древнем, как бивни мамонта, компе...

[grenles]

Только в алфавитном? Тогдга не проблема. Проблема будет в том, что-бы записать в базу слово с буквы "а".

ПО поводу вставки в дерево - слово можно также вставлять поиском, только сохраняя ссылку на предыдущий шаг.
Если слово не найденно в дереве, то его надо вставить перед меньшим после большего.
Единственный косяк - это балансировка дерева. чтобы оно не стало прямой линией. Тогда смысл теряется.

ПО поводу TsringsList - не знаю. Я имел ввиду настоящее дерево.
Где

MTree =  record
 element : string;
 rigth : TMTree;
 left : TMTree;
end

вОЗМожНо я отстал от жизни и TSringsList все это делает.

Идея с 33 файлами (-2 = "Ъ" и "Ь") - это тоже решение.
Как делать бинарные файлы не знаю, но может это поможет.
А вообще-то - почему бы не перейти на СУБД и не на SQL?
Хотя - свое решение может для конкретного случая оказаться лучше.

Кстати. вопрос почти в тему. А как организованна автоподсказка в браузерных поисковиках, когда вводишь слово, а внизу буквально за 1.-2 секунды уже готовые варианты написаний.
Не по той же технологии? Поиск в словаре слов?