Строка в дату. Универсальное решение. Применение NetObjetToIDispatch45



Нам часто приходится делать преобразования строк в даты. В 1С нет специальных средств на эту тему. Более того, я не встречал никаких универсальных решений в 1С, которыми был бы доволен и в очередной раз нам приходится писать костыли вроде этого: Дата(Сред(стрДата,7,4)+Сред(стрДата,4,2)+Лев(стрДата,2)). Конечно же, в microsoft уже давно решили эту задачу на своей платформе NET. Почему мы бы им не воспользоваться.

I. Как сделать самому подобное. 

Хотелось бы не только решить конкретную задачу, но и показать, что пользоваться NET совсем не трудно.

Объемную статью Использование сборок .NET в 1с 7.x и 8.x по этому написал serginio. Я использую его наработки.

Вдохновившись знанием, что это реально, я начал поиски нужной функции.

Очень быстро гугл выдал DateTime.ParseExact.

Это статическая функция типа DateTime, которая проводит парсинг строки и возвращает дату. 

и примеры использования

Теперь о том, как это использовать в 1С.

1. Подключить ком-объект, позволяющий использовать функции NET 

БиблиотекаNET = новый COMОбъект("NetObjectToIDispatch45");

2. Создать тип DateTime

DateTime = БиблиотекаNET.ПолучитьТип("System.DateTime");

3. Вызвать функцию ParseExact

4. Параметры функции s и format примитивного типа, их можно передавать из 1С как есть

5. Параметры функции provider и style объектного типа. Их необходимо сначала создать.

6. Параметр style имеет тип DateTimeStyles. В описании пространство имен для него установлено System.Globalization.

Таким образом получить тип можно 

DataTimeStyles = БиблиотекаNET.ПолучитьТип("System.Globalization.DateTimeStyles");

DataTimeStyles  — перечисление и в описании определены его члены

Для того, чтобы передать параметр в функции, будем использовать член — DataTimeStyles.None

7.  Параметр provider имеет тип IFormatProvider.

Это интерфейс, его реализацию получили классы NumberFormatInfo, DateTimeFormatInfo и CultureInfo.

В примере вызова используется CultureInfo. Поступаем точно так же.

КлассCultureInfo = БиблиотекаNET.ПолучитьТип("System.Globalization.CultureInfo");
ОбъектCultureInfo = БиблиотекаNET.СоздатьОбъект(КлассCultureInfo, "ru-RU");

В итоге получаем

БиблиотекаNET = новый COMОбъект("NetObjectToIDispatch45");
DateTime = БиблиотекаNET.ПолучитьТип("System.DateTime");
КлассCultureInfo = БиблиотекаNET.ПолучитьТип("System.Globalization.CultureInfo");
ОбъектCultureInfo = БиблиотекаNET.СоздатьОбъект(КлассCultureInfo, "ru-Ru");
DataTimeStyles = БиблиотекаNET.ПолучитьТип("System.Globalization.DateTimeStyles");
Дата = DateTime.ParseExact
(
"10 февраля 1978",
"dd MMMM yyyy",
ОбъектCultureInfo,
DataTimeStyles.None
);

Для каждого региона есть стандартные шаблоны записи дат. Их можно посмотреть программой CultureInfoExplorer

Например, стандартные шаблоны дат для русского языка

Региональные настройки для русского языка

 

В обработке вместо рассмотренной функции используется TryParseExact и учитывается вариант без указания формата, а указания только региона.В этом случае произойдет перебор всех стандартных шаблонов описания дат для региона со скриншота от d до y. 

Результат после нажатия на кнопку «Пуск»:

Конвертация строки в дату

 II. Как установить и начать пользоваться. 

1. Установить NET Framework 4.5 https://www.microsoft.com/ru-ru/download/details.aspx?id=30653
2. Регистрация NetObjetToIDispatch45.dll
2.1 Запустить РегистрацияКомСервера.exe
2.2 Нажать кнопку «Регистрация Сервера»
2.3 Выбрать файл NetObjetToIDispatch45.dll, после чего сгенерится строка вызова, необходимая для регистрации
2.4 Запустить командную строку от имени Администратора.
2.5 Скопировать строку вызова из формы в командную строку и запустить.
2.6 Убедиться, что результатом запуска стало «Типы зарегистрированы успешно»
3. Запустить обработку Универсальная_СтрокаВДату.epf
3.1 По нажатию кнопки «Пуск» все строки должны сконвертироваться в даты.

10 Comments

  1. olbu

    Интересная статья. У меня возник вопрос, есть ли методы обойти «2. Регистрация NetObjetToIDispatch45.dll», те зарегистрировать dll не имея административных прав? У большинства пользователей нет административных прав…

    Если это можно как то обойти, то можно использовать в работе.

    Reply
  2. invertercant

    (1) olbu, Устанавливать это на каждой клиентской машине было бы странно. Лучше поставить на сервер и все функции использующие com объект, сделать серверными. На сервере права администратора все равно потребуются, но сделать это надо будет всего один раз.

    Reply
  3. Serginio

    В функции СоздатьОбъект можно передавать как строку так и тип. Например

    КлассCultureInfo = БиблиотекаNET.ПолучитьТип(«System.Globalization.CultureInfo»);
    ОбъектCultureInfo = БиблиотекаNET.СоздатьОбъект(КлассCultureInfo, «ru-Ru»);
    

    можно заменить одной строкой

    ОбъектCultureInfo = БиблиотекаNET.СоздатьОбъект(«System.Globalization.CultureInfo», «ru-Ru»);
    

    Вот описание функции

    Type ТипДляСоздатьОбъект(object ТипOrig)
    {
    object Тип = ТипOrig;
    string ТипСтр = Тип.ToString();
    if (Тип is AutoWrap)
    { Тип = ((AutoWrap)Тип).O; }
    else if (Тип.GetType() == typeof(String))
    {
    
    Тип = НайтиТип((string)Тип);
    
    if (Тип == null)
    {
    string ошибка = » неверный тип » + ТипСтр;
    MessageBox.Show(ошибка);
    throw new  COMException(ошибка);
    }
    }
    return (Type)Тип;
    }
    
    
    public object СоздатьОбъект(object Тип, params object[] argOrig)
    {
    //   MessageBox.Show(Тип.ToString() + » параметров=» + args.Length.ToString());
    
    var res = ТипДляСоздатьОбъект(Тип);
    
    object[] args = AutoWrap.ПолучитьМассивРеальныхОбъектов(argOrig);
    return AutoWrap.ОбернутьОбъект(System.Activator.CreateInstance(res, args));
    
    }
    

    Показать

    Кстати нужно мне изменить с проверкой на ВыводитьСообщениеОбОшибке

    Reply
  4. gubanoff

    (0) Все супер, но внешние компоненты, определенные версии Net и тому подобное очень затруднительно использовать более, чем у одного клиента. Всегда возникают проблемы с совместимостью, что-то не установлено, что-то не той версии и т.п. Поэтому я бы взял все варианты дат для своего языка и обработал бы их в коде 1С. Плюс какие-то некорректные случаи. Но для общего развития полезный материал, спасибо.

    Reply
  5. Serginio

    (4) Во первых можно делать все на сервере. Во вторых какие проблемы с версиями и совместимостью? Если хочешь полную совместимость, то есть NetObjetToIDispatch для 2.0 используй её. А так с Win 7 обновление .Net framework

    кстати актуальная версия 4.6.1

    И зачем заного изобретать велосипед, когда все придумано давно

    Reply
  6. gubanoff

    (5) Serginio, у каких-то клиентов Win XP, у каких-то Win 7, у каких-то и Linux может быть и еще много чего интересного.

    Reply
  7. Serginio

    Еще раз для Win XP есть NetObjetToIDispatch для 2.0 Ну а насчет Linux, то они ССЗБ.

    Reply
  8. Serginio

    И еще добавлю используя классы .Net для расширения возможностей 1С

    1. Экономия времени, а значит и денег

    2. Увеличение производительности

    3. Замена ВК. Нужно умет программировать на 1С и знать классы .Net

    Reply
  9. Serginio

    (0) Может пример использования с Regex сделаешь? Уж больно у тебя все красиво

    Reply
  10. invertercant

    (9) Serginio, Пусть лучше на эту тему знающий человек пишет. /(?:(?:s*[+>~,]s*|s+)|[#k8SjZc9Dxk:+>~,s\[]]+(?:\.[#k8SjZc9Dxk:+>~,s\[]]*)*)|[(?:[#k8SjZc9Dxk\[]]*(?:\.[#k8SjZc9Dxk\[]]*)*|[#k8SjZc9Dxk=]+=~?s*(?:»[#k8SjZc9Dxk\»]*(?:\.[#k8SjZc9Dxk»\]*)*»|'[#k8SjZc9Dxk’]*(?:\.[#k8SjZc9Dxk’\]*)*’))]|:[#k8SjZc9Dxk\:([]+(?:\.[#k8SjZc9Dxk\:([]*)*(?:((?:[#k8SjZc9Dxk\()]*(?:\.[#k8SjZc9Dxk\()]*)*|»[#k8SjZc9Dxk\»]*(?:\.[#k8SjZc9Dxk»\]*)*»|'[#k8SjZc9Dxk’]*(?:\.[#k8SjZc9Dxk’\]*)*’)))?/g Я к такому не готов. пока.

    Reply

Leave a Comment

Ваш адрес email не будет опубликован. Обязательные поля помечены *