Как написать генератор символов

@Zer0neX · Регистрация: 10.01.2017

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

Здравствуйте, уважаемые программисты. Просто не понимаю как написать код для генератора символов.
Предположим, что у нас есть массив символов полученный путем:

PureBasic
1
2
3
4
5
6
Dim CharBase As String = "0123456789AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz"
Dim FDChar(CharBase.Length - 1)
 
For i=0 To CharBase.Length - 1
FDChar(i) = CChar(Mid$(CharBase, i + 1, i + 1))
Next

Задача состоит в том, чтобы в течение одного прохода цикла генерировалась строка типа:
0
1
2
...
z
01
02
...
0z
10
11
...
1z
20
21
.........
z5Xy7z
z5Xy8a
z5Xy8b
.........
zzzzzz

Буду очень признателен, если вам удастся решить подобную задачу.

Shersh · 10.01.2017, 09:18

Zer0neX, вы уверены, что делаете задачу в VBA?
Судя по приведенному коду это больше смахивает на https://www.cyberforum.ru/vb-net/
И этот переход абсолютно непонятен -

Сообщение от Zer0neX

21
.........
z5Xy7z

@Zer0neX · 10.01.2017, 09:27 **[ТС]**

Вы действительно правы! Я ошибся с расположением темы, приношу извинения.

21
.........
z5Xy7z

Данный переход означает, что программа дошла до генерации шестизначного символа.
К примеру: После того, как программа дойдет до генерации строки:"zzzzz", то следующая строка будет принимать значение:"000000".И так далее.

Shersh · 10.01.2017, 09:46

Сообщение от Zer0neX

z5Xy7z

Перебрать все возможные комбинации 62-х символов с учетом возможности повторений и в количестве от 1-го до 6-и за один проход?
Думаете, это реально?

@Zer0neX · 10.01.2017, 09:55 **[ТС]**

Думаю да. А почему нет? Это нескольким больше миллиарда операций.

Shersh · 10.01.2017, 10:02

Сообщение от Zer0neX

в течение одного прохода цикла генерировалась строка

Любая (случайная) строка из возможных или все сразу (ЗА ОДИН ПРОХОД - это как?)

@Zer0neX · 10.01.2017, 10:10 **[ТС]**

Да не нужно все сразу, конечно

Около 11 лет уйдет на перебор всех возможных вариантов моим компьютером.
Допустим запустил я генератор и параллельно сравниваю сгенерированную строку с той, что я заготовил.
Допустим zZ0f. Как только программа сгенерирует строку zZ0f - то генерация будет остановлена.

Добавлено через 1 минуту
Ааа, простите, не сразу понял, что вы имели ввиду. Да не за один проход все сразу сгенерировать.
За один проход должна меняться строка на один последний символ. Пример:
z0G8I
z0G8J

Shersh · 10.01.2017, 10:16

Сообщение от Zer0neX

2
...
z
01
02

Наверно так должно быть после z
2
...
z
00
01
02
?

@Zer0neX · 10.01.2017, 11:06 **[ТС]**

Именно так! Спасибо за замечание.

Добавлено через 36 минут
Shersh, Не сможете подсобить с кодом?

Shersh · 10.01.2017, 11:48

Пытаемся...

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Public Class Form1
  Dim C As String = "0123456789AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz"
 
  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    For i = 1 To 2 'до шести считайте сами, мне не дожить.
      p(1, Space(i))
    Next
  End Sub
 
  Sub p(ByVal l%, ByVal s$)
    For i = 0 To C.Length - 1
      Mid(s, l, 1) = C(i)
      If l = s.Length Then
        Debug.Print(s) 'здесь ловим следующую комбинацию
      Else
        p(l + 1, s)
      End If
    Next
  End Sub
End Class

@Zer0neX · 10.01.2017, 15:34 **[ТС]**

Уважаемый Shersh! Вы просто великолепный и великодушный человечище! Огромная вам благодарность! Я сам не смог этого сделать, видимо ума не хватает. Еще раз большое спасибо! Вы меня просто спасли. Обнял.

Новые блоги и статьи Все статьи Все блоги /
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/

@Zer0neX 6 / 7 / 2 Регистрация: 10.01.2017 Сообщений: 59
	10.01.2017, 09:27 [ТС]
	Вы действительно правы! Я ошибся с расположением темы, приношу извинения. 21 ......... z5Xy7z Данный переход означает, что программа дошла до генерации шестизначного символа. К примеру: После того, как программа дойдет до генерации строки:"zzzzz", то следующая строка будет принимать значение:"000000".И так далее. 0

@Zer0neX 6 / 7 / 2 Регистрация: 10.01.2017 Сообщений: 59
	10.01.2017, 09:55 [ТС]
	Думаю да. А почему нет? Это нескольким больше миллиарда операций. 0

@Zer0neX 6 / 7 / 2 Регистрация: 10.01.2017 Сообщений: 59
	10.01.2017, 10:10 [ТС]
	Да не нужно все сразу, конечно Около 11 лет уйдет на перебор всех возможных вариантов моим компьютером. Допустим запустил я генератор и параллельно сравниваю сгенерированную строку с той, что я заготовил. Допустим zZ0f. Как только программа сгенерирует строку zZ0f - то генерация будет остановлена. Добавлено через 1 минуту Ааа, простите, не сразу понял, что вы имели ввиду. Да не за один проход все сразу сгенерировать. За один проход должна меняться строка на один последний символ. Пример: z0G8I z0G8J 0

@Zer0neX 6 / 7 / 2 Регистрация: 10.01.2017 Сообщений: 59
	10.01.2017, 11:06 [ТС]
	Именно так! Спасибо за замечание. Добавлено через 36 минут Shersh, Не сможете подсобить с кодом? 0

@Zer0neX 6 / 7 / 2 Регистрация: 10.01.2017 Сообщений: 59
	10.01.2017, 15:34 [ТС]
	Уважаемый Shersh! Вы просто великолепный и великодушный человечище! Огромная вам благодарность! Я сам не смог этого сделать, видимо ума не хватает. Еще раз большое спасибо! Вы меня просто спасли. Обнял. 0

Как написать генератор символов

Решение