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

01.10.23

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

–

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

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

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

Если ваша платформа или режим совместимости еще не достигли версии 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 127682 689 389

740

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

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

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

18000 руб.

06.10.2023 8545 25 6

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

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

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

10000 руб.

10.11.2023 4829 12 2

SALE! 15%

PowerTools

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

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

~~3600~~ 3060 руб.

14.01.2013 179086 1086 0

863

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

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

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

15000 руб.

07.10.2021 15155 3 12

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

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

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

5000 руб.

07.02.2018 100049 239 97

298

1С HTML Шаблоны / HTML Templates

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

Быстрая и удобная обработка для работы с шаблонами HTML. Позволяет легко и быстро формировать код HTML.

2040 руб.

27.12.2017 28474 4 10

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

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

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

3000 руб.

27.08.2019 18582 6 8

Комментарии

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

Свернуть все

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Ответить

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

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

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

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

15. DrZombi 290 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 319 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 319 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 319 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 то находит.

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