Flasher
|
 Posted: Mon Nov 03, 2014 12:52 Post subject: |
 |
|
Ой, сколько красивых букаф! Да и без тега quote..
| Code: | '======================================================================================
' Назначение: cоздание в активной панели файла с текстом из буфера обмена (при наличии)
' с последующим к нему переходом или открытием в редакторе
' Условие: пустой путь запуска
' Параметр: "<Путь к редактору>" (необязательный)
'======================================================================================
T = Replace(Time, ":", ".") : If InStr(T, ".") = 2 Then T = 0 & T
Name = Year(Date) & "." & Left(Date, 5) & "_" & T & ".txt"
R = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\1407"
With CreateObject("WScript.Shell")
On Error Resume Next
A = .RegRead(R) : If A > 0 Or Err.Number <> 0 Then .RegWrite R, 0, "REG_DWORD"
Clip = CreateObject("htmlfile").ParentWindow.ClipboardData.GetData("text")
If A > 0 Then .RegWrite R, A, "REG_DWORD"
On Error Goto 0
If IsNull(Clip) Or Trim(Clip) = "" Then WScript.Quit
Path = .CurrentDirectory & "\" & Name
With CreateObject("ADODB.Stream")
.Open : .CharSet = "UTF-8" : .WriteText Clip
.Position = 0 : .Type = 1 : .Position = 3 : Buff = .Read
.Close : .Open : .Write Buff : .SaveToFile Path, 2 : .Close
End With
If WScript.Arguments.Count Then .Exec WScript.Arguments(0) & " """ & Path & """" Else _
.Exec "%COMMANDER_EXE% /S /O /L=""" & Path & "\'"""
End With |
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Last edited by Flasher on Tue Nov 04, 2014 17:07; edited 4 times in total |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
