| Single Post |
Topic: Распаковка mime, uue, b64 |
| Author |
Message |
Volniy
|
 Posted: Sun Oct 17, 2010 15:36 Post subject: |
 |
|
Вариант первого в теме скрипта с использованием метода SetSrcPath
Для этого варианта понадобится Script Helper Beta12 | Code: | Set TCS = CreateObject("TCSCRIPT.Helper")
Set FSO = CreateObject("Scripting.FileSystemObject")
TempFile=TCS.GetSrcPath & "\temp.b64"
Set F = fso.CreateTextFile(TempFile, True)
F.Write TCS.GetTextFromClip
F.Close
'SetSrcPath (SrcPath, [InNewTab]) - дает указание установить
'желаемый путь в панели-источнике TC. Если указать в качестве первого
'параметра путь к файлу, то кроме перехода к папке, где расположен
'данный файл, будет дополнительно произвелено выделение файла(!) в
'панели-источнике. Если необязательный параметр InNewTab установить
'в True, тогда указываемый путь будет открыт в новой вкладке.
TCS.SetSrcPath TempFile
TCS.SendCommand ("cm_Decode"), False
TCS.SendKeystroke "{BKSP}"
TCS.SendKeystroke "{Enter}"
TCS.Sleep 500
fso.DeleteFile TempFile
Set TCS = Nothing
Set FSO = Nothing
WScript.Quit |
Last edited by Volniy on Mon Oct 18, 2010 00:17; edited 1 time in total |
|
|
|
 |
|
Powered by phpBB © 2001, 2005 phpBB Group
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
