Ускорить работу программы

@РусланМухмадови · Регистрация: 30.05.2016

Студворк — интернет-сервис помощи студентам

суть такова, на форме имеется два текст бокса и кнопка, в первый текст бокс вводится набор букв, во второй цифра, которая будет означать количество букв в слове, далее набор букв из первого текст бокса разбивается на отдельные символы и заполняется в массив, после чего из них генерируются слова, так вот этот код работает быстро к примеру на 3-4 символа (как в моем коде, скинутом для примера), вчера поставил генерацию из 12 символов, по 5 букв в слове так он залип на минут 15, мой вопрос таков: можно ли ускорить работу моего кода, или оптимизировать как то, или даже заменить что то, так как я может вообще использую "деревянный метод" так как программированием давно не занимался, и второй под вопрос, можно ли отсеивать не существующие слова сразу, Application.CheckSpelling - пропускает много не нужных слов.

пример моего кода на генерацию 3 слова из трех букв:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim razmer, schet As Integer
schet = 1
kolbukv = CInt(Text1.Text)
str = Text2.Text
razmer2 = Len(str)
ReDim sim(razmer2)
For i = 1 To Len(Text2)
   sim(i) = Mid$(Text2, i, 1)
  Next i
If kolbukv = 3 Then
 razmer = UBound(sim())
  For i1 = 1 To razmer
   For i2 = 1 To razmer
    For i3 = 1 To razmer
    slovo = sim(i1) & sim(i2) & sim(i3)
      If Application.CheckSpelling(slovo) Then
        Cells(schet, 1) = slovo
        schet = schet + 1
      End If
  Next i3
 Next i2
Next i1

Добавлено через 5 часов 53 минуты
может я плохо объяснил суть вопроса, в общем это генератор слов из заданных букв, буквы вводятся в первый текст бокс, а во второй вводится цифра, означающая количество букв в слове, после чего буквы из первого текст бокса заполняются в массив отдельными символами, а дальше с помощью вложенных циклов эти отдельные элементы массива присоединяются друг к другу во всех возможных комбинациях, и выводятся в ячейку таблицы Excel, я скинул фрагмент кода в котором генерация слова идет из трех букв, можно ли реализовать эту задачу другим способом, так как мой способ затрачивает много времени.

@KoGG · 02.06.2016, 16:46

Для алфавитной сортировки результата в конце первой процедуры нужно добавить:

Visual Basic
1
Columns("B:B").Sort Columns("B:B")

@РусланМухмадови · 03.06.2016, 07:12 **[ТС]**

KoGG, хм, быстро работает, без комментариев в коде, немного сложно разобраться( но я разберусь, ..
последний вариант вообще решение всех моих задач, теперь мне нужно разобраться в вашем коде досконально. тут может и для Вас все просто, но мне нужно время) и еще раз большое спасибо за помощь.. литературой какой-ни будь пользовались? именно вот работа со строками и символами, и сверкой.

@KoGG · 03.06.2016, 09:55

Еще немножко ускорил и прокомментировал.
Для слова "анизотропия" и 5 букв старый код работал у меня 74 секунды, новый 67 секунд.
Ускорение за счет того, что при каждом рекурсивном вызове теперь передается более короткий массив с оставшимися неиспользованными буквами.
При длине слова близкой к количеству букв нового ускорение будет больше.

Visual Basic
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
44
45
46
47
48
49
50
51
52
53
Option Explicit
Dim razmer&, Dic As Object
Sub Anagramma()
    Dim i%, kolbukv&, strok$, sim, slovo$, schet&, vX
    strok = [A5]
    razmer = [A7]
    kolbukv = Len(strok)
    ReDim sim(kolbukv)
    For i = 1 To kolbukv
        sim(i) = Mid$(strok, i, 1)
    Next i
    Application.ScreenUpdating = False
    ThisWorkbook.Sheets(1).Columns("B:B").ClearContents
    Set Dic = CreateObject("Scripting.Dictionary"): Dic.CompareMode = 1
    SlovoRecurs slovo, sim  ' Первый вызов SlovoRecurs, Slovo="", массив  Sim содержит все буквы
    For Each vX In Dic.Keys
        schet = schet + 1
        Cells(schet, 2) = vX
    Next
    Columns("B:B").Sort Columns("B:B")
End Sub
 
Sub SlovoRecurs(slovo$, sim)
    Dim i&, j&, k&, UBoundSim&, LenSlovo&, sTemp, Slovo2$
    LenSlovo = Len(slovo)
    UBoundSim = UBound(sim)
    For i = 1 To UBoundSim
        If LenSlovo = razmer - 1 Then
           If Application.CheckSpelling(slovo & sim(i), , False) Then
               Dic(slovo & sim(i)) = 0&
           End If
        ElseIf LenSlovo > razmer - 1 Then
        Else
            sTemp = sim
            k = 0
            For j = 1 To i - 1
                k = k + 1
                ReDim Preserve sTemp(k)
                sTemp(k) = sim(j)
            Next j
            For j = i + 1 To UBoundSim
                k = k + 1
                ReDim Preserve sTemp(k)
                sTemp(k) = sim(j)
            Next j
            Slovo2 = slovo & sim(i)
            '2,3, ...n вызов SlovoRecurs по каждой ветви с разной(-ными) начальной(-ными) буквами
            'массив  sTemp содержит оставшиеся буквы на каждой ветви (разные буквы в начале)
            ' на каждом этапе (разная длина слова сформирована)
            SlovoRecurs Slovo2, sTemp
        End If
    Next i
End Sub

@РусланМухмадови · 03.06.2016, 10:17 **[ТС]**

KoGG, здоровенное спасибо) помог правда. Нужно подтянуть мне знания по работе со строками, символами, и типом String, что то Вы быстро мою задачу расщелкали, чего не смог сделать я)

я с VB давно не работал уже, сейчас Jawa изучаю.

Новые блоги и статьи Все статьи Все блоги /
попытка написать игровой сервер на C++ pyirrlicht 29.04.2026 попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .	Контроль уникальности выбранного документа-основания при изменении реквизита Maks 28.04.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .	Благородство как наказание Maks 24.04.2026 У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .	Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .
Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .

@РусланМухмадови 0 / 0 / 0 Регистрация: 30.05.2016 Сообщений: 10
	03.06.2016, 07:12 [ТС]
	KoGG, хм, быстро работает, без комментариев в коде, немного сложно разобраться( но я разберусь, .. последний вариант вообще решение всех моих задач, теперь мне нужно разобраться в вашем коде досконально. тут может и для Вас все просто, но мне нужно время) и еще раз большое спасибо за помощь.. литературой какой-ни будь пользовались? именно вот работа со строками и символами, и сверкой. 0

@РусланМухмадови 0 / 0 / 0 Регистрация: 30.05.2016 Сообщений: 10
	03.06.2016, 10:17 [ТС]
	KoGG, здоровенное спасибо) помог правда. Нужно подтянуть мне знания по работе со строками, символами, и типом String, что то Вы быстро мою задачу расщелкали, чего не смог сделать я) я с VB давно не работал уже, сейчас Jawa изучаю. 0

Опции темы

Ускорить работу программы

Решение