Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Создание списка выделенных файлов в UTF-8
Goto page Previous  1, 2
 
Post new topic   Reply to topic    Total Commander Forum Index -> Общие вопросы printer-friendly view
View previous topic :: View next topic  
Author Message
Tol!k



Joined: 01 Apr 2008
Posts: 1727
Location: Арзамас

Post (Separately) Posted: Mon Apr 20, 2009 02:15    Post subject: Reply with quote

' 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
View user's profile Send private message
midasinc



Joined: 17 Apr 2009
Posts: 25

Post (Separately) Posted: Thu Apr 23, 2009 13:01    Post subject: Reply with quote

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
View user's profile Send private message
Tol!k



Joined: 01 Apr 2008
Posts: 1727
Location: Арзамас

Post (Separately) Posted: Thu Apr 23, 2009 17:30    Post subject: Reply with quote

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
View user's profile Send private message
midasinc



Joined: 17 Apr 2009
Posts: 25

Post (Separately) Posted: Thu Apr 23, 2009 18:04    Post subject: Reply with quote

Tol!k wrote:
midasinc wrote:
cm_SelectCurrentExtension
Выделить файлы/папки по текущему расширению
Alt-GreyPlus быстрее и место на панели не занимает

Ну это кто как привык - во-первых нужно помнить это сочетание, а во-вторых - я привык мышкой больше работать, тянуться к клавиатуре -лишние движения Smile

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
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Total Commander Forum Index -> Общие вопросы All times are GMT + 4 Hours
Goto page Previous  1, 2
Page 2 of 2

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group