| View previous topic :: View next topic |
| Author |
Message |
Tol!k
Joined: 01 Apr 2008
Posts: 1727
Location: Арзамас
|
 (Separately) Posted: Mon Apr 20, 2009 02:15 Post subject: |
 |
|
' File: win2utf8.vbs
' Description: Сохранение в кодировке UTF-8 списка выделенных файлов
' Comments: Работает и в неуникодных версиях Total Commander
' Installation: Создайте кнопку на панели TC
' Parameters: %F "%Plist.m3u8"
If WScript.Arguments.Count = 2 Then
Set InputStream = CreateObject("ADODB.Stream")
InputStream.Type = 2
InputStream.CharSet = "windows-1251"
InputStream.Open
InputStream.LoadFromFile(WScript.Arguments.Item(0))
InputFileContents = InputStream.Readtext
InputStream.Close
Set InputStream = Nothing
Set OutputStream = CreateObject("ADODB.Stream")
OutputStream.CharSet = "utf-8"
OutputStream.Mode = 3
OutputStream.Open
OutputStream.WriteText InputFileContents
OutputStream.SaveToFile(WScript.Arguments.Item(1))
OutputStream.Close
Set OutputStream = Nothing
Else
Wscript.Echo "Usage: win2utf8.vbs infile outfile"
End If
Wscript.Quit
Last edited by Tol!k on Thu Jul 30, 2009 09:03; edited 1 time in total |
|
| Back to top |
|
 |
midasinc
Joined: 17 Apr 2009
Posts: 25
|
| (Separately) Posted: Thu Apr 23, 2009 13:01 Post subject: |
|
|
Worros, Tol!k
Спасибо за помощь.
Пока решил обойтись без скриптов - буду использовать 2 кнопки -
одну создал с помощью внутренней команды:
| Code: |
cm_SelectCurrentExtension
Выделить файлы/папки по текущему расширению
|
Ну а затем вторую, созданную в этом топике:
| Code: |
TOTALCMD#BAR#DATA:
%ComSpec% /c
copy "%UF" "filelist.txt" /y
sysedit.exe,1
Создать список выделенных файлов
.
1
-1
|
Таким образом получается более широкое поле применения - гораздо проще работать с разными расширениями. |
|
| Back to top |
|
|
Tol!k
Joined: 01 Apr 2008
Posts: 1727
Location: Арзамас
|
| (Separately) Posted: Thu Apr 23, 2009 17:30 Post subject: |
|
|
| midasinc wrote: | cm_SelectCurrentExtension
Выделить файлы/папки по текущему расширению |
Alt-GreyPlus быстрее и место на панели не занимает
| Code: | ' Requirements: WSH Helper for TC by Volniy
Dim TCS
Set TCS = CreateObject("TCScript.Helper")
TCS.Pause=100
TCS.SendCommand "cm_SpreadSelection", False
TCS.SendKeystroke "*.mp3 *.ogg *.wma *.aac *.mpc *.ape *.flac"
TCS.SendKeystroke "{ENTER}"
Set TCS = Nothing
WScript.Quit |
— выделит все нужные файлы без предварительной установки курсора |
|
| Back to top |
|
|
midasinc
Joined: 17 Apr 2009
Posts: 25
|
| (Separately) Posted: Thu Apr 23, 2009 18:04 Post subject: |
|
|
| Tol!k wrote: | | midasinc wrote: | cm_SelectCurrentExtension
Выделить файлы/папки по текущему расширению |
Alt-GreyPlus быстрее и место на панели не занимает
|
Ну это кто как привык - во-первых нужно помнить это сочетание, а во-вторых - я привык мышкой больше работать, тянуться к клавиатуре -лишние движения 
| Tol!k wrote: |
| Code: | ' Requirements: WSH Helper for TC by Volniy
Dim TCS
Set TCS = CreateObject("TCScript.Helper")
TCS.Pause=100
TCS.SendCommand "cm_SpreadSelection", False
TCS.SendKeystroke "*.mp3 *.ogg *.wma *.aac *.mpc *.ape *.flac"
TCS.SendKeystroke "{ENTER}"
Set TCS = Nothing
WScript.Quit |
— выделит все нужные файлы без предварительной установки курсора |
Спасибо, попробую, но я имел ввиду, что не только аудиофайлы, а вообще - любые расширения можно использовать для пометки, более универсально. |
|
| Back to top |
|
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
