Tol!k
|
 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 |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
