Пропала функция

@kavasaka · Регистрация: 16.04.2013

Студворк — интернет-сервис помощи студентам

Народ!
Весь инет обрыл - ноль. У меня в конфе нет функции ПолучитьСтруктуруАдресаИзСтроки в общем модуле управления контактной информацией. Скопипастите ее текст (Функция ... КонецФункции) плс, а то очень надо.
1с 8.2, если что, но думаю это не важно.
Спасибо!

@Yulunga · 29.07.2021, 12:00

у меня нет

@kavasaka · 29.07.2021, 12:09 **[ТС]**

Сообщение от Yulunga

у меня нет

странно, чего тогда здесь упоминается???

все есть кроме ПолучитьСтруктуруАдресаИзСтроки, как же город выцепить из адреса тогда...

@Scratchsv · 29.07.2021, 12:12

Из БГУ1

1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
// Функция выполняет "преобразование" строкового представления адреса в структуру
Функция ПолучитьСтруктуруАдресаИзСтроки(Знач СтроковыйАдрес) Экспорт
    
    Если ПустаяСтрока(СтроковыйАдрес) Тогда
        Возврат Неопределено;
    КонецЕсли;
    
    ЧислоВхожденийЗапятойВАдрес = СтрЧислоВхождений(СтроковыйАдрес, ","); 
    
    Если (ЧислоВхожденийЗапятойВАдрес = 9) ИЛИ (ЧислоВхожденийЗапятойВАдрес = 12) Тогда
        
        СтруктураАдреса = РегламентированнаяОтчетность.РазложитьАдрес(СтроковыйАдрес);
        
    ИначеЕсли ЧислоВхожденийЗапятойВАдрес >= 1 Тогда
        
        СтруктураАдреса = Новый Структура; 
        СтруктураАдреса.Вставить("ЗаПределамиРФ", Истина);
        СтруктураАдреса.Вставить("Страна", СокрЛП(Лев(СтроковыйАдрес, Найти(СтроковыйАдрес, ",") - 1)));
        СтруктураАдреса.Вставить("Представление", СтроковыйАдрес);            
        
    Иначе
        // вообще запятых нет в представлении - значит необычный Российский Адрес
        СтруктураАдреса = Новый Структура; 
        СтруктураАдреса.Вставить("ЗаПределамиРФ", Истина);
        СтруктураАдреса.Вставить("Страна", Справочники.КлассификаторСтранМира.Россия.Наименование);
        СтруктураАдреса.Вставить("Представление", СтроковыйАдрес);
        
    КонецЕсли;
        
    Возврат СтруктураАдреса;  
    
КонецФункции

Добавлено через 2 минуты
Гы.

Кликните здесь для просмотра всего текста

1C
1
2
3
4
5
6
7
8
9
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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
//Функция раскладывает строку с данными об адресе (в формате 9 запятых) на элементы структуры
Функция РазложитьАдрес(Знач СтрокаАдрес) Экспорт
    
    Страна = "";
    Индекс = "";
    Регион = "";
    Район = "";
    Город = "";
    НаселенныйПункт = "";
    Улица ="";
    Дом ="";
    Корпус ="";
    Квартира ="";
    
    ТипДома ="";
    ТипКорпуса ="";
    ТипКвартиры ="";
 
    МассивАдрес  =   ОбщегоНазначения.РазложитьСтрокуВМассивПодстрок(СтрокаАдрес);
    ЭлементовВМассиве = МассивАдрес.Количество();
 
    Если ЭлементовВМассиве >   0   тогда
        Страна    =   СокрЛП(МассивАдрес[0]);
    КонецЕсли;
    Если ЭлементовВМассиве >   1   тогда
        Индекс    =   СокрЛП(МассивАдрес[1]);
    КонецЕсли;
    Если ЭлементовВМассиве >   2   тогда
        Регион    =   СокрЛП(МассивАдрес[2]);
    КонецЕсли;
    Если ЭлементовВМассиве >   3   тогда
        Район  =   СокрЛП(МассивАдрес[3]);
    КонецЕсли;
    Если ЭлементовВМассиве >   4   тогда
        Город  =   СокрЛП(МассивАдрес[4]);
    КонецЕсли;
    Если ЭлементовВМассиве >   5   тогда
        НаселенныйПункт  =   СокрЛП(МассивАдрес[5]);
    КонецЕсли;
    Если ЭлементовВМассиве >   6   тогда
        Улица  =   СокрЛП(МассивАдрес[6]);
    КонецЕсли;
    Если ЭлементовВМассиве >   7   тогда
        Дом  =   СокрЛП(МассивАдрес[7]);
    КонецЕсли;
    Если ЭлементовВМассиве >   8   тогда
        Корпус    =   СокрЛП(МассивАдрес[8]);
    КонецЕсли;
    Если ЭлементовВМассиве >   9   тогда
        Квартира    =   СокрЛП(МассивАдрес[9]);
    КонецЕсли;
    
    //Расширенное представление
    Если ЭлементовВМассиве >   10  тогда
        ТипДома      = СокрЛП(МассивАдрес[10]);
    КонецЕсли;
    Если ЭлементовВМассиве >   11  тогда
        ТипКорпуса    = СокрЛП(МассивАдрес[11]);
    КонецЕсли;
    Если ЭлементовВМассиве >   12  тогда
        ТипКвартиры = СокрЛП(МассивАдрес[12]);
    КонецЕсли;
    
    СтруктураВозврата = Новый Структура;
    СтруктураВозврата.Вставить("Страна",Страна);
    СтруктураВозврата.Вставить("Индекс",Индекс);
    СтруктураВозврата.Вставить("Регион",Регион);
    СтруктураВозврата.Вставить("Район",Район);
    СтруктураВозврата.Вставить("Город",Город);
    СтруктураВозврата.Вставить("НаселенныйПункт",НаселенныйПункт);
    СтруктураВозврата.Вставить("Улица",Улица);
    СтруктураВозврата.Вставить("Дом",Дом);
    СтруктураВозврата.Вставить("Корпус",Корпус);
    СтруктураВозврата.Вставить("Квартира",Квартира);
    СтруктураВозврата.Вставить("ТипДома",ТипДома);
    СтруктураВозврата.Вставить("ТипКорпуса",ТипКорпуса);
    СтруктураВозврата.Вставить("ТипКвартиры",ТипКвартиры);
 
    Возврат СтруктураВозврата;
    
КонецФункции

Там ещё может понадобиться

Кликните здесь для просмотра всего текста

1C
1
2
3
4
5
6
7
8
9
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
61
62
// Разбивает строку на несколько строк по разделителю. Разделитель может иметь любую длину.
//
// Параметры:
//  Строка                 - Строка - текст с разделителями;
//  Разделитель            - Строка - разделитель строк текста, минимум 1 символ;
//  ПропускатьПустыеСтроки - Булево - признак необходимости включения в результат пустых строк.
//    Если параметр не задан, то функция работает в режиме совместимости со своей предыдущей версией:
//     - для разделителя-пробела пустые строки не включаются в результат, для остальных разделителей пустые строки
//       включаются в результат.
//     - если параметр Строка не содержит значащих символов или не содержит ни одного символа (пустая строка), то в
//       случае разделителя-пробела результатом функции будет массив, содержащий одно значение "" (пустая строка), а
//       при других разделителях результатом функции будет пустой массив.
//
//
// Возвращаемое значение:
//  Массив - массив строк.
//
// Примеры:
//  РазложитьСтрокуВМассивПодстрок(",один,,два,", ",") - возвратит массив из 5 элементов, три из которых  - пустые строки;
//  РазложитьСтрокуВМассивПодстрок(",один,,два,", ",", Истина) - возвратит массив из двух элементов;
//  РазложитьСтрокуВМассивПодстрок(" один   два  ", " ") - возвратит массив из двух элементов;
//  РазложитьСтрокуВМассивПодстрок("") - возвратит пустой массив;
//  РазложитьСтрокуВМассивПодстрок("",,Ложь) - возвратит массив с одним элементом "" (пустой строкой);
//  РазложитьСтрокуВМассивПодстрок("", " ") - возвратит массив с одним элементом "" (пустой строкой);
//
Функция РазложитьСтрокуВМассивПодстрок(Знач Строка, Знач Разделитель = ",", Знач ПропускатьПустыеСтроки = Неопределено) Экспорт
    
    Результат = Новый Массив;
    
    Если НЕ ЗначениеЗаполнено(Строка) И НЕ ЗначениеЗаполнено(Разделитель) Тогда
        Возврат Результат;
    КонецЕсли; 
    
    // для обеспечения обратной совместимости
    Если ПропускатьПустыеСтроки = Неопределено Тогда
        ПропускатьПустыеСтроки = ?(Разделитель = " ", Истина, Ложь);
        Если ПустаяСтрока(Строка) Тогда 
            Если Разделитель = " " Тогда
                Результат.Добавить("");
            КонецЕсли;
            Возврат Результат;
        КонецЕсли;
    КонецЕсли;
    //
    
    Позиция = Найти(Строка, Разделитель);
    Пока Позиция > 0 Цикл
        Подстрока = Лев(Строка, Позиция - 1);
        Если Не ПропускатьПустыеСтроки Или Не ПустаяСтрока(Подстрока) Тогда
            Результат.Добавить(Подстрока);
        КонецЕсли;
        Строка = Сред(Строка, Позиция + СтрДлина(Разделитель));
        Позиция = Найти(Строка, Разделитель);
    КонецЦикла;
    
    Если Не ПропускатьПустыеСтроки Или Не ПустаяСтрока(Строка) Тогда
        Результат.Добавить(Строка);
    КонецЕсли;
    
    Возврат Результат;
    
КонецФункции

@kavasaka · 29.07.2021, 13:22 **[ТС]**

Сообщение от Scratchsv

Гы.

да в точку, у меня не 9 и не 12, а 4 запятые, значит допиливать надо.
Спасибище огромное!!!!

но сколько букв, ррррр! как это разобрать бы еще)))

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@kavasaka W 115 / 115 / 33 Регистрация: 16.04.2013 Сообщений: 750

	Пропала функция 29.07.2021, 10:16. Показов 2209. Ответов 4 Метки нет (Все метки) Народ! Весь инет обрыл - ноль. У меня в конфе нет функции ПолучитьСтруктуруАдресаИзСтроки в общем модуле управления контактной информацией. Скопипастите ее текст (Функция ... КонецФункции) плс, а то очень надо. 1с 8.2, если что, но думаю это не важно. Спасибо! 0

@Yulunga Модератор 4137 / 944 / 265 Регистрация: 22.04.2013 Сообщений: 6,585 Записей в блоге: 1
	29.07.2021, 12:00
	у меня нет 1

Пропала функция

Решение