Удалить в строке все символы кроме цифр Код 1C v 7.x RegExp = CreateObj ect("VBScript.RegExp"); // здесь под восьмерку переделай Код 1C v 8.х RegExp = Новый COMОбъект("VBScript.RegExp"); Категория:
Регулярные выражения Выбор оптимального алгоритма для разбора строки в массив Столкнулся с проблемой: ПолучитьСтрокуПоНомеру() медленно отрабатывает на входных данных >100 000 строк. Как сделать бытсрее?
Код 1C v 8.х // Пример Defender aka LINNObj ect("VBScript.RegExp"); Код 1C v 8.х // Пример aleks-id Категория:
Регулярные выражения Использование регулярных выражений (RegExp) в 1С Регулярные выражения (Regular Expressions) являются известным и мощным средством для поиска, тестирования и замены подстрок. Эта технология доступна и в 1С - через объект VBScript.RegExp. Нужный объект уже встроен в современные версии Windows (начиная с Windows 98), и устанавливать дополнительно ничего не нужно.
Приведенные ниже примеры были протестированы в 1С:Предприятие 7.7; для 1С:Предприятие 8.x изменяется способ создания объекта:
Код 1C v 8.х RegExp = Новый COMОбъект("VBScript.RegExp");
Кроме того, там уже есть логические константы Истина и Ложь - объявлять их не нужно.
Более подробное описание самой технологии RegExp (что означают те или иные значки или скобочки, или какие шаблоны поиска или замены можно использовать в типичных ситуациях) можно найти в специальной литературе (например Бен Форта "Освой самостоятельно регулярные выражения (regexp) за 10 минут") или на сайтах в сети Internet.
Код 1C v 7.x ///////////////////////////////////////////////////////////////////////Obj ect("VBScript.RegExp");
Более продвинутый пример разбора HTML использует подвыражения (SubMatches) и позволяет находить как сами теги, так и текст между ними.
Код 1C v 7.x ///////////////////////////////////////////////////////////////////////Obj ect("VBScript.RegExp");
Часто регулярные выражения используются для тестирования строк, например пользовательского ввода.
Этот пример позволяет узнать, является ли строка целым числом.
Код 1C v 7.x ///////////////////////////////////////////////////////////////////////Obj ect("VBScript.RegExp");
Регулярные выражения поддерживают не только поиск, но и замену текста. При этом найденные подвыражения (в круглых скобках) могут быть представлены в строке замены как $1, $2 и т. д.
(знак доллара используется в VBScript.RegExp; в других средах программирования, например в JavaScript, используемый для этой цели символ может отличаться).
Код 1C v 7.x ///////////////////////////////////////////////////////////////////////Obj ect("VBScript.RegExp");Источник Категория:
Регулярные выражения Проверка на корректность адреса Электронной Почты, e-mail Каким образом можно организовать проверку на корректность адреса электронной почты?
Код 1C v 8.х Шаблон = ".+@.+\..+"; // регулярное выражение соответствует произвольному e-mail адресу
Для 7.7 в вышеуказанном коде заменить создание объекта на:
Код 1C v 7.x RegExp = CreateObj ect("VBScript.RegExp"); Категория:
Регулярные выражения Полезные процедуры работы с Active Directory (AD) Надоели просить меня запостить рабочие модули работы с AD, вот запостил, в качестве бонуса убийца любого процесса в памяти любого компа.
p.s. для работы нужны определенные права.
Автор:
vde69
Код 1C v 8.х Функция ПолучитьСписокДоменов () Экспорт obj NameSpace = ""; obj NameSpace = ПолучитьCOMОбъект("WinNT:"); obj NameSpace.Filter = м2; obj NameSpace Цикл obj NameSpace = ""; obj NameSpace = ПолучитьCOMОбъект("WinNT://"+СокрЛП(ИмяДомена)); obj NameSpace.Filter = м2; obj NameSpace Цикл obj NameSpace = ""; obj NameSpace = ПолучитьCOMОбъект("WinNT://" + СокрЛП(ИмяДомена) + "/" + СокрЛП(ИмяГруппы) + ", Group"); obj NameSpace.Members() Цикл Obj ect"; obj = ПолучитьCOMОбъект(rs.Fields(0).Value); obj .Class="user" Тогда obj .EmailAddress); Код 1C v 8.х // coder1cv8 - Мой вариант получения почты 1С-ного пользователя: Категория:
COM-объекты, WMI, WSH Выгрузка в PDF из 1С (Средствами OpenOffice) Возникла задача отправлять счета почтой. PDFcreator не подошёл поскольку не удалось вместить счёт на одну страницу по ширине. Решил попробовать OpenOffice. Как сохранять в PDF нашёл быстро, а вот как уместить счёт на одну страницу вширь искал долго.
В версии 1С 8.2.232 появилась возможность сохранять табличный документ в xls файл на сервера под линуксом. А вот работать с Опеном офисом из-под линукса пока не получается. Собственно комментари ненужны. Вот весь код. Самое интересное это бодание со стилями страниц в Опене Офисе. Жаль что этот фрагмент работает только на клиенте. На сервере вопрос не решается *08
Код 1C v 8.2 УП Процедура КнопкаВыполнитьНажатие(Кнопка)
Автор:
Трактор
Функция позволяющая выполнить выгрузку табличного документа в PDF средствами OpenOffice
Код 1C v 8.х // Функция превращает табличный документ в PDF документObj ect("OpenOffice", ServiceManager);Obj ect("ServiceManager",ServiceManager);
Автор:
doom_2001 Категория:
Работа с Microsoft Office и OpenOffice Обновление платформы на клиентских машинах и восстановление списка информационных баз пользователей Периодически сталкиваюсь с проблемой обновления платформы на клиентских машинах, + периодически пользователи удаляют, изменяют или добавляют какие-то новые информационные БД.
В случае 8.2 новые релизы платформы стали штамповать чуть ли не каждый месяц, что меня повергло в уныние, разбираясь в этом вопросе понял: у кого есть домен могут легко реализовать с помощью доменных политик..Те же кто лишен домена и работает в рабочих группах, может прибегнуть к помощи кривоватого скрипта от 1С (текст скрипта приведен в руководстве администратора 8.2 стр. 185
Но как быть, если нужно одновременно снести старую платформу и поставить новую + что б еще у всех пользователей был одинаковый список информационных БД, Да и лучше, что б по ссылке вообще автоматом выбиралась нужна ИБ!
Для решения нам нужно какое-нибудь общедоступное сетевое пространство, куда мы кладем дистрибутивы платформ и нужный нам список баз (отредактированный файлик ibases.v8i)
Итак, пишем скрипт от меня с любовью и комментариями
Код VBS Option ExplicitObj ect("WindowsInstaller.Installer")Obj ect("WScript.Shell")Obj ect("Scripting.FileSystemObj ect")Obj ect("WScript.Shell")Obj ect("Scripting.FileSystemObj ect")Obj ect("WScript.Shell")Obj ect("WScript.Shell")Obj ect("Scripting.FileSystemObj ect")obj Ping, obj RetStatusobj Ping = GetObj ect("winmgmts:\\.\root\CIMV2").ExecQuery _obj RetStatus in obj Pingobj RetStatus.StatusCode) or obj RetStatus.StatusCode<>0 Then
Напоминаю, что создать исполняющий скрипт не сложно, берем обычный текстовый файл, вставляем туда текст скрипта, сохраняем файл, меняем ему расширение с txt на vbs и можно скрипт исполнять
Источник Категория:
Администрирование Прямое подключение к сторонним Базам Данных Иногда необходимо подключиться к другим (не 1С-ным) БД на том же SQL.
Вот примерный код такого подключения:
Код 1C v 8.х Connection = Новый COMОбъект("ADODB.Connection");obj ects'"; Категория:
COM-объекты, WMI, WSH Автоматическая архивация баз 1С 8.х для файлового и клиент-серверного варианта Данный способ архивации подходит для файловых и SQL версий баз 1С:
И так:
1. Создаем скрипт vbs и сохраняем его в
C:\Backup\ZUP.vbs
Код VBS Obj ect("WScript.Shell")Obj ect("Scripting.FileSystemObj ect")
2. На Server1C создаем Назначенные задания с параметрами как на рисунках ниже:
3. В итоге получаем архивные файлы выгрузок 1С и логи:
Категория:
Администрирование Как организовать обмен данными между произвольными конфигурациями? Код 1C v 8.х Процедура Выгрузка(Элемент) Obj ect.ПередачаТовара"); Obj ect.ПередачаТовара" И ТипXML.URIПространстваИмен = "" Тогда Obj ect.ПередачаТовара" И ТипXML.URIПространстваИмен = "" Тогда Категория:
Конвертация данных, Обмен, Перенос Поиск из 1С в Excel Для 8.х в нижеследующем коде замените
СоздатьОбъект( на
Новый COMОбъект !
Код 1C v 7.x //Пример 1:Obj ect("S_election",S_election);Obj ect("ActiveCell",Application.ActiveCell); Категория:
Работа с Microsoft Office и OpenOffice Установка атрибутов файлу на закладке "Сводка" Смысл в следующем. В windows присутствует файл библиотеки dsofile.dll (
Скачивать файлы может только зарегистрированный пользователь! ), при помощи которого эти самые свойства можно получать или устанавливать.
Небольшая процедурка, как установить свойства:
Код 1C v 7.x Процедура глУстановитьСвойстваЗакладкиСводка(текФайл, тОписание="", тАвтор="", тКлючевыеСлова="", тФирма="", тКатегория="", тЗаголовок="", тТема="") ЭкспортObj ect("DSOFile.OleDocumentProperties");
и как получить:
Код 1C v 7.x Процедура глПолучитьСвойстваЗакладкиСводка(текФайл) ЭкспортObj ect("DSOFile.OleDocumentProperties");
Автор: maxpiter
Категория:
COM-объекты, WMI, WSH Работа с буфером обмена средствами 1С Копировать из 1С в буфер обмена( без ВК):
Код 1C v 8.х ЭлементыФормы.Добавить(Тип("ПолеHTMLДокумента"), "Поле_HTML_Документа_acb123", Ложь);Вставить в 1С из буфера обмена:
Код 1C v 8.х ЭлементыФормы.Добавить(Тип("ПолеHTMLДокумента"), "Поле_HTML_Документа_acb123", Ложь);При определенных настройках политики безопасности, способ с ПолеHTMLДокумента НЕ работает, используйте:
Код 1C v 8.х
Для 7.7:
Код 1C v 7.x Set obj HTM = CreateObj ect("htmlfile");obj HTM.ParentWindow.ClipboardData.Setdata("Text", Текст);obj HTM.ParentWindow.ClipboardData.GetData("text");
Используя
WSH :
Код 1C v 8.х // через SendKeys передаем Ctrl-C и Ctrl-V Код 1C v 7.x // через SendKeys передаем Ctrl-C и Ctrl-V Категория:
Полезные, Универсальные Функции Краткий пример работы с OpenOffice.org Writer и Microsoft Office Word Обработка демонстрирует простейший пример работы с 2-мя текстовыми процессорами - OpenOffice.org Writer и Microsoft Office Word. Нужно запустить файл обработки, в качестве шаблона она будет использовать файл "Primer.doc", который находится в одном каталоге с обработкой:
Скачивать файлы может только зарегистрированный пользователь!
Файл Шаблона - Primer.doc:
От: {Организация}
Кому: {Контрагент}
Ждем акт сверки взаиморасчетов!
Директор /{Директор}/
Необходимо заменить в шаблоне ключевые слова в скобках {}, на указанные значения, вот примерный код обработки:
Код 1C v 7.x Obj ect("ServiceManager", ServiceManager); Категория:
Работа с Microsoft Office и OpenOffice Установка полей и масштаба документа при сохранении из 1С MS Excel
Код 1C v 8.х ПопыткаOpenOffice Calc
Код 1C v 8.х ПопыткаObj ect("СервисМанагер",СервисМанагер); Категория:
Работа с Microsoft Office и OpenOffice 
Удалить в строке все символы кроме цифр Категория: Регулярные выражения.gif)
