Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Googler


Сообщения: 3665
Благодарности: 1563

Профиль | Отправить PM | Цитировать


mitiya, __sa__nya, у меня вроде обе работают, ...нужен пациент
не совсем в тему - вариант на VBS, вызвать из CMD не составит проблемы:
Код: Выделить весь код
FileIn  = "in.txt"
FileOut = "out.txt"

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(FileOut, 2, vbTrue)
strText = FileDecode(FileIn, "utf-8")
objFile.WriteLine(strText)

Function FileDecode (strFile, strCP)
   Set Stream = CreateObject("ADODB.Stream")
   With Stream
     .Type = 2
     .Mode = 3
     .CharSet = strCP
     .Open
     .LoadFromFile(strFile)
   End With

   FileDecode = Stream.Readtext()
   Stream.Close
End Function
Это сообщение посчитали полезным следующие участники:

Отправлено: 12:01, 01-07-2009 | #6