Копирование в буфур обмена содержимого файла

@SergeySa · Регистрация: 01.10.2008

Студворк — интернет-сервис помощи студентам

Подскажите как сделать, (какой код) что бы содержимое файла копировалось в буфер обмена. При этом что бы приложение с помощью которого он был создан не запускалось (что бы файл не открывался).

01.10.2008, 17:48

ЗАЧЕМ ТЕБЕ ЭТО ?!?!?!

@SergeySa · 02.10.2008, 12:47 **[ТС]**

Создается типа БД для стандартных деталей построенных на AutoCAD. Нужно из файла скопировать содержимое и вставить его в новый AutoCAD-й чертеж.

02.10.2008, 18:59

Попробуй так:

Visual Basic
1
2
3
4
5
6
7
8
Sub File2Clip(fileName)
  Open fileName For Binary As #1
  st$ = String$(LOF(1), " ")
  Get #1, 1, st$
  Close 1
  
  Clipboard.SetText st$
End Sub

@SergeySa · 05.10.2008, 10:01 **[ТС]**

Не получается, выдает ошибку:
Run-time error '424'
Object required

05.10.2008, 10:21

А на какой строке?
Странно... Clipboard входит в состав стандартной библиотеки (VB6.OLB).

Насчёт SHBrowseForFolder:
См. http://www.vbnet.ru/faq/showtopic.asp?id=8, к примеру.
Странно, что не нашёл сам. Даже если функция 'Поиск' на сайте отсутствует, можно зайти в 'Расширенный поиск' Яндекса (http://www.yandex.ru/advanced.html), в 'Я ищу' указать ключ поиска, а в 'Сайт/вершина' - сайт, в пределах которого надо выполнять поиск. И всех делов.

@SergeySa · 05.10.2008, 10:59 **[ТС]**

На строке Clipboard.SetText st$ (у меня стоит MSOffice XP (2002)(VB 6.3)

За второе спасибо, все получилось...

05.10.2008, 12:52

Раз речь про Офис - значит, про ВБА. А почему тогда этот топик ты поместил в форум по ВБ?!

С Офис XP я не работал, но что касается Офиса 2000-го, то в его библиотеках не числится VB6.OLB (разумеется!), а значит, не будет доступен и объект типа Clipboard. Я-то посылал пример для ВБ, а не для ВБА...

Лучше тогда тебе работать с API-функциями по доступу к буферу обмена. Задай поиск по VBNET.RU на ключ 'буфер обмена' или 'clipboard', и всё найдёшь.

Новые блоги и статьи Все статьи Все блоги /
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/

@SergeySa 0 / 0 / 0 Регистрация: 01.10.2008 Сообщений: 34

	Копирование в буфур обмена содержимого файла 01.10.2008, 15:26. Показов 1317. Ответов 7 Метки нет (Все метки) Подскажите как сделать, (какой код) что бы содержимое файла копировалось в буфер обмена. При этом что бы приложение с помощью которого он был создан не запускалось (что бы файл не открывался). 0

@SergeySa 0 / 0 / 0 Регистрация: 01.10.2008 Сообщений: 34
	02.10.2008, 12:47 [ТС]
	Создается типа БД для стандартных деталей построенных на AutoCAD. Нужно из файла скопировать содержимое и вставить его в новый AutoCAD-й чертеж. 0

@SergeySa 0 / 0 / 0 Регистрация: 01.10.2008 Сообщений: 34
	05.10.2008, 10:01 [ТС]
	Не получается, выдает ошибку: Run-time error '424' Object required 0

Comanche
	05.10.2008, 10:21
	А на какой строке? Странно... Clipboard входит в состав стандартной библиотеки (VB6.OLB). Насчёт SHBrowseForFolder: См. http://www.vbnet.ru/faq/showtopic.asp?id=8, к примеру. Странно, что не нашёл сам. Даже если функция 'Поиск' на сайте отсутствует, можно зайти в 'Расширенный поиск' Яндекса (http://www.yandex.ru/advanced.html), в 'Я ищу' указать ключ поиска, а в 'Сайт/вершина' - сайт, в пределах которого надо выполнять поиск. И всех делов.

@SergeySa 0 / 0 / 0 Регистрация: 01.10.2008 Сообщений: 34
	05.10.2008, 10:59 [ТС]
	На строке Clipboard.SetText st$ (у меня стоит MSOffice XP (2002)(VB 6.3) За второе спасибо, все получилось... 0

Comanche
	05.10.2008, 12:52
	Раз речь про Офис - значит, про ВБА. А почему тогда этот топик ты поместил в форум по ВБ?! С Офис XP я не работал, но что касается Офиса 2000-го, то в его библиотеках не числится VB6.OLB (разумеется!), а значит, не будет доступен и объект типа Clipboard. Я-то посылал пример для ВБ, а не для ВБА... Лучше тогда тебе работать с API-функциями по доступу к буферу обмена. Задай поиск по VBNET.RU на ключ 'буфер обмена' или 'clipboard', и всё найдёшь.

Опции темы