|   |   | 
| 
 | Пример кода которым вы гордитесь... | ☑ | ||
|---|---|---|---|---|
| 0
    
        Мистикан 05.09.18✎ 13:54 | 
        Недавно одна компания перед собеседованием попросила прислать кусок кода которым, я цитирую "Вы гордитесь".
 Я даже растерялся. А какие еще забавные ситуации у вас бывали при поиске работы? | |||
| 48
    
        spiller26 05.09.18✎ 15:58 | 
        Они идеальные и я горжусь этим (сорказм)
 Я не знаю что вам даже выбрать... | |||
| 49
    
        Малыш Джон 05.09.18✎ 15:59 | 
        (47) "Ой, не знаю... У меня всё такое идеальное.."     | |||
| 50
    
        Dotoshin 05.09.18✎ 16:03 | 
        (0) Ну так все просто:)))
 Сообщить("Я горжусь") | |||
| 51
    
        pavig 05.09.18✎ 16:07 | 
        (7) 
 По памяти написал?) | |||
| 52
    
        bolobol 05.09.18✎ 16:07 | 
        (43) Тут будет ошибка: значение отсутствует чуть более, чем полностью.
 Если уж на то пошло: Процедура Что-тоТамПриЗаписи(Источник... #Если Клиент Тогда Источник= Документы.Какой-тоДокумент.СоздатьДокумент(); #КонецЕсли КонецПроцедуры | |||
| 53
    
        Fragster гуру 05.09.18✎ 16:09 | 
        (52) норм, но вариант 
 #Если Клиент И НЕ Клиент Тогда лучше А я так вообще Если Ложь Тогда пишу (хоть это и не во всех случаях применимо) | |||
| 54
    
        Мандалай 05.09.18✎ 16:09 | 
        (52)Небось с интернета спер.     | |||
| 55
    
        Злопчинский 05.09.18✎ 16:15 | 
        (46)
 Пока Ложь=Ложь Цикл Сообщить("Воистину в домике"); КонецЦикла; | |||
| 56
    
        ptiz 05.09.18✎ 16:18 | 
        Мой лучший код не сохранился, ибо был написан на асме для БК-0010 :(     | |||
| 57
    
        Быдло замкадное 05.09.18✎ 16:20 | 
        Я вчера впервые использовал СМЕЩЕНИЕ в таблице значений))
 Товары.Сдвинуть(НайденнаяСтрока, - Смещение); | |||
| 58
    
        Быдло замкадное 05.09.18✎ 16:20 | 
        (57) точнее СДВИНУТЬ     | |||
| 59
    
        Dotoshin 05.09.18✎ 16:21 | 
        Функция ПолучитьЗавтрашнююДату()
 ТекущаяДата = ТекущаяДата(); Пока (ТекущаяДата() - ТекущаяДата) < 86400 Цикл КонецЦикла; // Возврат ТекущаяДата(); КонецФункции | |||
| 60
    
        uno-group 05.09.18✎ 16:23 | 
        Первой в глобальнике добавляю 
 Процедура глВРазработке() "Предупреждение("Извините, процедура находиться в разработке, придется пока ручками."); КонецПроцедуры В процесе активных дороботак активно юзается и на последок где то остается кнопка "Сделать все!!!" В ней глВРазработке() | |||
| 61
    
        Мандалай 05.09.18✎ 16:23 | 
        (57)Ты бог     | |||
| 62
    
        Мандалай 05.09.18✎ 16:24 | 
        (58)Точнее полубог     | |||
| 63
    
        spiller26 05.09.18✎ 16:24 | 
        Функция ПолучитьИстину()
 Возврат Истина; КонецФункции | |||
| 64
    
        bolobol 05.09.18✎ 16:31 | 
        (54) Вы не поняли смысла! Дао не постигнуто... или не достигнуто, или не дао...     | |||
| 65
    
        bolobol 05.09.18✎ 16:33 | 
        (63) Это из БПС! Плагиат!     | |||
| 66
    
        bolobol 05.09.18✎ 16:34 | 
        *БСП     | |||
| 67
    
        Лефмихалыч 05.09.18✎ 16:34 | 
        (44) кстати, да
 +1 | |||
| 68
    
        NSSerg 05.09.18✎ 16:40 | 
        Это работающий код на perl.
 <>; $_ < $z or ($z += $_, ++ $a) for sort {$a <=> $b} split " ", <>; print $a Это с лурка, тоже perl `$=`;$_=\%!;($_)=/(.)/;$==++$|;($.,$/,$,,$\,$",$;,$^,$#,$~,$*,$:,@%)=( $!=~/(.)(.).(.)(.)(.)(.)..(.)(.)(.)..(.)......(.)/,$"),$=++;$.++;$.++; $_++;$_++;($_,$\,$,)=($~.$"."$;$/$%[$?]$_$\$,$:$%[$?]",$"&$~,$#,);$,++ ;$,++;$^|=$";`$_$\$,$/$:$;$~$*$%[$?]$.$~$*${#}$%[$?]$;$\$"$^$~$*.>&$=` | |||
| 69
    
        bolobol 05.09.18✎ 16:43 | 
        Я там только Сиськи вижу!     | |||
| 70
    
        NSSerg 05.09.18✎ 16:50 | 
        (69) Это проверка на сиськофилию.     | |||
| 71
    
        bolobol 05.09.18✎ 16:53 | 
        (70) Т.е. - я прошёл проверку!? Меня уже берут?     | |||
| 72
    
        NSSerg 05.09.18✎ 16:55 | 
        (71) Это проверка работодателя.     | |||
| 73
    
        Мандалай 05.09.18✎ 16:55 | 
        (71)В сиськофилы, да     | |||
| 74
    
        bolobol 05.09.18✎ 17:02 | 
        (72) Это только девочкам подходит - оценить, насколько представитель работодателя сиськофил))
 Нужно что-то альтернативное неперлить, оценивать, насколько работодатель членофил и/или <18+> | |||
| 75
    
        kennetmccormick 05.09.18✎ 17:04 | 
        фразы типа "Прорекламируйте себя", "Чем Вы нам можете помочь"     | |||
| 76
    
        bolobol 05.09.18✎ 17:06 | 
        (75) Тут надо менеджеру звонить - каждый должен заниматься своим делом. Я хорошо говнокодю, менеджер хорошо рекламирует - совсем не пахнет!     | |||
| 77
    
        bolobol 05.09.18✎ 17:07 | 
        (75) Со вторым вопросом сложнее. Честно ответить "Расстаться с деньгами" - как-то стрёмно, что ли...     | |||
| 78
    
        elCust 05.09.18✎ 17:10 | 
        Тайное послание от разработчика:
 https://vk.com/govnokod1c?z=photo-117389545_456239032%2Falbum-117389545_00%2Frev | |||
| 79
    
        Сергиус 05.09.18✎ 17:11 | 
        (0)Можно ответить, что горжусь любым свои кодом)     | |||
| 80
    
        Cool_Profi 05.09.18✎ 17:12 | 
        У меня весь код под DNA. Так что не надо провоцировать     | |||
| 81
    
        Мандалай 05.09.18✎ 17:12 | 
        (79)Это ж каким бесстыжим надо быть.     | |||
| 82
    
        bolobol 05.09.18✎ 17:13 | 
        (81) "Фу, таким быть!" ещё скажите)))     | |||
| 83
    
        bolobol 05.09.18✎ 17:14 | 
        (78) ВК заперт - дайте альтернативу, плиз!     | |||
| 84
    
        Cool_Profi 05.09.18✎ 17:14 | 
        (81) Обоснуй.     | |||
| 85
    
        OldCondom 05.09.18✎ 17:22 | 
        Тут как в единоборствах: лучшая драка та, которой не было. 
 Пример кода, которым горжусь: "Добрый день! Вашу хотелку можно реализовать типовыми средствами, вот ссылка на пояснения с картинками: *ссылка на ИТС*". | |||
| 86
    
        ejikbeznojek 05.09.18✎ 17:26 | 
        Похоже ТС ходил в ту же фирму, что и 
 тут Задача, решением которой вы гордитесь (вопрос на собеседовании) | |||
| 87
    
        gant0ha_b 05.09.18✎ 17:29 | 
        да, нет .. это такой вопрос стандарный .. все хотят получить кусок кода получше .. но стесняются спросить прямо. Некоторые ведь так и пишут .. необходимо предоставить свои работы.     | |||
| 88
    
        OldCondom 05.09.18✎ 17:34 | 
        (87) Значешь... тут все не так просто... Вот прямо как с троеточиями... Видишь ли... я хочу создать видимость глубоко смысла... Вероятно дело в том, что у меня не получается создать этот смысл практически, вероятно... что-то еще... Да, что-то еще... Чувствуешь? Загадка и глубочайший смысл моего послания окутала весь несвязный бред этого послания. Да... есть над чем подумать... Прямо как комментарии к фильмам. "Очень хороший фильм, нраица. Есть над чем подумоть!". 
 Так к чему я это. "все хотят получить кусок кода получше" - ты это серьезно? | |||
| 89
    
        OldCondom 05.09.18✎ 17:34 | 
        (88) прошу не расстреливать за ошибку "троеточие" <> "многоточие". Так задумано.     | |||
| 90
    
        Numerus Mikhail 05.09.18✎ 17:37 | 
        (80) NDA скорее     | |||
| 91
    
        elCust 05.09.18✎ 17:39 | 
        Кандидат на вакансию программиста прислал решение тестового задания (внешняя обработка). Модуль запаролен. Заинтриговал! Взломали пароль. В коде нашли кусок:
 Если ТекущаяДата() > Дата(2017, 5, 20) Тогда Предупреждение("Период тестирования обработки истек :/"); Возврат; КонецЕсли; (с) vk.com/govnokod1c | |||
| 92
    
        Numerus Mikhail 05.09.18✎ 17:39 | 
        (91) я бы его взял     | |||
| 93
    
        kennetmccormick 05.09.18✎ 17:45 | 
        а почему в НПФ спрашивают- есть или нет разница в какой виде бизнеса работать? Только там такой вопрос слышал     | |||
| 94
    
        VladZ 05.09.18✎ 17:46 | 
        (0) Где-то я уже это слышал... :)     | |||
| 95
    
        Мандалай 05.09.18✎ 18:21 | 
        (84)Василь Иваныч принимает экзамен по политологии у Петьки с Анкой. Анка у доски.
 Василь Иваныч спрашивает: - Анка, что предъявляли депутаты при проходе на Съезд Советов? Анка молчит, Петька подсказывает шепотом: - Ма-анда-аты. Анка: - Сам пи*дюк, Василь Иваныч, че он обзывается? | |||
| 96
    
        PR 05.09.18✎ 18:22 | 
        (0) А ты на кого устраивался?     | |||
| 97
    
        palsergeich 05.09.18✎ 19:15 | 
        (91) Вполне себе нормальное решение именно для тестовой задачи, хорошо что еще что сервер лицензирования с NFR ключом встроил))). 
 Тоже взял бы. | |||
| 98
    
        PR 05.09.18✎ 19:21 | 
        (97) Нормальное решение - это если лезет на сервер, получает обфусцированный код или сразу результат решения или дать доступ в опубликованную базу без конфигуратора :))     | |||
| 99
    
        Доктор Манхэттен 05.09.18✎ 19:30 | 
        (3) C 60-крантым уменьшением функционала     | |||
| 100
    
        mszsuz 05.09.18✎ 20:18 | 
        // 100     | |||
| 101
    
        MSOliver 06.09.18✎ 02:32 | 
        //Отказ = Истина;     | |||
| 102
    
        Бертыш 06.09.18✎ 03:56 | 
        Клади=Ложь;
 СтандартнаяОбработка=Клади; | |||
| 103
    
        JeHer 06.09.18✎ 04:29 | 
        (102) неправильно, надо так:
 Клади=Ложь; СтандартнаяОбработка=Положи; | |||
| 104
    
        Мистикан 06.09.18✎ 10:09 | 
        (98) хз. нормальное решение просто зашить в компоненту.     | |||
| 105
    
        dmpl 06.09.18✎ 11:33 | 
        (0) Зачему, нигде не указано, что этот кусок должен быть написан вами.     | |||
| 106
    
        Мистикан 07.09.18✎ 12:29 | 
        (105) ха я тоже об этом подумал, даже хотел стебануться и кинуть пару модулей с решения задачек по спецу =)     | |||
| 107
    
        Мистикан 07.09.18✎ 12:30 | 
        но конторка предлагала 130 на руки + помощь с переездом (2 месяца на корпоративной квартире)     | |||
| 108
    
        Мистикан 07.09.18✎ 12:30 | 
        в незалежную     | |||
| 109
    
        _KaA 07.09.18✎ 13:24 | 
        (0)
 Прислал бы пусто текстовый файл, потому что лучший код - то решение задачи типовыми инструментом... | |||
| 110
    
        NSSerg 07.09.18✎ 13:31 | 
        (109) Зачем тогда что-то присылать? Проще сидеть дома и не работать, ибо человек который пользуется типовыми инструментами называется как угодно, только не программист.     | |||
| 111
    
        NSSerg 07.09.18✎ 13:31 | 
        А программист - пишет программы. Пишет код.     | |||
| 112
    
        _KaA 07.09.18✎ 13:36 | 
        (110) А почему вы решили, что надо кодить, если можно решить задачу типовым способом? Вы на каждом внедрении пишите свою ЗУП?     | |||
| 113
    
        NSSerg 07.09.18✎ 13:48 | 
        (112) Нет, программист по определению занимается непосредственной разработкой программного обеспечения. Когда он старается решить штатными механизмами - он выполняет функции не программиста. Если при трудоустройстве программистом он высылает пустой файл - то нафик он сдался на должность программиста?
 Если можно решить задачу типовым способом - то я переадресую её специально обученным людям. На каждом внедрении я пишу. Я не беру проекты где можно решить задачу штатными механизмами, ибо я программист. Ну и повторюсь - если что-то можно сделать штатно, я задачу переадресую. | |||
| 114
    
        OldCondom 07.09.18✎ 13:53 | 
        (113) В идеальном мире живете.     | |||
| 115
    
        vi0 07.09.18✎ 13:54 | 
        (12) для 1сника любой гкод на английском будет предметом гордости     | |||
| 116
    
        vi0 07.09.18✎ 13:55 | 
        (0) мне как сказали в более лояльной формулировке "который не стыдно показать"     | |||
| 117
    
        vi0 07.09.18✎ 13:56 | 
        (99) с уменьшением функционала по экспоненте от уменьшения количества строк     | |||
| 118
    
        _KaA 07.09.18✎ 14:01 | 
        (113)
 Я вас понял, мы говорим о задачах разного уровня сложности. Я пришел к тому, что умение кодить это не самое важное в 1С. Гораздо полезнее разбираться в приклодной сфере, знать и понимать возможности программ. Т.е. умение понять задачу и правильно ее реализовать, это, ИМХО, для меня важнее правильно кодить... | |||
| 119
    
        OldCondom 07.09.18✎ 14:09 | 
        (118) а если еще и божить в каком-то направлении, допустим таже БП3, то красота ненаглядная.     | |||
| 120
    
        _KaA 07.09.18✎ 14:21 | 
        (119)
 ))))) | |||
| 121
    
        Mort 07.09.18✎ 14:25 | 
        Вот этот кусок мне адово дался:
 float terrainPositionX = terrainChangeData.bounds.xMin; float terrainPositionZ = terrainChangeData.bounds.yMin; float terrainPositionY = terrainChangeData.position.y; float terrainSizeY = terrainChangeData.size.y; for (y = AreaYMin; y <= AreaYMax + 1; y++) for (x = AreaXMin; x <= AreaXMax + 1; x++) { if (mask1[x - QuadXMin, y - QuadYMin] || mask2[x - QuadXMin, y - QuadYMin]) // ячейку нужно обработать { terrainChangeData.TerraformGetCellPos(x, y, out fx, out fy); F = new Vector2(fx, fy); if (!tr1) { if (Common.FindIntersection(C, F, A, D, out Q)) { distanceFromAD = (Q - F).magnitude / (B - Q).magnitude; } else { distanceFromAD = 0; } } else { // ax2 + bx + c = 0 float a = C.x * B.y - D.x * B.y - C.x * A.y + D.x * A.y - C.y * B.x + D.y * B.x + C.y * A.x - D.y * A.x; float b = C.x * A.y - D.x * A.y + D.x * B.y - F.x * B.y - D.x * A.y + F.x * A.y - F.y * C.x + F.y * D.x - C.y * A.x + D.y * A.x - D.y * B.x + F.y * B.x + D.y * A.x - F.y * A.x + F.x * C.y - F.x * D.y; if (a == 0 && b == 0) continue; float c = F.y * A.x - F.x * A.y - F.y * D.x + D.x * A.y - D.y * A.x + F.x * D.y; if (a != 0) { float d = b * b - 4 * a * c; if (d >= 0) { distanceFromAD = ((-b + Mathf.Sqrt(d)) / (2 * a)); } else { continue; } } else { if (c != 0) { distanceFromAD = -c / b; } else { distanceFromAD = 0; } } } | |||
| 122
    
        NSSerg 07.09.18✎ 14:25 | 
        (118) Это разная специализация. Зачем приглашать хорошего программиста на использование штатного инструмента?
 "Разбираться в прикладной сфере", "знать и понимать возможности программы", "уметь правильно понять и реализовать" ну никак не связано с необходимостью выполнять функции консультанта, консалтера, эникейщика, админа и т.д. Никто не мешает разбираться в прикладной сфере, и при этом заниматься своим делом. Для программиста это - непосредственная разработка программного обеспечения. Есть конечно 1Сники широкого профиля. Но если он специализируется не на разработке, а на использовании штатных механизмов - то какой-же он программист? Cертификат программиста - "1С:Специалист", а не "1С:Профессионал". | |||
| 123
    
        Вафель 07.09.18✎ 14:35 | 
        (122) ну так в 1с и не особо то нужны программисты, а больше внедренцы     | |||
| 124
    
        NSSerg 07.09.18✎ 14:49 | 
        (123) Внедренец внедренцу рознь. Внедрение типовых решений без адаптации и написания вспомогательного кода - как минимум стоит значительно дешевле. Ну и серьезных внедрений без единой написанной строчки кода практически не бывает.
 Ну и в (0) Я так понимаю речь идет всё-таки о программировании. Вряд ли РП или консультанта просят прислать код. А если программист, на вакансию программиста, пришлет пустой лист и скажет что я стараюсь не писать - это уже ИМХО неадекват. | |||
| 125
    
        Вафель 07.09.18✎ 15:11 | 
        (124) никто не говорит, что внедренец не умеет прогать. просто он умеет прогать на уровне мидла - этого более чем достаточно     | |||
| 126
    
        Вафель 07.09.18✎ 15:11 | 
        Хороший внедренец - это 60/40 - РП/прог или даже 70/30     | |||
| 127
    
        NSSerg 07.09.18✎ 15:40 | 
        (125) "умеет прогать на уровне мидла", - более чем достаточно для чего? Чтоб зарабатывать немного денег, можно не уметь писать вообще.
 (126) В (109), (112), (118) - описаны навыки ну никак не архитектора или РП. А пользователя, эникейщика, возможно консультанта. | |||
| 128
    
        Casey1984 07.09.18✎ 16:20 | 
        (0) Меня просили прислать код, сейчас прям дословно скопирую: "такого качества, чтобы мы "ахнули" и сразу захотели с вами работать". Выслал. Молчат. Видать сильно ахнули :-)     | |||
| 129
    
        bolobol 07.09.18✎ 16:23 | 
        (128) Изучают... Заказали специалистов, ждут отправки из Индии...     | |||
| 130
    
        Малыш Джон 07.09.18✎ 16:43 | ||||
| 131
    
        HawkEye 07.09.18✎ 16:45 | 
        соглашусь с NSSerg, программист пишет код...     | |||
| 132
    
        OldCondom 07.09.18✎ 16:53 | 
        (128) Вот от чего они ахать собрались мне интересно? В адеквате ребята или как? Это 1С! 1С, блин! Типовые объекты, конфигуратор, конечный пользователь - бухгалтер, оператор и менеджер. 
 Сидит наверное кучка фриков в кабинете после семинаров от крутого коуча и думают над философией фирмы и цвета стен в оупенспейс офис и попутно рассуждает над тем, кто же он такой - самый крутой прогер по 1С, потому как другие в нашу мега успешную world digital шаурма corporatin не нужны. "Он должен писать такой код, чтобы при запуске 1С за окном появлялась радуга, по ней спускался розовый пони с шикарной белой гривой и взмахнув волшебным рогом приводил в идеальный порядок весь учет, вообще не важно какой. Я СКАЗАЛ ВЕСЬ УЧЕТ!". | |||
| 133
    
        q15h 07.09.18✎ 17:01 | 
        (132) ахахах в голос ))))     | |||
| 134
    
        Casey1984 07.09.18✎ 17:46 | 
        (132) :-) Пятница не зря прошла)     | |||
| 135
    
        q15h 07.09.18✎ 17:49 | 
        (132) ищут код, гениальный, как колесо, чистый, как роса на можевельнике после грозы, искренний, как объятия любимой бабушки.. )     | |||
| 136
    
        Гад 07.09.18✎ 18:00 | 
        вспомнилось...какое главное событие в моей жизни ? ваше главное событие -впереди     | |||
| 137
    
        mszsuz 07.09.18✎ 18:41 | 
        Горжусь кодом, который написал сегодня. И так - каждый день.     | |||
| 138
    
        hawksib 09.09.18✎ 06:40 | 
        (0) я этим особо не горжусь, просто не понимаю почему в тк такой процедуры нет (есть ведь РазложитьСтрокуВМассив), очень удобно заполнять xml-ки:
 Процедура ЗаполнитьСвойстваОбъектаXDTO(ОбъектXDTO, тСоответствие) Для Каждого Эл Из тСоответствие Цикл ЛевоеИмяПоля = ?(Найти(Эл.Ключ, "/") <> 0, Лев(Эл.Ключ, Найти(Эл.Ключ, "/")-1), Эл.Ключ); ПравыеИменаПолей = Прав(Эл.Ключ, СтрДлина(Эл.Ключ) - Найти(Эл.Ключ, "/")); Если ЛевоеИмяПоля = ПравыеИменаПолей Тогда Если ТипЗнч(ОбъектXDTO[ЛевоеИмяПоля]) = Тип("СписокXDTO") Тогда ОбъектXDTO[ЛевоеИмяПоля].Добавить(Эл.Значение); Иначе ОбъектXDTO[ЛевоеИмяПоля] = ?(ЛевоеИмяПоля = "guid", НРег(Эл.Значение), Эл.Значение); КонецЕсли; Иначе Если ОбъектXDTO[ЛевоеИмяПоля] = Неопределено Тогда ОбъектXDTO[ЛевоеИмяПоля] = ФабрикаXD.Создать(ОбъектXDTO.Тип().Свойства.Получить(ЛевоеИмяПоля).Тип.URIПространстваИмен, ОбъектXDTO.Тип().Свойства.Получить(ЛевоеИмяПоля).Тип.Имя); КонецЕсли; ИменаПолей = Новый Соответствие; ИменаПолей.Вставить(ПравыеИменаПолей, Эл.Значение); ЗаполнитьСвойстваОбъектаXDTOрек(ОбъектXDTO[ЛевоеИмяПоля], ИменаПолей); КонецЕсли; КонецЦикла; КонецПроцедуры в процедуру передаётся 2 парметра: ОбъектXDTO - объект фабрики, который заполняем и тСоответствие - соответствие, где ключ - путь к объекту через "/", в котором перечислены имена всех объектов, ну например: "head/body/name", а значение - значение, которое содержит конечный объект (если опираться на пример, то объект name), конечно с объектами типа списокXDTO функция работает плохо, но в целом очень удобная и я постоянной ей пользуюсь, благо объектов в разы больше чем списков... | |||
| 139
    
        hawksib 09.09.18✎ 06:41 | 
        (138)   не правильно процедуру обозвал, надо ЗаполнитьСвойстваОбъектаXDTOрек     | |||
| 140
    
        Мистикан 11.09.18✎ 11:22 | 
        (139) хех... ты мне напомнил что надо бы глубоко в XDTO залезть с ногами и досконально с ним разобраться. а то пользоваться пользуюсь временами, не особо понимая что делаю =) что хотел вышло и ладно     | |||
| 141
    
        OldCondom 11.09.18✎ 11:43 | 
        (138)Ух печет, помню у заказчика не работал отладчик(долгая история), как же я дико спотыкался об 
 "Если ТипЗнч(ОбъектXDTO[ЛевоеИмяПоля]) = Тип("СписокXDTO") Тогда" Ну не знал я, что можно на тип проверить, даже сп облазил, думал метод какой-то есть. В итоге через попытку сделал. | |||
| 142
    
        bolobol 11.09.18✎ 11:45 | 
        Зачем вообще это ХДТО нужен?...     | |||
| 143
    
        _stay true_ 11.09.18✎ 11:45 | 
        Гордиться нечем. Но и нечего стыдиться.     | |||
| 144
    
        d4rkmesa 11.09.18✎ 12:25 | 
        Как то потратил свое рабочее фиксовремя на такую хрень:
 Функция РазбитьСловоПоСлогам(Слово) s = "бвгджзклмнпрстфхцчшщbcdfghjklmnpqrstvwxz"; g = "аеёиоуыэюяaeiouy"; x = "йьъ"; ПравилаЗамены = Новый СписокЗначений; ПравилаЗамены.Добавить("xgg", "x-gg"); ПравилаЗамены.Добавить("xgs", "x-gs"); ПравилаЗамены.Добавить("xsg", "x-sg"); ПравилаЗамены.Добавить("xss", "x-ss"); ПравилаЗамены.Добавить("gssssg", "gss-ssg"); ПравилаЗамены.Добавить("gsssg", "gss-sg"); ПравилаЗамены.Добавить("gsssg", "gs-ssg"); ПравилаЗамены.Добавить("sgsg", "sg-sg"); ПравилаЗамены.Добавить("gssg", "gs-sg"); ПравилаЗамены.Добавить("sggg", "sg-gg"); ПравилаЗамены.Добавить("sggs", "sg-gs"); СтрокаЗамены = ""; Для ин = 1 По СтрДлина(Слово) Цикл ТекСимвол = Сред(нрег(Слово), ин, 1); Если Найти(s, ТекСимвол) > 0 Тогда СтрокаЗамены = СтрокаЗамены + "s"; ИначеЕсли Найти(g, ТекСимвол) > 0 Тогда СтрокаЗамены = СтрокаЗамены + "g"; ИначеЕсли Найти(x, ТекСимвол) > 0 Тогда СтрокаЗамены = СтрокаЗамены + "x"; //ИначеЕсли Найти("-", ТекСимвол) > 0 Тогда // СтрокаЗамены = СтрокаЗамены + "-"; Иначе СтрокаЗамены = СтрокаЗамены + "t"; КонецЕсли; КонецЦикла; Для Каждого Правило Из ПравилаЗамены Цикл Пока СтрЗаменить(СтрокаЗамены, Правило.Значение, Правило.Представление) <> СтрокаЗамены Цикл СтрокаЗамены = СтрЗаменить(СтрокаЗамены, Правило.Значение, Правило.Представление); КонецЦикла; КонецЦикла; МассивСлогов = СтроковыеФункцииКлиентСервер.РазложитьСтрокуВМассивСлов(СтрокаЗамены, "-"); Результат = Новый Массив; Указатель = 1; Для ин = 0 По МассивСлогов.ВГраница() Цикл Результат.Добавить(Сред(Слово, Указатель, СтрДлина(МассивСлогов[ин]))); Указатель = Указатель + СтрДлина(МассивСлогов[ин]); КонецЦикла; Возврат Результат КонецФункции | |||
| 145
    
        d4rkmesa 11.09.18✎ 12:26 | 
        Идея, правда, не моя, но все равно время пришлось потратить на переосмысление и перекладку в процедуру на 1С.     | |||
| 146
    
        Лефмихалыч 11.09.18✎ 12:58 | 
        (144) зачем Найти(), если заранее известно, что там один символ?..     | |||
| 147
    
        Fragster гуру 11.09.18✎ 13:00 | 
        (146) там в обратную сторону поиск     | 
 
 | Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |