Вверх ↑
Этот топик читают: Гость
Ответов: 1891
Рейтинг: 110
#1: 2007-03-18 16:18:58 ЛС | профиль | цитата
Пример создания словаря синонимов с использование базы данных SQLite.
Для работы схемы требуется sqlite3.dll и сам словарь (в словаре более 19000 слов)

Схема словаря синонимов:

Add(MainForm,9988621,21,105)
{
Left=20
Top=105
Width=525
Height=419
Caption="Словарь синонимов Н. Абрамова 19108 статей"
link(onCreate,3847147:doOpen,[(79,146)(79,174)])
}
Add(ListBox,14102502,203,175)
{
Left=10
Top=65
Width=180
Height=290
Point(doSelectString)
Point(String)
link(onClick,1414394:doEvent1,[])
}
Add(Memo,404536,441,175)
{
Left=200
Top=65
Width=280
Height=290
ScrollBars=2
}
Add(SQLite_DB,3847147,91,168)
{
FileName="Bases.db"
link(onOpen,11474447:doQuery,[])
}
Add(SQLite_Query,11474447,133,168)
{
SQL="SELECT slovo FROM slovar;"
link(onQuery,4916555:doEvent1,[(175,174)(175,212)(144,212)(144,230)])
link(dbHandle,7783787:Data1,[(139,158)(128,158)(128,252)(97,252)])
}
Add(Label,6358324,42,287)
{
Left=10
Top=360
Width=64
Height=17
Caption="Всего слов:"
}
Add(Label,14052119,105,301)
{
Left=75
Top=360
Width=10
Height=17
Caption="0"
link(Text,14102502:Count,[(111,282)(216,282)])
}
Add(Hub,4916555,154,224)
{
link(onEvent1,14102502:doAdd,[(194,230)(194,181)])
link(onEvent2,14052119:doText,[(196,237)(196,299)(95,299)(95,307)])
}
Add(Edit,5711903,203,63)
{
Left=10
Top=20
Width=180
Text=""
link(onChange,14102502:doSelectString,[(245,69)(245,156)(193,156)(193,223)])
}
Add(GetData,7783787,91,210)
{
link(Data,3847147:dbHandle,[(97,205)(97,205)])
}
Add(FormatStr,15864727,294,196)
{
DataCount=1
Mask="SELECT sinonim FROM slovar WHERE slovo='%1';"
link(onFString,7049441:doValue,[])
link(Str1,14102502:String,[(300,186)(265,186)(265,237)(230,237)])
}
Add(Hub,1414394,245,182)
{
OutCount=3
link(onEvent1,404536:doClear,[])
link(onEvent2,15864727:doString,[(285,195)(285,202)])
link(onEvent3,12193914:doQuery,[(306,202)(306,244)])
}
Add(SQLite_Query,12193914,336,238)
{
SQL="SELECT slovo FROM slovar;"
link(onQuery,404536:doAdd,[(404,244)(404,181)])
link(dbHandle,7783787:Data2,[(342,228)(230,228)(230,252)(104,252)])
link(SQL,7049441:Value,[])
}
Add(Memory,7049441,343,196)
{
}
Add(Label,13584436,203,112)
{
Left=10
Top=45
Width=45
Height=17
Caption="СЛОВО:"
}
Add(Label,2638694,441,126)
{
Left=200
Top=45
Width=63
Height=17
Caption="СИНОНИМ:"
}
Add(Label,404838,203,21)
{
Left=10
Top=5
Width=45
Height=17
Caption="НАЙТИ:"
}

Словарь разделен на пять частей. скачайте все пять частей и разархивируйте в папку со схемой.
Либо скачайте одним архивом (460КВ) [burl=www.slil.ru/24098213]скачать словарь[/burl]

карма: 0
%time%
0
Ответов: 16884
Рейтинг: 1239
#2: 2007-03-18 16:32:44 ЛС | профиль | цитата
Alexbootch писал(а):
Извиняюсь
это хорошо, но без словаря, выложенная программка ничто...
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 1891
Рейтинг: 110
#3: 2007-03-18 16:35:25 ЛС | профиль | цитата
Tad, а как словарь выложить, если архив словаря - 672 KB
Разделил архив на части не более 200 Кb - по частям не скидывается!
карма: 0
%time%
0
Ответов: 16884
Рейтинг: 1239
#4: 2007-03-18 16:36:37 ЛС | профиль | цитата
Alexbootch, раздели на 4
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 3655
Рейтинг: 69
#5: 2007-03-18 16:41:52 ЛС | профиль | цитата
Alexbootch,
Alexbootch писал(а):
а как словарь выложить, если архив словаря - 672 KB

Slil.ru
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#6: 2007-03-18 22:49:22 ЛС | профиль | цитата
Alexbootch, найди отличия
code_1084.txt
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1code_1084.txt [2.3KB] [470]
Ответов: 1891
Рейтинг: 110
#7: 2007-03-18 22:51:07 ЛС | профиль | цитата
Tad, отличий нету. Да вот схемы не хре...а не парсятся
карма: 0
%time%
0
Ответов: 16884
Рейтинг: 1239
#8: 2007-03-18 23:00:18 ЛС | профиль | цитата
Alexbootch писал(а):
отличий нету
ну да ! а попробуй введи слово в Edit
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 1891
Рейтинг: 110
#9: 2007-03-18 23:10:12 ЛС | профиль | цитата
Tad, кому как нравится!
карма: 0
%time%
0
Ответов: 16884
Рейтинг: 1239
#10: 2007-03-18 23:59:49 ЛС | профиль | цитата
Это точно Делает больше и ровно на 1024 байта или на 1 кб меньше.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 1891
Рейтинг: 110
#11: 2007-03-19 00:12:20 ЛС | профиль | цитата
Tad, только не всем нравится если к примеру в Edit напишешь большое слово неправильно, а потом будет удалять буквы -> получишь море ненужной информации
карма: 0
%time%
0
11
Сообщение
...
Прикрепленные файлы
(файлы не залиты)