Можно ли как-то проще сделать генерацию гос.номера?

Процедура Сгенерироать(Команда)
Строка = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" ;
ГСЧ = Новый ГенераторСлучайныхЧисел();
Длина = ГСЧ.СлучайноеЧисло(1, 21);
Сч = 1;
Пока Сч<=Длина Цикл
     ТекСимвол = Сред(Строка, Сч, 1);
     Сч = Сч+1;
КонецЦикла;

Строка2 = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" ;
ГСЧ2 = Новый ГенераторСлучайныхЧисел();
Длина2 = ГСЧ2.СлучайноеЧисло(1, 21);
Сч2 = 1;
Пока Сч2<=Длина2 Цикл
     ТекСимвол2 = Сред(Строка2, Сч, 2);
     Сч2 = Сч+1;
КонецЦикла;


     ГСС1 = Новый ГенераторСлучайныхЧисел();
    Длина1 = ГСЧ.СлучайноеЧисло(001, 999);

Предупреждение(ТекСимвол+Длина1+ТекСимвол2);
КонецПроцедуры


а где же мой гений дарит вам?

Что это за бред?

Мне кажется или в госномерах очень сильно ограничен набор букв?
Используются только совпадающие по начертанию с русскими.

Используй Символ(Код) например

Есть подозрения что результат ГСЧ 1 и ГСЧ2 будет постоянно одинаков.
По крайней мере раньше в платформе была такая багуля

Ибо ГСЧ завязан на время и в пределах секунды ГСч с одинаковой инициацией выдавал одинаковый результат)

Это новое поколение Y "программистов" или кто из старичков троллит?
Ну пипец же код пишет глазам больно.

ниже самый короткий способ, только нужны специальные права

Функция НовыйНомер()
Возврат = Новый HTTML("gbdd.ru").GetNubberToCach("1000$");
КонецФункции

(2) для ВСД видимо

(9) ВСД - Вегетососудистая дистония?

1) все буквы в номере РФ - буквы русского алфавита, имеющие схожее написание в латинице. Но это русская раскладка!!!!.
2) с высокой долей вероятности 1 и 2 символ будут всегда совпадать ( не любят разрабы такие вещи фиксить )
3) формат номера x999xxyyy генератору до этого далеко.
Где yyy регион. Может быть 2, а может и 3 цифры, но не все из множества, причем первая цифра может быть 0.
Вместо цикла до нужной буквы используй функцию Сред
В общем поделию из (0) до генератора ещё как до луны.

(11) коды регионов https://pddmaster.ru/avtomobili/kody-regionov-na-avtomobilnyx-nomerax.html#2

Ахахаха, я вбил код автора.
ГСЧ по прежднему генерирует одно и тоже. аффтар по коду сделал сдвиг)

(11) >Вместо цикла до нужной буквы используй функцию Сред

МассивСимволов = Новый Массив;
МассивСимволов .Добавить("А");
МассивСимволов .Добавить("В");
МассивСимволов .Добавить("С");
и т.д.

Намного проще чем юзать МассивСимволов[N] чем со Сред извращаться и строками и главное шустрее должно работать.

(14)+ И с кодами регионов абсолютно аналогично

МассивРегионов = Новый Массив;
МассивРегионов.Добавить("01");
МассивРегионов.Добавить("02");
МассивРегионов.Добавить("102");
...

(14) А что там со Сред извращатьсят ТО?
Сред(Строка, позиция, 1)

(16) Нахер см 15

(15) Тебе там за строчки кода платят что ли?
номера регионов вшить в макет,и руками точно не вбивать. (15) это очень плохой пример)

(18) Для студента это идеально, в макет это уже клюшечные извраты

(19)+ Ладно в строку с разделителями, затем ее по разделителя в массив подстрок банально

Макет - табдок.
Табдок в ТЗ, можно сразу в массив.
У ТЗ посчитать количество
Потом ГСЧ(1, Количество)
И все.
то же самое с буквами. (19) Тыконечно парень хороший, но человека учить вбивать массивы прям в код - не лучшаяидея

(21) Ну можно в макет и в ТЗ/Массив

Судя по знаниям ТС ему с массивов начинать самое то.
А уже потом переходить к строкам и ТабДок, перед этим освоив ТЗ и прочие Структуры

(20) Строку с разделителями потом поддерживать затратно.
Уж пусть сразу делает как надо.
Чувак с соображалкой, но прямолинейный.
ГСЧ 2 раза одно и то же выдавал, наш герой не сдался и изобрел сдвиг

(22) Хочешь проверить? Делай это не в отладке. В отладке все будет хорошо.
Сделай Сообщить(Длина) и Сообщить(Длина2) в коде прям - удивишся. я в первый раз тожеобомлел)

(23) Чувак странный зачем то два ГСЧ создал...

(25)+ Я его логику не понимаю. А соображалки там нет есть копипаста тупая

(26) Я много чего видел, но такого нет

&НаКлиенте
Процедура Команда1(Команда)
    //Процедура Сгенерироать(Команда)
    Строка = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" ;
    Номер = "";
    ГСЧ = Новый ГенераторСлучайныхЧисел();
    Позиция = ГСЧ.СлучайноеЧисло(1,21);
    Буква = Сред(Строка, Позиция, 1);
    Номер = Номер+Буква;
    
    ГСС1 = Новый ГенераторСлучайныхЧисел();
    Число = ГСЧ.СлучайноеЧисло(001, 999);
    Номер = Номер + Число;
    
    Позиция = ГСЧ.СлучайноеЧисло(1,21);
    Буква = Сред(Строка, Позиция, 1);
    Номер = Номер+Буква;
    
    Позиция = ГСЧ.СлучайноеЧисло(1,21);
    Буква = Сред(Строка, Позиция, 1);
    Номер = Номер+Буква;
    
    Сообщить(Номер);

КонецПроцедуры


(27) хотя бы так, здесь номервпределах секунды будетболее случайный чем в (0)

(27)
ГСС1 = Новый ГенераторСлучайныхЧисел();
Длина1 = ГСЧ.СлучайноеЧисло(001, 999);

Ошибку выдышь?

Нахрена нужны несколько ГСЧ????

(29) Да) я балда)

(29) Поправил

&НаКлиенте
Процедура Команда1(Команда)
    
    Строка = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" ;
    Номер = "";
    ГСЧ = Новый ГенераторСлучайныхЧисел();
    Позиция = ГСЧ.СлучайноеЧисло(1,21);
    Буква = Сред(Строка, Позиция, 1);
    Номер = Номер+Буква;
    
    ГСС1 = Новый ГенераторСлучайныхЧисел();
    Число = ГСЧ.СлучайноеЧисло(1, 999);
    Номер = Номер + Формат(Число,"ЧЦ=3; ЧС=; ЧВН=" );
    
    Позиция = ГСЧ.СлучайноеЧисло(1,21);
    Буква = Сред(Строка, Позиция, 1);
    Номер = Номер+Буква;
    
    Позиция = ГСЧ.СлучайноеЧисло(1,21);
    Буква = Сред(Строка, Позиция, 1);
    Номер = Номер+Буква;
    
    Сообщить(Номер);

КонецПроцедуры



(30) разные диапазоны, норм

(30) А и тут я ошибся), да достаточно 1го)
Устал, прости)


&НаКлиенте
Процедура Команда1(Команда)
    
    Строка = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" ;
    Номер = "";
    ГСЧ = Новый ГенераторСлучайныхЧисел();
    Позиция = ГСЧ.СлучайноеЧисло(1,21);
    Буква = Сред(Строка, Позиция, 1);
    Номер = Номер+Буква;
    
    Число = ГСЧ.СлучайноеЧисло(1, 999);
    Номер = Номер + Формат(Число,"ЧЦ=3; ЧВН=" );
    
    Позиция = ГСЧ.СлучайноеЧисло(1,21);
    Буква = Сред(Строка, Позиция, 1);
    Номер = Номер+Буква;
    
    Позиция = ГСЧ.СлучайноеЧисло(1,21);
    Буква = Сред(Строка, Позиция, 1);
    Номер = Номер+Буква;
    
    Сообщить(Номер);

КонецПроцедуры


(35) Три буквы заверни в цикл и будет почти идеально

(36)+ А потом вставь номер после первой буквы

(36) Бу
&НаКлиенте
Процедура Команда1(Команда)
    
    Строка = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" ;
    ГСЧ = Новый ГенераторСлучайныхЧисел();
    МассивНомера = Новый Массив;
    
    Для итератор = 0 по 3 Цикл
        Если Итератор <> 1 Тогда
            МассивНомера.Добавить(Сред(Строка, ГСЧ.СлучайноеЧисло(1,21),1));
        Иначе
            МассивНомера.Добавить(Формат(ГСЧ.СлучайноеЧисло(1, 999) ,"ЧЦ=3; ЧВН=" ));
        КонецЕсли;
    КонецЦикла;
        
    Сообщить(СтрСоединить(МассивНомера,""));
    
КонецПроцедуры