Карта Minecraft «Бомж в Краснодаре»
Эта карта из себя предтавляет выживание в Краснодаре ЗА БОМЖА выполняйте задания спасайтесь от бандитов покупайте оружие станьте нормальным человеком и постройте дом 
Весёлая лесенка. Карта для Minecraft
Скачать можно здесь:
Весёлая лесенка. Карта для Minecraft
694 Загрузки
1С: Генератор строки из случайных символов
Задача: с генерировать строку длинной N из случайных символов.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
Функция ГенерацияСлучайногоСимвола(длн) ГСЧ = Новый ГенераторСлучайныхЧисел(ТекущаяУниверсальнаяДатаВМиллисекундах()); СлучайнаяСтрока = ""; // генерируем случайное число из 6-ти символов, например "d0c8Yf" Для Сч = 1 по длн Цикл Набор = ГСЧ.СлучайноеЧисло(1,3); Если Набор = 1 Тогда // это число СлучайныйСимвол = ГСЧ.СлучайноеЧисло(0,9); ИначеЕсли Набор = 2 Тогда // это Большая буква латиницы СлучайныйСимвол = Символ(ГСЧ.СлучайноеЧисло(65,90)); ИначеЕсли Набор = 3 Тогда // это маленькая буква латиницы СлучайныйСимвол = Символ(ГСЧ.СлучайноеЧисло(97,122)); КонецЕсли; СлучайнаяСтрока = СлучайнаяСтрока + СлучайныйСимвол; КонецЦикла; Возврат(СлучайнаяСтрока); КонецФункции Сообщить(ГенерацияСлучайногоСимвола(10)); |
1С: Приведение номера документа к числу
Задача: преобразовать номер документа вида ТП1-000234 в число 234. Т.е. убрать префикс и лидирующие нули.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
&НаСервере Функция УбратьЛидирующиеНули(НомерДокумента) Попытка НомерДокумента = Формат(Число(НомерДокумента), "ЧГ="); Исключение НомерДокумента = СтрЗаменить(СокрЛ(СтрЗаменить(СокрП(НомерДокумента), "0", " ")), " ", "0"); Префикс = ""; Пока КодСимвола(НомерДокумента) < 48 Или КодСимвола(НомерДокумента) > 57 Цикл Префикс = Префикс + Лев(НомерДокумента, 1); НомерДокумента = Сред(НомерДокумента, 2); КонецЦикла; Если Не ПустаяСтрока(Префикс) Тогда НомерДокумента = Префикс + УбратьЛидирующиеНули(НомерДокумента); КонецЕсли; КонецПопытки; Возврат НомерДокумента; КонецФункции &НаСервере функция ИзвлечьНомерДоговора(номер) мм=СтрРазделить(номер,"-"); возврат УбратьЛидирующиеНули(мм[1]); конецфункции |