Q: Нужно, чтобы при нажатии Ctrl+V в активной панели, в том случае, если в буфере обмена содержится текст, создавать файл с именем descript.ion и содержимым буфера обмена. Опционально можно выдавать запрос. A: Вот vbs-скрипт, использующий Script Helper:
'======================================================= ' Создание текстового файла с содержимым буфера обмена '=======================================================
Option Explicit Dim FileName '========== Изменяемые параметры ======================= FileName = "descript.txt" 'Имя создаваемого файла '======================================================= Dim TCS, Clip, Btn, FSO, OTL, Mess, Title Set TCS = CreateObject("TCScript.Helper") Clip = TCS.GetTextFromClip Set TCS = Nothing
If Len(Clip) > 0 Then Set FSO = CreateObject("Scripting.FileSystemObject") If FSO.FileExists(FileName) Then Mess = "Буфер обмена содержит текст." & vbNewLine & _ "Заменить содержимое файла " & FileName & _ " текстом из буфера обмена?" & vbNewLine Title = "Замена содержимого файла" Else Mess = "Буфер обмена содержит текст." & vbNewLine & _ "Создать файл " & FileName & _ " с содержимым буфера обмена?" & vbNewLine Title = "Создание текстового файла" End If Btn = MsgBox(Mess, vbYesNo + vbQuestion, Title) If Btn = 7 Then 'Кнопка No Set FSO = Nothing WScript.Quit End If Else WScript.Quit End If
Set OTL = FSO.OpenTextFile(FileName, 2, True) OTL.Write Clip OTL.Close
