Бейлихис Максим

204
Рейтинг

premierex
Максим Бейлихис



  •   Регистрация: 24.07.2006 (17 лет назад)

  •   Был(а) на сайте: вчера в 01:07

Подписчики 33

Группы

Профессиональный разработчик

Рейтинг 204

ActiveX контейнер для управляемого интерфейса системы 1С:Предприятие

Инструменты и обработки Программист Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Windows Абонемент ($m) Архив с данными Разработка внешних компонент

Внешняя компонента "ControlContainer" для платформы "1С:Предприятие" v.8.2, 8.3, реализующая размещение ActiveX объектов на управляемых формах системы 1С:Предприятие.

10 стартмани

20.07.2014    47369    126    premierex    79       

34

SOAP-клиент. Обработка для тестирования web-сервисов.

Инструменты и обработки Программист Платформа 1С v8.3 Конфигурации 1cv8 Абонемент ($m) Внешняя обработка (ert,epf) Инструментарий разработчика

При работе с web-сервисами в качестве клиента, зачастую приходится искать инструменты для их отладки. Таких инструментов немало, но некоторые из них недостаточно функциональны, некоторые - платные. Мне, например, понравился SOAPUI, но, к сожалению, время его использования в ознакомительном режиме невелико. Поэтому я решил написать обработку для отладки web-сервисов средствами 1C:Предприятия (платформа 8.2, обычные формы).

1 стартмани

15.03.2012    24385    264    premierex    9       

36

Комментарии

О жизниИгра "5 букв"#9 16.02.24 15:20
(5) У меня словарь содержит ~51 000 слов. И я вот не замучился.
Там так-то все просто довольно. Собираешь из словаря все слова в таблицу значений, где колонки такие:
"Наименование", "КоличествоСимволов". Впрочем, количество символов можно и в запросе вычислить.

А сам текст запроса вот такой:

Код
/////////////////////////////////////////////////////////////////////////////
// Помещаем данные, переданные в таблице значений, во временную таблицу запроса
ВЫБРАТЬ 
   ДанныеСловарей.Наименование, 
   ДанныеСловарей.КоличествоСимволов
   // Если версия платформа 1С позволяет,
   // можно использовать функцию, редализованную в версии 8.3.20.1549 
   // ДЛИНАСТРОКИ(ДанныеСловарей.Наименование) КАК КоличествоСимволов
ПОМЕСТИТЬ ВТ_ДанныеСловарей
ИЗ &ИсходнаяТаблица КАК ДанныеСловарей
;
/////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ ДанныеСловарей.Наименование, ПОДСТРОКА(ДанныеСловарей.Наименование, 1, 1) КАК Буква
ПОМЕСТИТЬ ВТ_ДанныеСловарейБуквы
ИЗ ВТ_ДанныеСловарей КАК ДанныеСловарей
ОБЪЕДИНИТЬ ВСЕ   
ВЫБРАТЬ ДанныеСловарей.Наименование, ПОДСТРОКА(ДанныеСловарей.Наименование, 2, 1)
ИЗ ВТ_ДанныеСловарей КАК ДанныеСловарей
ОБЪЕДИНИТЬ ВСЕ   
ВЫБРАТЬ ДанныеСловарей.Наименование, ПОДСТРОКА(ДанныеСловарей.Наименование, 3, 1)
ИЗ ВТ_ДанныеСловарей КАК ДанныеСловарей
ОБЪЕДИНИТЬ ВСЕ   
ВЫБРАТЬ   ДанныеСловарей.Наименование, ПОДСТРОКА(ДанныеСловарей.Наименование, 4, 1)
ИЗ ВТ_ДанныеСловарей КАК ДанныеСловарей
ОБЪЕДИНИТЬ ВСЕ
ВЫБРАТЬ ДанныеСловарей.Наименование, ПОДСТРОКА(ДанныеСловарей.Наименование, 5, 1)
ИЗ ВТ_ДанныеСловарей КАК ДанныеСловарей
ОБЪЕДИНИТЬ ВСЕ
ВЫБРАТЬ ДанныеСловарей.Наименование, ПОДСТРОКА(ДанныеСловарей.Наименование, 6, 1)
ИЗ ВТ_ДанныеСловарей КАК ДанныеСловарей
ОБЪЕДИНИТЬ ВСЕ
ВЫБРАТЬ ДанныеСловарей.Наименование, ПОДСТРОКА(ДанныеСловарей.Наименование, 7, 1)
ИЗ ВТ_ДанныеСловарей КАК ДанныеСловарей
ОБЪЕДИНИТЬ ВСЕ
ВЫБРАТЬ ДанныеСловарей.Наименование, ПОДСТРОКА(ДанныеСловарей.Наименование, 8, 1)
ИЗ ВТ_ДанныеСловарей КАК ДанныеСловарей
ОБЪЕДИНИТЬ ВСЕ
ВЫБРАТЬ ДанныеСловарей.Наименование, ПОДСТРОКА(ДанныеСловарей.Наименование, 9, 1)
ИЗ ВТ_ДанныеСловарей КАК ДанныеСловарей
ОБЪЕДИНИТЬ ВСЕ
ВЫБРАТЬ ДанныеСловарей.Наименование, ПОДСТРОКА(ДанныеСловарей.Наименование, 10, 1)
ИЗ  Справочник.ДанныеСловарей КАК ДанныеСловарей
ОБЪЕДИНИТЬ ВСЕ
ВЫБРАТЬ ДанныеСловарей.Наименование, ПОДСТРОКА(ДанныеСловарей.Наименование, 11, 1)
ИЗ ВТ_ДанныеСловарей КАК ДанныеСловарей
ОБЪЕДИНИТЬ ВСЕ
ВЫБРАТЬ ДанныеСловарей.Наименование, ПОДСТРОКА(ДанныеСловарей.Наименование, 12, 1)
ИЗ ВТ_ДанныеСловарей КАК ДанныеСловарей
ОБЪЕДИНИТЬ ВСЕ
ВЫБРАТЬ ДанныеСловарей.Наименование, ПОДСТРОКА(ДанныеСловарей.Наименование, 13, 1)
ИЗ ВТ_ДанныеСловарей КАК ДанныеСловарей
ОБЪЕДИНИТЬ ВСЕ
ВЫБРАТЬ ДанныеСловарей.Наименование, ПОДСТРОКА(ДанныеСловарей.Наименование, 14, 1)
// Если 14-ти символов недостаточно, потребутся дополнить запрос до необходимого количества объединений
ИЗ ВТ_ДанныеСловарей КАК ДанныеСловарей
;
/////////////////////////////////////////////////////////////////////////////
// Формирование временной таблицы, в котрую будут помещаться тройки: Наименование-Буква-КоличествоБукв
// Результат получается примерно такой:
// Это слово в следующем запросе будет исключено из результатов, букв "а" потому что больше одной
// абака-а-3 
// абака-б-1 
// абака-к-1 
// А это слово - нет. Всех букв по 1-й
// абвер-а-1 
// .........
// абвер-р-1 
ВЫБРАТЬ
   ДанныеСловарей.Наименование, ДанныеСловарейБуквы.Буква, ДанныеСловарей.КоличествоСимволов, КОЛИЧЕСТВО(ДанныеСловарейБуквы.Буква) КАК КоличествоБукв
ПОМЕСТИТЬ ВТ_БуквыИСлова
ИЗ ВТ_ДанныеСловарей КАК ДанныеСловарей
   ВНУТРЕННЕЕ СОЕДИНЕНИЕ ВТ_ДанныеСловарейБуквы КАК ДанныеСловарейБуквы 
   ПО ДанныеСловарей.Наименование = ДанныеСловарейБуквы.Наименование   
   И НЕ ДанныеСловарейБуквы.Буква = "" 
   // Наименования фильтруем по вхождению символов в диапазоне от "!" до "я",
   // поиск в запросе - регистронезависимый, поэтому "я" - прописная
   И НЕ ДанныеСловарей.Наименование ПОДОБНО "%[^!-я]%"
ГДЕ
// Включаем фильтр по длине слова, если задан
ВЫБОР 
   КОГДА НЕ &КоличествоСимволов = 0 
   ТОГДА ДанныеСловарей.КоличествоСимволов = &КоличествоСимволов
   ИНАЧЕ ИСТИНА   
КОНЕЦ   
СГРУППИРОВАТЬ ПО ДанныеСловарей.Наименование, ДанныеСловарей.КоличествоСимволов, ДанныеСловарейБуквы.Буква
;
/////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ
   БуквыИСлова.Наименование, БуквыИСлова.КоличествоСимволов
ИЗ ВТ_БуквыИСлова КАК БуквыИСлова
СГРУППИРОВАТЬ ПО БуквыИСлова.Наименование, БуквыИСлова.КоличествоСимволов
// Фрагмент ниже исключает все слова, где буква(ы) встречается в слове больше одного раза
ИМЕЮЩИЕ МАКСИМУМ(БуквыИСлова.КоличествоБукв) = 1
АВТОУПОРЯДОЧИВАНИЕ   


Что-то не получилось спойлер вставить. Думаю, и так читабельно будет.
На всякий случай прикреплю файлы словарей. Может, пригодятся.

Прикрепленные файлы:

russian_nouns_with_definition.rar
UNISLOV_cp_1251.rar
О жизниИгра "5 букв"#8 16.02.24 3:14
(0) Решил немного отвлечься и поиграть :) Хотел для проверки ввести слово "съезд", а буквы "ъ" нет на игровом поле. Хотя в макете есть слово "въезд", которое содержит эту букву.
Буквы "ё" тоже нет, но поскольку в макете нет слов с этой буквой, будем считать, что с имеющимся набором слов это не критично.
А вот слов, конечно, маловато.
Это так, на заметку.
О жизниИгра "5 букв"#6 02.01.24 5:32
(5) А я словарь в простенькую базу закачал. На 1С. И количество букв в словах рассчитал. Теперь есть БД со словами и описанием, а также отбором по количеству букв простеньким запросом. Хотя для этого в общем-то и не надо было рассчитывать количество букв. Всё можно запросом сделать.
О жизниИгра "5 букв"#2 30.12.23 10:59
Прикольно! И оформление красивое, согласен с (1).
Только вот слов мало. У меня есть скачанный где-то словарь существительных из 51301 слова. Из них слов из пяти букв - 3483! Если хотите, могу скинуть.
БУСравнение двух баз БП 3.0 и УТ 11#27 04.12.23 2:36
А зачем Вы это мне отправили? Я и сам программировать умею.
ПубликацииУчет рабочего времени (конфигурация).#8 08.05.23 15:55
Здравствуйте! Действительно, была ошибка в конфигурации. В определяемых типах "ПрисоединенныйФайл" и "ПрисоединенныйФайлОбъект" в списке типов следует установить флажки у справочника "ЗадачиПрисоединенныеФайлы". Ссылку для скачивания сегодня обновлю..
ПубликацииЗагрузка изображений с поисковых сайтов сети Интернет в 1С#180 08.04.23 8:21
Вполне работоспособная. Не работает только ПоискMail.ru - изменился исходный код страницы. А стабильность зависит от того, насколько часто проводят реинжиниринг страниц поисковиков. НЕ часто, но бывает.
ПубликацииЗагрузка изображений с поисковых сайтов сети Интернет в 1С#177 29.03.23 21:09
(97) Здравствуйте! Обработка для УТ 11 вполне работает с сохранением присоединенных файлов в томах. Сегодня проверял на конфигурации Управление торговлейТ 11.4.14.181.
ПубликацииЗагрузка изображений с поисковых сайтов сети Интернет в 1С#175 29.03.23 13:04
(174) Добрый день! Не существует такого расширения. На момент разработки были доступны только версии УТ до подрелиза 11.4.
ВКЭлемент управления web камерой для системы 1С:Предприятие версии 8.#82 17.03.23 17:32
(81) Возможность есть. Только надо знать подробности дорабоки.