Работа с буфером обмена до 1С 8.3.24

01.10.23

Разработка - Инструментарий разработчика

–

Только рабочие функции для работы с буфером обмена. Данную публикацию делаю отчасти как шпаргалку для себя, но наверняка она пригодится кому-нибудь еще.

Скачать исходный код

	Наименование	Файл	Версия	Размер
	Работа с буфером обмена: .epf 9,16Kb 2	.epf		9,16Kb	2	Скачать

Если ваша платформа или режим совместимости еще не достигли версии 8.3.24, то взаимодействовать с буфером обмена придется с использованием спец. средств.

Вариант 1.

Может не работать в RDP из-за настроек безопасности

Такую настройку безопасности можно сделать и у себя для теста:

В regedit.exe открыть ключ реестра

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3]

Добавить параметр 1407 с типом DWORD (32 бита).
Назначить ему значение 3 (отключить буфер для IE).
Перезагрузить компьютер.

Вариант 1 ошибок не выдает, но и работать теперь перестал.

Получение текста из буфера обмена

Функция ПрочитатьИзБуфера() Экспорт
	
    htmlfile = Новый COMОбъект("htmlfile");
    Результат = htmlfile.ParentWindow.ClipboardData.Getdata("Text");
    htmlfile = Неопределено;
    
    Возврат Результат;
	
КонецФункции

Копировать текст в буфер обмена

&НаКлиенте
Процедура КопироватьВБуфер(Текст) 
	
    HTML = Новый COMОбъект("htmlfile");
    HTML.parentWindow.ClipboardData.setData("Text", Текст, "mytext");
    HTML = Неопределено;
		
КонецПроцедуры

Вариант 2.

Командная строка PowerShell

Получение текста из буфера обмена

&НаКлиенте
Функция ПрочитатьИзБуфера() 
	
    WScriptShell = Новый COMОбъект("WScript.Shell");

    ИмяВремФайла = ПолучитьИмяВременногоФайла();
	
    ТекстовыйДокумент = Новый ТекстовыйДокумент;
    ТекстовыйДокумент.Записать(ИмяВремФайла);
	
    СтрокаЗапуска = "powershell -c Get-Clipboard | Out-File """ + ИмяВремФайла + """";
    WScriptShell.Run(СтрокаЗапуска, 0, 1);
	
    ТекстовыйДокумент.Прочитать(ИмяВремФайла);
    Результат = ТекстовыйДокумент.ПолучитьТекст();

    Результат = Сред(Результат, 1, СтрДлина(Результат) - 1);
	
    НачатьУдалениеФайлов(, ИмяВремФайла);
	
    Возврат Результат;
	
КонецФункции

Копировать текст в буфер обмена

&НаКлиенте
Процедура КопироватьВБуфер(Текст)
	
	ТекстовыйДокумент = Новый ТекстовыйДокумент;
	ТекстовыйДокумент.УстановитьТекст(Текст);
	
	ИмяВременногоФайла = ПолучитьИмяВременногоФайла();
	
	ДопПараметры = Новый Структура("ИмяВременногоФайла, Текст", ИмяВременногоФайла, Текст); 
	ОписаниеОповещения = Новый ОписаниеОповещения("ВремФайлЗаписьЗавершение", ЭтотОбъект, ДопПараметры);
	
	ТекстовыйДокумент.НачатьЗапись(ОписаниеОповещения, ИмяВременногоФайла, КодировкаТекста.ANSI, Символы.ПС);
	
КонецПроцедуры

&НаКлиенте
Процедура ВремФайлЗаписьЗавершение(Результат, ДопПараметры) Экспорт 
	
	WScriptShell = Новый COMОбъект("WScript.Shell");
		
	СтрокаЗапуска = "powershell -c Get-Content """ + ДопПараметры.ИмяВременногоФайла + """ | Set-Clipboard";
	WScriptShell.Run(СтрокаЗапуска, 0, Истина);
	
	НачатьУдалениеФайлов(, ДопПараметры.ИмяВременногоФайла);
	
КонецПроцедуры

Вариант 3.

Используется командная строка CMD

Получение текста из буфера обмена

Копировать текст в буфер обмена

&НаКлиенте
Процедура КопироватьВБуфер(Текст)
	
    ТекстовыйДокумент = Новый ТекстовыйДокумент;
    ТекстовыйДокумент.УстановитьТекст(Текст);
	
    ИмяВременногоФайла = ПолучитьИмяВременногоФайла();
	
    ДопПараметры = Новый Структура("ИмяВременногоФайла, Текст", ИмяВременногоФайла, Текст); 
    ОписаниеОповещения = Новый ОписаниеОповещения("ВремФайлЗаписьЗавершение", ЭтотОбъект, ДопПараметры);
	
    ТекстовыйДокумент.НачатьЗапись(ОписаниеОповещения, ИмяВременногоФайла, КодировкаТекста.OEM, Символы.ПС);
	
КонецПроцедуры

&НаКлиенте
Процедура ВремФайлЗаписьЗавершение(Результат, ДопПараметры) Экспорт 
	
    WScriptShell = Новый COMОбъект("WScript.Shell");
		
    Шаблон = "%%comspec%% /c clip < ""%1""";
    WScriptShell.Run(СтрШаблон(Шаблон, ДопПараметры.ИмяВремФайла), 0, Истина);

    НачатьУдалениеФайлов(, ДопПараметры.ИмяВременногоФайла);
	
КонецПроцедуры

Вариант 4.

Если нужно скопировать-вставить в поле ввода. Эмуляция нажатий Ctrl-C, Ctrl-V

Вставить в поле ввода текст из буфера обмена

&НаКлиенте
Процедура ВставитьИзБуфера()
	
    ТекущийЭлемент = Элементы.ТекстСообщения;	
    ПодключитьОбработчикОжидания("ВставитьТекстИзБуфераОтложенное",0.1, Истина);
	
КонецПроцедуры

&НаКлиенте
Процедура ВставитьТекстИзБуфераОтложенное() Экспорт

    wsh=Новый COMОбъект("WScript.Shell");
    wsh.SendKeys("^v");
    wsh.SendKeys("^м"); //если включена русская раскладка

КонецПроцедуры

Скопировать из поля ввода текст в буфер обмена

&НаКлиенте
Процедура КопироватьВБуфер(ИмяЭлемента)

    ТекущийЭлемент = Элементы[ИмяЭлемента];
    ПодключитьОбработчикОжидания("КопироватьТекстВБуферОтложенное", 0.1, Истина);

КонецПроцедуры

&НаКлиенте
Процедура КопироватьТекстВБуферОтложенное() Экспорт

    wsh=Новый COMОбъект("WScript.Shell");
    wsh.SendKeys("^a"); 
    wsh.SendKeys("^ф"); //если включена русская раскладка
    wsh.SendKeys("^c");
    wsh.SendKeys("^с"); //если включена русская раскладка
    wsh.SendKeys("{LEFT}");

КонецПроцедуры

В публикации приложен файл обработки, в котором можно посмотреть демонстрацию разных способов, оценить скорость их работы и работоспособность вариантов в вашей реализации RDP.

Вариант 5.

Комбинированный способ. Сочетание скорости и надежности.
Вариант с PowerShell дает небольшую задержку меньше секунды. Попробуем сначала более быстрый способ.

Получение текста из буфера обмена

Функция ПрочитатьТекстИзБуфера() 
	
    htmlfile = Новый COMОбъект("htmlfile");
	
    Результат = htmlfile.ParentWindow.ClipboardData.Getdata("Text");
	
    // Проверка работоспособности
    ТестоваяСтрока = "%@!";
    htmlfile.ParentWindow.ClipboardData.setData("Text", ТестоваяСтрока, "mytext");
    ТекстБуфера = htmlfile.ParentWindow.ClipboardData.Getdata("Text");
    
    htmlfile = Новый COMОбъект("htmlfile");
    htmlfile.ParentWindow.ClipboardData.setData("Text", Результат, "mytext");
	
    htmlfile = Неопределено;
	
    Если ТекстБуфера = ТестоваяСтрока Тогда
        Возврат Результат;
    КонецЕсли;
	
	// Проверка не прошла, использование другого варианта
    WScriptShell = Новый COMОбъект("WScript.Shell");

    ИмяВремФайла = ПолучитьИмяВременногоФайла();
	
    ТекстовыйДокумент = Новый ТекстовыйДокумент;
    ТекстовыйДокумент.Записать(ИмяВремФайла);
	
    СтрокаЗапуска = "powershell -c Get-Clipboard | Out-File """ + ИмяВремФайла + """";
    WScriptShell.Run(СтрокаЗапуска, 0, 1);
	
    ТекстовыйДокумент.Прочитать(ИмяВремФайла);
    Результат = ТекстовыйДокумент.ПолучитьТекст();

    Результат = Сред(Результат, 1, СтрДлина(Результат) - 1);
	
    НачатьУдалениеФайлов(, ИмяВремФайла);
	
    Возврат Результат;
	
КонецФункции

Копировать текст в буфер обмена

&НаКлиенте
Процедура КопироватьВБуфер(Текст) 
	
    htmlfile = Новый COMОбъект("htmlfile");
    htmlfile.parentWindow.ClipboardData.setData("Text", Текст, "mytext");
	
    ТекстБуфера = htmlfile.ParentWindow.ClipboardData.Getdata("Text");
	
    htmlfile = Неопределено;
	
    Если ТекстБуфера = Текст Тогда
        Возврат;
    КонецЕсли;
	
    ТекстовыйДокумент = Новый ТекстовыйДокумент;
    ТекстовыйДокумент.УстановитьТекст(Текст);
	
    ИмяВременногоФайла = ПолучитьИмяВременногоФайла();
	
    ДопПараметры = Новый Структура("ИмяВременногоФайла, Текст", ИмяВременногоФайла, Текст); 
    ОписаниеОповещения = Новый ОписаниеОповещения("КопироватьВБуфер_ВремФайлЗаписьЗавершение", ЭтотОбъект, ДопПараметры);
	
    ТекстовыйДокумент.НачатьЗапись(ОписаниеОповещения, ИмяВременногоФайла, КодировкаТекста.OEM, Символы.ПС);
	
КонецПроцедуры

&НаКлиенте
Процедура КопироватьВБуфер_ВремФайлЗаписьЗавершение(Результат, ДопПараметры) Экспорт
	
    wsShell = Новый COMОбъект("WScript.Shell");
    wsh.Run("%comspec% /c clip < """ + ДопПараметры.ИмяВременногоФайла + """", 0, Истина);
	
    НачатьУдалениеФайлов(, ДопПараметры.ИмяВременногоФайла);
	
КонецПроцедуры

Выводы:

По универсальности и надежности побеждает способ с PowerShell. По простоте и скорости - первый способ с html.

Пишите, какие еще варианты вам известны.

–

См. также

Infostart Toolkit: Инструменты разработчика 1С 8.3 на управляемых формах

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

Набор инструментов программиста и специалиста 1С для всех конфигураций на управляемых формах. В состав входят инструменты: Консоль запросов, Консоль СКД, Консоль кода, Редактор объекта, Анализ прав доступа, Метаданные, Поиск ссылок, Сравнение объектов, Все функции, Подписки на события и др. Редактор запросов и кода с раскраской и контекстной подсказкой. Доработанный конструктор запросов тонкого клиента. Продукт хорошо оптимизирован и обладает самым широким функционалом среди всех инструментов, представленных на рынке.

10000 руб.

02.09.2020 131913 721 390

763

Infostart PrintWizard - создание и редактирование печатных форм в 1С 8.3

Пакетная печать Печатные формы Инструментарий разработчика Программист Платформа 1С v8.3 Запросы 1С:Зарплата и кадры бюджетного учреждения 1С:Конвертация данных 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 Платные (руб)

Инструмент, позволяющий абсолютно по-новому взглянуть на процесс разработки печатных форм. Благодаря конструктору можно значительно снизить затраты времени на разработку печатных форм, повысить качество и "прозрачность" разработки, а также навести порядок в многообразии корпоративных печатных форм.

18000 руб.

06.10.2023 9618 28 6

Infostart УДиФ: Управление данными и формами 1С

Инструменты администратора БД Инструментарий разработчика Роли и права Программист Платформа 1С v8.3 Конфигурации 1cv8 Россия Платные (руб)

Расширение позволяет без изменения кода конфигурации выполнять проверки при вводе данных, скрывать от пользователя недоступные ему данные, выполнять код в обработчиках. Не изменяет данные конфигурации, легко устанавливается практически на любую конфигурацию на управляемых формах.

10000 руб.

10.11.2023 5667 16 2

PowerTools

Инструментарий разработчика Инструменты администратора БД Системный администратор Программист Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Россия Платные (руб)

Универсальный инструмент программиста для администрирования конфигураций. Сборник наиболее часто используемых обработок под единым интерфейсом.

3600 руб.

14.01.2013 180206 1097 0

871

OneDebugger - инструмент для отладки кода без использования режима конфигуратора

Инструментарий разработчика Программист Платформа 1С v8.3 Платные (руб)

Инструмент для написания и отладки кода в режиме «1С:Предприятие». Представляет собой консоль кода с возможностью пошаговой отладки, просмотра значений переменных любых типов, использования процедур и функций, просмотра стека вызовов, вычисления произвольных выражений на встроенном языке в контексте точки останова, синтаксического контроля и остановки по ошибке. В консоли используется удобный редактор кода с подсветкой, контекстной подсказкой, возможностью вызова конструкторов запроса и форматной строки.

5400 руб.

17.05.2024 6689 15 12

Бустер Конвертации данных 3 (Infostart Toolkit)

Инструментарий разработчика Программист 8.3.14 1С:Конвертация данных Россия Платные (руб)

Расширение для конфигурации “Конвертация данных 3”. Добавляет подсветку синтаксиса, детальную контекстную подсказку, глобальный поиск по коду.

15000 руб.

07.10.2021 15498 3 12

Многопоточность. Универсальный «Менеджер потоков» 2.1

Инструментарий разработчика Программист Платформа 1С v8.3 Конфигурации 1cv8 Россия Платные (руб)

Восстановление партий или взаиморасчетов, расчет зарплаты, пакетное формирование документов или отчетов - теперь все это стало доступнее. * Есть желание повысить скорость работы медленных алгоритмов! Но... * Нет времени думать о реализации многопоточности? * о запуске и остановке потоков? * о поддержании потоков в рабочем состоянии? * о передаче данных в потоки и как получить ответ из потока? * об организации последовательности? Тогда ЭТО - то что надо!!!

5000 руб.

07.02.2018 100431 240 97

299

[ЕХТ] Фреймворк для Расширений 1С

Инструментарий разработчика Программист Платформа 1С v8.3 Управляемые формы Платные (руб)

"Фреймворк для Расширений 1С" это универсальное и многофункциональное решение, упрощающее разработку и поддержку создаваемых Расширений. Поставляется в виде комплекта из нескольких Расширений с открытым исходным кодом. Работает в любых Конфигурациях в режиме Управляемого приложения с режимом совместимости 8.3.12 и выше без необходимости внесения изменений в Конфигурацию.

3000 руб.

27.08.2019 18953 7 8

Комментарии

Подписаться на ответы Инфостарт бот

Свернуть все

1. SerVer1C 779 29.08.23 13:58 Сейчас в теме

"Операционная система: Не имеет значения" - я бы поспорил

5. v3rter 01.09.23 12:32 Сейчас в теме

(1) Да, Вариант 3 - Эмуляция нажатий Ctrl-C, Ctrl-V - чтобы заработала на новых Windows, возможно, придется повозиться с настройкой. У меня не везде работало, особенно там, где настроен сканер ш/к в режиме эмуляции клавиатуры

6. SerVer1C 779 01.09.23 13:28 Сейчас в теме

(5) Я про то, что в Linux COM-объекты не работают.

10. Serg2000mr 322 02.09.23 00:21 Сейчас в теме

(1) Вы правы, исправил.

2. DrZombi 295 30.08.23 09:46 Сейчас в теме

Нет описания работы с буфером средствами языка 1с... печалько
А с учетом перехода на линуксы, статья устарела

3. DrZombi 295 30.08.23 09:48 Сейчас в теме

(2) вот статейка, какой тут не достает
https://infostart.ru/1c/articles/1887193/

7. Serg2000mr 322 01.09.23 23:43 Сейчас в теме

(3) Я как раз после прочтения той статьи свою написал. Платформа 8.3.24 находится в тестовом статусе.

Ответить

14. DrZombi 295 04.09.23 06:14 Сейчас в теме

(7) Готовьтесь, будете переписывать :)

9. Serg2000mr 322 02.09.23 00:20 Сейчас в теме

(2) Можете дополнить вариантом, который будет на линуксах работать?

15. DrZombi 295 04.09.23 06:15 Сейчас в теме

(9) Конечно, сейчас по началу мало кто на линукс сел, но всех обязывают (типо импорто-замещение)... Как по мне Линукс тоже импортный ;)

4. v3rter 01.09.23 12:28 Сейчас в теме

Если требуется только поместить текстовую информацию в буфер обмена, то есть и 4-й способ:

ПутьВременногоФайла = ПолучитьИмяВременногоФайла("txt");
//...
//записываем в файл информацию для буфера обмена и закрываем файл
//...
КомОбъект = Новый COMОбъект("WScript.Shell");
КомОбъект.Run("%comspec% /c type """+ПутьВременногоФайла+""" | clip & del """+ПутьВременногоФайла+"""", 0,0);
КомОбъект = Неопределено;

5-й, 6-й и 7-й способы: через объект InternetExplorer.Application, вспомогательную dll или через вспомогательное "ПолеHTMLДокумента":
https://infostart.ru/1c/tools/16800/

8. Serg2000mr 322 02.09.23 00:18 Сейчас в теме

(4)

ie = Новый COMОбъект("InternetExplorer.Application");
	ie.navigate("about:blank");
	Док = ie.document;
	Док.parentWindow.ClipboardData.SetData("Text", ЧтоКопировать);

Не заработало - ошибка: Метод объекта не обнаружен SetData

ПолеHTMLДокумента - способ для обычных форм.

Вспомогательные dll - знаю несколько, но обычно они не вызывают особого доверия у программистов, и их стараются избегать.

11. Serg2000mr 322 02.09.23 02:02 Сейчас в теме

(4) способ с %comspec% - вместо 0.3 сек с PowerShell работает за 0.1 сек. Но ваш вариант имеет ограничение - нужно экранировать спец.символы. Дополнил статью правильным вариантом. Убедился, что писал статью не зря - в интернете много разбросанной, устаревшей или непроверенной информации. Надеюсь, что кому-то поможет.

17. Емельянов Алексей 161 16.04.24 08:52 Сейчас в теме

(4)

ПутьВременногоФайла = ПолучитьИмяВременногоФайла("txt");
//...
//записываем в файл информацию для буфера обмена и закрываем файл
//...
КомОбъект = Новый COMОбъект("WScript.Shell");
КомОбъект.Run("%comspec% /c type """+ПутьВременногоФайла+""" | clip & del """+ПутьВременногоФайла+"""", 0,0);
КомОбъект = Неопределено;

Ваш метод заработал, а метод PowerShell из поста нет.
Спасибо

12. maxlenium 36 02.09.23 12:56 Сейчас в теме

Кто-нибудь знает решение для мобильного приложения на android?

13. Serg2000mr 322 02.09.23 14:33 Сейчас в теме

(12) Может вот это? Многофункциональная компонента для мобильной платформы: широковещательные сообщения (broadcasts), буфер обмена (clipboard), Bluetooth

16. Емельянов Алексей 161 16.04.24 07:08 Сейчас в теме

Спасибо. Отличная статья, где собраны различные варианты.

Мне вот этот для парсинга вебстраниц не зашел:

Функция ПрочитатьИзБуфера() Экспорт
	
    htmlfile = Новый COMОбъект("htmlfile");
    Результат = htmlfile.ParentWindow.ClipboardData.Getdata("Text");
    htmlfile = Неопределено;
    
    Возврат Результат;
	
КонецФункции

Показать

&НаКлиенте
Процедура КопироватьВБуфер(Текст) 
	
    HTML = Новый COMОбъект("htmlfile");
    HTML.parentWindow.ClipboardData.setData("Text", Текст, "mytext");
    HTML = Неопределено;
		
КонецПроцедуры

Я копировал текст с карточки маркетплейса и потом с помощью регулярных выражений
RegExp = New COMОбъект("VBScript.RegExp");
вытаскивал нужную информацию. Так вот парадокс, когда копируешь этим методом в буфер, то регулярное выражение не находит искомый текст, когда руками Ctrl+C и Ctrl+V то находит.

Видимо какая-то своеобразная кодировка у этого метода.