| Single Post |
Topic: Распаковка mime, uue, b64 |
| Author |
Message |
Lev
|
 Posted: Wed Oct 13, 2010 16:55 Post subject: Распаковка mime, uue, b64 |
 |
|
В последнее время на страницах форума всё чаще выкладываются файлы в mime и т.п. кодировке. Мне чуть надоело их копировать-сохранять-распаковывать, и я решил предоставить это дело ТС. Теперь всё что требуется - скопировать текстовку со страницы, выбрать желаемую директорию и нажать кнопку скрипта.
| Code: | ' File: Unpack_b64.vbs
' Description: Распаковывает mime, uue, b64 текст
' скопированный в буфер обмена в текущую папку
' Requirements: WSH Helper for TC by Volniy
' Copyright: (c) 2010, lev
Set TCS = CreateObject("TCSCRIPT.Helper")
Set FSO = CreateObject("Scripting.FileSystemObject")
Const ForReading = 1, ForWriting = 2
TCS.Wait=True
TempFile=TCS.GetSrcPath & "\temp.b64"
Set F = fso.CreateTextFile(TempFile, True)
F.Write TCS.GetTextFromClip
F.Close
'к сожалению у меня не заработало выделение файла
'по команде cm_LoadSelectionFromClip,
'но желающие могут поэкпериментировать
'TCS.SetTextToClip(TempFile)
'TCS.Pause = 1000
'TCS.SendCommand "cm_LoadSelectionFromClip",True
'TCS.Pause = 1000
'костыль - выделение файла через коммандную строку
TCS.SendKeystroke ("cd " & TempFile)
TCS.SendKeystroke "{Enter}"
TCS.SendCommand ("cm_Decode")
TCS.SendKeystroke "{BKSP}"
TCS.SendKeystroke "{Enter}"
Set F = fso.GetFile(TempFile)
F.Delete
Set TCS = Nothing
Set FSO = Nothing
WScript.Quit |
|
|
|
|
 |
|
Powered by phpBB © 2001, 2005 phpBB Group
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
