|
Пример кода которым вы гордитесь... | ☑ | ||
---|---|---|---|---|
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) там в обратную сторону поиск
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |