|
10.09.2004, 19:44:34
#32690428
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
Ссылка на профиль пользователя:
|
|
|
Участник
Сообщения: 6 953
Рейтинг:
0
/ 0
|
|
|
|
От нечего делать попробовал еще вариант. Сделал упрощенно, чтоб не возиться.
Итак, считаю, что набор символов в словах ограничен (для себя взял знаки "0"-"9"). Считаю, что количество повторов в знаков в "слове" не важно, важно лишь их наличие.
Сделал таблицу "Слова"
слово - varchar(50) - Primary key
[0] - boolean
[1] - boolean
[2] - boolean
[3] - boolean
[4] - boolean
[5] - boolean
[6] - boolean
[7] - boolean
[8] - boolean
[9] - boolean
В случае, если кол-во повторов важно, вместо boolean используем byte, например, и в поля кладем именно количество вхождений символов в слово, а не признак вхождения. Делал все в a97. В таблице создал второй индекс из полей [0]-[9].
Сделал запрос "разбить":
1.
2.
3.
4.
5.
UPDATE Слова SET
Слова.[ 0 ] = InStr([Слово],'0')<> 0 , Слова.[ 1 ] = InStr([Слово],'1')<> 0 ,
Слова.[ 2 ] = InStr([Слово],'2')<> 0 , Слова.[ 3 ] = InStr([Слово],'3')<> 0 ,
Слова.[ 4 ] = InStr([Слово],'4')<> 0 , Слова.[ 5 ] = InStr([Слово],'5')<> 0 ,
Слова.[ 6 ] = InStr([Слово],'6')<> 0 , Слова.[ 7 ] = InStr([Слово],'7')<> 0 ,
Слова.[ 8 ] = InStr([Слово],'8')<> 0 , Слова.[ 9 ] = InStr([Слово],'9')<> 0 ;
Сделал форму с тремя кнопками:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
Option Compare Database
Option Explicit
Private Sub Заполнить_Click()
Dim t As Long
For t = 1 To 100000 '(сто тысяч)
CurrentDb.Execute "insert into Слова (слово) values(" & Abs(Int(Rnd * 1000000 )) & ")"
Next
MsgBox "Готово"
End Sub
Private Sub Разбить_Click()
Dim i As Double
i = Now
CurrentDb.Execute "разбить"
Debug.Print Now - i
MsgBox "Готово"
End Sub
Private Sub Найти_Click()
Dim s As String
Dim rs As DAO.Recordset
Dim i As Double
s = "000000"
i = Now
Set rs = CurrentDb.OpenRecordset("select слово from слова where " & _
"[0]=" & IIf(InStr(s, "0") <> 0 , "True", "False") & " And " & _
"[1]=" & IIf(InStr(s, "1") <> 0 , "True", "False") & " And " & _
"[2]=" & IIf(InStr(s, "2") <> 0 , "True", "False") & " And " & _
"[3]=" & IIf(InStr(s, "3") <> 0 , "True", "False") & " And " & _
"[4]=" & IIf(InStr(s, "4") <> 0 , "True", "False") & " And " & _
"[5]=" & IIf(InStr(s, "5") <> 0 , "True", "False") & " And " & _
"[6]=" & IIf(InStr(s, "6") <> 0 , "True", "False") & " And " & _
"[7]=" & IIf(InStr(s, "7") <> 0 , "True", "False") & " And " & _
"[8]=" & IIf(InStr(s, "8") <> 0 , "True", "False") & " And " & _
"[9]=" & IIf(InStr(s, "9") <> 0 , "True", "False"))
On Error Resume Next
rs.MoveLast
Debug.Print "word:'" & s & "', records:" & rs.RecordCount & ", time:" & (Now - i)
MsgBox "Готово"
End Sub
Результат работы: создалось ок. 95 000 записей, создавалось минут 15 (celeron 633). Остальное вот:
1.
2.
3.
0 : 00 : 37
word:'001122', records: 49 , time: 0 : 00 : 00
word:'000000', records: 0 , time: 0 : 00 : 00
word:'123456', records: 70 , time: 0 : 00 : 00
|
|
|
