- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
- 53
- 54
- 55
- 56
- 57
- 58
- 59
- 60
Функция ОписаниеОрганизации(СписокСведений, Список = "", СПрефиксом = Истина) Экспорт
Если ПустаяСтрока(Список) Тогда
Список = "ПолноеНаименование,НаименованиеСокращенное,ИНН,Свидетельство,ЮридическийАдрес,Телефоны,НомерСчета,Банк,БИК,КоррСчет";
КонецЕсли;
Результат = "";
СоответствиеПараметров = Новый Соответствие();
СоответствиеПараметров.Вставить("ПолноеНаименование", " ");
СоответствиеПараметров.Вставить("НаименованиеСокращенное", " ");
СоответствиеПараметров.Вставить("ИНН", " ИНН ");
СоответствиеПараметров.Вставить("КПП", " КПП ");
СоответствиеПараметров.Вставить("Свидетельство", " ");
СоответствиеПараметров.Вставить("СвидетельствоДатаВыдачи", " от ");
СоответствиеПараметров.Вставить("ЮридическийАдрес", " ");
СоответствиеПараметров.Вставить("ФактическийАдрес", " ");
СоответствиеПараметров.Вставить("Телефоны", " тел.: ");
СоответствиеПараметров.Вставить("НомерСчета", " р/с ");
СоответствиеПараметров.Вставить("Банк", " в банке ");
СоответствиеПараметров.Вставить("БИК", " БИК ");
СоответствиеПараметров.Вставить("КоррСчет", " к/с ");
СоответствиеПараметров.Вставить("КодПоОКПО", " Код по ОКПО ");
Список = Список + ?(Прав(Список, 1) = ",", "", ",");
ЧислоПараметров = СтрЧислоВхождений(Список, ",");
Для Счетчик = 1 по ЧислоПараметров Цикл
ПозЗапятой = Найти(Список, ",");
Если ПозЗапятой > 0 Тогда
ИмяПараметра = Лев(Список, ПозЗапятой - 1);
Список = Сред(Список, ПозЗапятой + 1, СтрДлина(Список));
Попытка
СтрокаДополнения = "";
СписокСведений.Свойство(ИмяПараметра, СтрокаДополнения);
Если ПустаяСтрока(СтрокаДополнения) Тогда
Продолжить;
КонецЕсли;
Префикс = СоответствиеПараметров[ИмяПараметра];
Если Не ПустаяСтрока(Результат) Тогда
Результат = Результат + ",";
КонецЕсли;
Результат = Результат + ?(СПрефиксом = Истина, Префикс, "") + СтрокаДополнения;
Исключение
Сообщить("Не удалось определить значение параметра организации: " + ИмяПараметра, СтатусСообщения.Внимание);
КонецПопытки;
КонецЕсли;
КонецЦикла;
Возврат СокрЛП(Результат);
КонецФункции // ОписаниеОрганизации()
Dummy00001 03.10.2016 11:35 # −27
чё серьёзно регулярок нет? редко на виндах бываю - но вроде даже уже там все что только возможно регулярки умеет. блин, даже RDBMS умеют регулярки. даже задротные ява и vb умеют регулярки...
levxxx 03.10.2016 11:42 # −25
Dummy00001 03.10.2016 11:53 # −25
да, мля, как все через жопу OLE.
CrashTesterAnusov 03.10.2016 13:55 # −92
gost 03.10.2016 16:06 # −29
guestinho 03.10.2016 22:04 # −28
guest 04.10.2016 02:33 # −27
тот моет жопу на ГРЕС
CrashTesterAnusov 05.10.2016 05:47 # −90
guest 04.10.2016 22:25 # −27
nixel 05.10.2016 11:50 # −23
Для разделения строки по символам ВНЕЗАПНО уже лет 8 существует функция РазложитьСтроккВМассивПодстрок из Строковых функций клиент сервер, или же встроенная в платформу СтрШаблон, появившаяся в 8.3.6.
Что-то подсказывает мне, что автор вообще не любит читать мануалы, даже по платформе.
roman-kashitsyn 05.10.2016 11:53 # −24
>> @levxxx: если вы не телепат, придётся тратить время на документацию
nixel 05.10.2016 11:52 # −25
levxxx 06.10.2016 15:56 # −26
nixel 06.10.2016 16:51 # −26
По поводу копаться в общих модулях - только уебаны не копаются в общих модулях и пишут свои костыли и велосипеды.
CrashTesterAnusov 06.10.2016 16:55 # −89
levxxx 06.10.2016 18:09 # −27
CrashTesterAnusov 06.10.2016 19:21 # −89
nixel 07.10.2016 09:39 # −26
levxxx 07.10.2016 09:58 # −27
vi00 05.10.2016 11:54 # −26
Ну так им и предьявляй?
> будет много денег говорили они,
мало платят? так это твоя проблема
> они говорили там всё легко, потому что по-русски,
Что за бабушка-программист тебе такое сказала? Просто потому что по-русски - надо же
> чтобы писать по русски надо постоянно переключать раскладку для <>, &
Можно писать по английски
> ТУПОЙ КОМПИЛЯТОР, который вообще нихрена не подсказывает, потому что не строгая типизация
Ты в каком классе ,мальчик? Компиляторы не подсказывают
И про "вообще нихрена" ты нагло соврал
> Постоянная хрень типа в переменной "Список" лежит Строка, или Массив
Это уже как запрограммирует программист
Можно и не такие вложенности нагородить при желании
> ПОСТОЯННЫЕ ТАНЦЫ С ЗАПЯТЫМИ, ПРИ ОПЕРАЦИЯХ СО СТРОКОЙ!!!
Что за танцы?
> Ну и прочее... конкретно сейчас не понятны танцы с запятыми и Лев() Прав() позиция запятой... просто бесит!
Тот код что ты привел - ужасный говнокод, и 1с тут не причем - такое можно на любом языке написать
barop 05.10.2016 14:54 # −35
vi00 05.10.2016 16:32 # −26
бомбануло у автора
huesto 05.10.2016 21:51 # −28
PHP по сравнению с 1С - святая куча.
vi00 06.10.2016 03:59 # −25
barop 06.10.2016 04:16 # −35
думаю, всё же пхпшники
vi00 06.10.2016 04:53 # −25
barop 06.10.2016 05:13 # −35
I have an apple
vi00 06.10.2016 06:06 # −25
3_14dar 06.10.2016 04:18 # −25
& в русской раскладке нет? А если сделать временное переключение на инглиш при нажатом правом/левом alt?
barop 06.10.2016 04:19 # −35
вообще автор много ъхцни наисал
3_14dar 06.10.2016 04:20 # −25
>Не надо переключаться с русского на английский что бы набрать & | [ ] < > ' ! Теперь достаточно просто удерживатьправый ALT (он же ALTgr).
barop 06.10.2016 04:31 # −35