Получение списка принтеров и Подключение сетевого принтера Для работы с сетевыми ресурсами в WSH предназначен объект WshNetwork. Из "1С:Предприятие" можно напрямую управлять сетевыми ресурсами, в том числе и принтерами.
Получить список принтеров
Код 1C v 8.х Функция ПолучитьСписокПринтеров()Scr ipt.Network»);Подключение сетевого принтера
Код 1C v 8.х //Создаём новый СОМ-объектscr ipt.Network");
Объект WshNetwork позволяет определить список подключенных сетевых принтеров. Для этого используется метод EnumPrinterConnections, который возвращает коллекцию принтеров. Данную коллекцию можно перебрать с помощью конструкции
Код 1C v 8.х Для каждого... из... Цикл...КонецЦикла Категория:
COM-объекты, WMI, WSH Как из скрипта VBS запустить 1C, чтобы окно программы не видно было? Код 1C v 8.х WshShell = Новый COMОбъект("WScr ipt.Shell");Код VBS Set WshShell=CreateObject("WScr ipt.Shell")Код VBS On Error Resume Next Scr ipt.Echo "Запускаем"Scr ipt.Echo "Код ошибки: " & ResScr ipt.Quit Категория:
Администрирование Поиск строки в текстовом файле по маске Есть ли возможность поиска строки в текстовом файле по маске? К примеру ХХХХ-ХХХХ-ХХХХ-ХХХХ.
Код 1C v 8.х RegExp = Новый COMОбъект("VBScr ipt.RegExp"); Категория:
Регулярные выражения Удаление из строки всех лишних данных Нужно из строки
ИНН 1111111111 ИП Петров А.А. получить только
ИП Петров А.А.
Код 1C v 8.х Scr ipt.RegExp");
Новинки игровых автоматов на
бездепозитные бонусы летом 2023 года.
Категория:
Регулярные выражения Как проверить наличие русских букв в строке? Код 1C v 8.х //рег=СоздатьОбъект("VBScr ipt.RegExp"); // Для 7.7Scr ipt.RegExp"); Категория:
Регулярные выражения Удалить в строке все символы кроме цифр Код 1C v 7.x RegExp = CreateObject("VBScr ipt.RegExp"); // здесь под восьмерку переделай Код 1C v 8.х RegExp = Новый COMОбъект("VBScr ipt.RegExp"); Категория:
Регулярные выражения Удаление html тегов из строки Код 1C v 8.х RegExp = Новый COMОбъект("VBScr ipt.RegExp"); Категория:
Регулярные выражения Выбор оптимального алгоритма для разбора строки в массив Столкнулся с проблемой: ПолучитьСтрокуПоНомеру() медленно отрабатывает на входных данных >100 000 строк. Как сделать бытсрее?
Код 1C v 8.х // Пример Defender aka LINNScr ipt.RegExp"); Код 1C v 8.х // Пример aleks-idScr ipt.RegExp"); Категория:
Регулярные выражения Удаление из строки всех лишних символов Есть строка
"ABC-9.64,5=s" , нужно оставить в ней только символы "a-z" и "0-9", т.е. получить
"ABC9645s"
Код 1C v 8.х RegExp=Новый COMОбъект("VBScr ipt.RegExp"); Категория:
Регулярные выражения Разбить строку на подстроки Разлогает строку типа:
Поле1, "Сложное, с запятыми внутри Поле2", Поле3
на массимв подстрок типа:
Поле1
Сложное, с запятыми внутри Поле2
Поле3
Код 1C v 8.х RegExp = Новый COMОбъект("VBScr ipt.RegExp");Живой Ископаемый Категория:
Регулярные выражения Использование регулярных выражений (RegExp) в 1С Регулярные выражения (Regular Expressions) являются известным и мощным средством для поиска, тестирования и замены подстрок. Эта технология доступна и в 1С - через объект VBScr ipt.RegExp. Нужный объект уже встроен в современные версии Windows (начиная с Windows 98), и устанавливать дополнительно ничего не нужно.
Приведенные ниже примеры были протестированы в 1С:Предприятие 7.7; для 1С:Предприятие 8.x изменяется способ создания объекта:
Код 1C v 8.х RegExp = Новый COMОбъект("VBScr ipt.RegExp");
Кроме того, там уже есть логические константы Истина и Ложь - объявлять их не нужно.
Более подробное описание самой технологии RegExp (что означают те или иные значки или скобочки, или какие шаблоны поиска или замены можно использовать в типичных ситуациях) можно найти в специальной литературе (например Бен Форта "Освой самостоятельно регулярные выражения (regexp) за 10 минут") или на сайтах в сети Internet.
Код 1C v 7.x ///////////////////////////////////////////////////////////////////////Scr ipt.RegExp");
Более продвинутый пример разбора HTML использует подвыражения (SubMatches) и позволяет находить как сами теги, так и текст между ними.
Код 1C v 7.x ///////////////////////////////////////////////////////////////////////Scr ipt.RegExp");
Часто регулярные выражения используются для тестирования строк, например пользовательского ввода.
Этот пример позволяет узнать, является ли строка целым числом.
Код 1C v 7.x ///////////////////////////////////////////////////////////////////////Scr ipt.RegExp");
Регулярные выражения поддерживают не только поиск, но и замену текста. При этом найденные подвыражения (в круглых скобках) могут быть представлены в строке замены как $1, $2 и т. д.
(знак доллара используется в VB
Scr ipt.RegExp; в других средах программирования, например в Java
Scr ipt, используемый для этой цели символ может отличаться).
Код 1C v 7.x ///////////////////////////////////////////////////////////////////////Scr ipt.RegExp");Источник Категория:
Регулярные выражения Проверка на корректность адреса Электронной Почты, e-mail Каким образом можно организовать проверку на корректность адреса электронной почты?
Код 1C v 8.х Шаблон = ".+@.+\..+"; // регулярное выражение соответствует произвольному e-mail адресуScr ipt.RegExp"); // создаем объект для работы с регулярными выражениями
Для 7.7 в вышеуказанном коде заменить создание объекта на:
Код 1C v 7.x RegExp = CreateObject("VBScr ipt.RegExp"); Категория:
Регулярные выражения Полезные процедуры работы с Active Directory (AD) Надоели просить меня запостить рабочие модули работы с AD, вот запостил, в качестве бонуса убийца любого процесса в памяти любого компа.
p.s. для работы нужны определенные права.
Автор:
vde69
Код 1C v 8.х Функция ПолучитьСписокДоменов () Экспорт Scr ipting.SWbemLocator"); Код 1C v 8.х // coder1cv8 - Мой вариант получения почты 1С-ного пользователя: Категория:
COM-объекты, WMI, WSH Как вывести всплывающее сообщение пользователю? В 8.2 нужно воспользоваться функцией ПоказатьОповещениеПользователя
Код 1C v 8.2 УП ПоказатьОповещениеПользователя("Документ не записан!", Код 1C v 8.х #Если Клиент Тогда
В 7.7 и 8.1 всплывающие окна отсутствуют, но это легко решается использованием:
Код 1C v 7.x WshShell=СоздатьОбъект("WScr ipt.Shell");
или внешних компанент, например:
MiracleV8: Универсальная компонента для 1С 7.7 и 1С 8.x
[Tray1C] Сворачивание 1С в системный трей
Вывод иконки с восклицательным знаком в трей! Используя
AutoHotkey :
Код 1C v 8.х //Процедура выводит или убирает сообщение мессенджера и иконку, в зависимости от бПарам Категория:
Встроенные Функции Синхронизация системного Времени по запросу Реализовано для защиты от "умных" пользователей, которые делают то что не нужно делать (ручное изменение даты и времени). В рабочей конфигурации используется при синхронизации времени в ЭККА (кассовый аппарат) при закрытии рабочей смены.
Код 1C v 8.х Процедура КнопкаВыполнитьНажатие(Кнопка)Scr ipt.Shell"); Категория:
Работа с Датами (Временем) 
Получение списка принтеров и Подключение сетевого принтера Категория: COM-объекты, WMI, WSH