Автоматизация бизнеса

Установка, настройка, внедрение и сопровождение любых конфигураций на платформе 1С:Предприятие.

Тел: 8(985)141-74-63 Дмитрий.   
ICQ:     552-608-881
e-mail: info@programmist1c.ru

Оплата после выполнения работы.

  •   Удаленный админ
  •   Карта сайта
  •   Контакты


  • Поиск
     

    v8: Парсер гиперссылок

    Приведен пример использования функций для работы со строковыми данными с помощью которых осуществляется разбор (парсинг) гиперссылки
    Автор статьи: Neco | Редакторы: Гений 1С
    Последняя редакция №4 от 08.02.07 |


    Ключевые слова: Гиперссылка, парсить, HTTPСоединение, FTPСоединение


    При написании конфигураций 1С, которые активно работают с Интернет часто возникает потребность разобрать гиперссылку. Предлагаемая функция парсит строку содержащую гиперссылку и возвращает в структуру имя сервера, протокол, имя файла и путь к файлу. Полезна для использования с объектами HTTPСоединение и FTPСоединение.
    // Функция разбирает гиперссылку и возвращает структуру ссылки:
    //     Сервер, Протокол, Имя файла и путь к файлу
    Функция ПарситьГиперссылку(Гиперссылка) Экспорт
        Возврат Новый Структура("Протокол,Сервер,ИмяФайла,ПутьКФайлу",
            // --- Протокол
            ?(Найти(Гиперссылка,"://")=0,"http",СтрПолучитьСтроку(СтрЗаменить(Гиперссылка,"://",Символы.ПС),1)),
            // --- Сервер
            ?(Найти(Гиперссылка,"://")=0,
            // если гиперссылка не полная
            СтрПолучитьСтроку(СтрЗаменить(Гиперссылка,"/",Символы.ПС),1),
            // если гипрессылка полная 
            Сред(СтрПолучитьСтроку(СтрЗаменить(Гиперссылка,"://",Символы.ПС),2), 1, Найти(СтрПолучитьСтроку(СтрЗаменить(Гиперссылка,"://",Символы.ПС),2),"/") - 1)),
            // --- Имя файла
            СтрПолучитьСтроку(СтрЗаменить(Гиперссылка,"/",Символы.ПС),СтрЧислоСтрок(СтрЗаменить(Гиперссылка,"/",Символы.ПС))),
            // --- Путь к файлу
            ?(Найти(Гиперссылка,"://")=0,
            // если гиперссылка не полная
            СтрЗаменить(Гиперссылка,СтрПолучитьСтроку(СтрЗаменить(Гиперссылка,"/",Символы.ПС),1),""),
            // если гипрессылка полная
            Сред(СтрПолучитьСтроку(СтрЗаменить(Гиперссылка,"://",Символы.ПС),2), Найти(СтрПолучитьСтроку(СтрЗаменить(Гиперссылка,"://",Символы.ПС),2),"/"),СтрДлина(СтрПолучитьСтроку(СтрЗаменить(Гиперссылка,"://",Символы.ПС),2))));
    КонецФункции
    


    Также вышеприведенный код является примером того, что можно делать со строковыми функциями в 1С: Предприятие 8.0.
    21.02.18 | 10:31


    30.11.16 | 20:25


    28.11.16 | 09:22


    26.11.16 | 08:19


    22.11.16 | 20:17


    19.11.16 | 10:14


    18.11.16 | 20:09




    Внедрение 1С Автоматизация 1С Доработка 1С Сопровождение 1С Обслуживание 1С Программирование 1С 8 Hастройка 1С Карта сайта Контакты