Batya
|
 Posted: Mon Aug 14, 2006 13:23 Post subject: |
 |
|
Можно использовать следующий vbs-скрипт:
| Code: | '==============================================================================
' Добавление в буфер обмена содержимого переданного в качестве параметра файла
'
' В качестве параметра может быть передано:
' %l
'==============================================================================
Option Explicit
If WScript.Arguments.Count = 0 Then
MsgBox "Необходимо в качестве параметра передать имя файла", _
vbOKOnly + vbExclamation, _
"Чтение в буфера обмена"
WScript.Quit
End If
Dim TCS, Clipboard, FSO, OTF
Set TCS = CreateObject("TCScript.Helper")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set OTF = FSO.OpenTextFile(WScript.Arguments(0), 1)
Clipboard = OTF.ReadAll
OTF.Close
TCS.SetTextToClip(Clipboard)
Set TCS = Nothing
Set OTF = Nothing
Set FSO = Nothing
WScript.Quit |
Last edited by Batya on Wed Aug 16, 2006 10:37; edited 2 times in total |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
