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

01.10.23

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

–

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

Скачать файлы

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

Если ваша платформа или режим совместимости еще не достигли версии 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С для всех конфигураций на управляемых формах. В состав входят инструменты: Консоль запросов, Консоль СКД, Консоль кода, Редактор объекта, Анализ прав доступа, Метаданные, Поиск ссылок, Сравнение объектов, Все функции, Подписки на события и др. Редактор запросов и кода с раскраской и контекстной подсказкой. Доработанный конструктор запросов тонкого клиента. Продукт хорошо оптимизирован и обладает самым широким функционалом среди всех инструментов, представленных на рынке.

12000 руб.

02.09.2020 101516 563 385

608

Онлайн-интенсив "DevOps для 1С". с 5 февраля по 19 марта 2024 г.

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

Данный онлайн-курс (интенсив) предусматривает изучение процессов, инструментов и методик DevOps, их применение при разработке на платформе 1С.

25000 руб.

20.06.2023 11457 3 2

142

PowerTools

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

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

3600 руб.

14.01.2013 172860 1041 0

815

Infostart PrintWizard

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

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

18000 руб.

06.10.2023 3460 3 0

Управление данными и формами (УДиФ)

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

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

10000 руб.

10.11.2023 1359 3 1

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

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

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

5000 руб.

07.02.2018 97555 237 97

287

Выполнение произвольного кода или запроса с параметрами через Web-сервис (замена COM-подключений)

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

В процессе работы в 1С часто возникает потребность получить данные из другой базы. Обычно это делается через COM-соединение, и время выполнения запроса при этом оставляет желать лучшего. В данной публикации представлено универсальное решение, позволяющее практически моментально выполнить произвольный код или запрос с параметрами в другой информационной базе через Web-сервис.

2400 руб.

24.09.2019 22356 14 15

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

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

Программист - это человек, непрерывно принимающий решения. Написание кода не является процессом принятия решения - это всего лишь трансляция ваших желаний. Если вас периодически тяготит написание сотен строк кода ради решения задач, то прошу обратить внимание. Данный продукт позволит существенно сократить время на рутинные операции при разработке. За счет библиотечной реализации сокращается объём кода, а его читаемость повышается. К библиотеке прилагается документация API и шаблоны кода для наиболее популярных методов.

4200 руб.

16.04.2021 13815 5 9

Комментарии

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

Свернуть все

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

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

Ответить

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

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

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

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

Ответить

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

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

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

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

Ответить

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

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

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

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

Ответить

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

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

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

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

Ответить

15. DrZombi 265 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 232 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 232 02.09.23 02:02 Сейчас в теме

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