Перекодировка файлов

[Parazit]

Привет. Вот у меня есть задача. Мне надо переконвертировать файл из одной кодировки в другую.
В данном случае, из DOS(866) в ANSII.
Мне надо считывать этот файл в массив, а потом его записывать в другой файл?
Или есть вариант проще? Может быть, есть какая-нибудь готовая функция? Как лучше сделать?

 

[Garrett]

Encoding UDF - Библиотека для работы с кодировками строк

 

[Parazit]

Библиотека функций это, конечно, хорошо, но как мне работать с файлами?
Там только работа со строками.

 

[Skif_off]

Parazit
Может быть, просто взять iconv?

 

[Parazit]

Зачем мне сторонняя утилита, если есть AutoIt?

 

[Garrett]

Parazit [?]

но как мне работать с файлами?

Ни одного не вижу... :blink:

OffTopic:
Сегодня 23 февраля! Экстрасенсы все заняты.

 

[Alofa]

... как мне работать с файлами?..

А что есть файл, который нужно перекодировать?
Для меня так это некий текстовый контейнер, который нужно прочитать, преобразовать данные и сохранить их в такой же контейнер с таким же расширением.

 

[inververs]

Parazit
Да, паразит, ответь Alofa, он задал правильный вопрос, что для тебя - файл? И как ты себе представляешь процесс работы с файлами? Думаешь там где то спрятана кодировка, в каком нибудь месте?

 

[Parazit]

Вот я и хочу узнать, какой есть вариант более практичней и более правильный.

 

[Skif_off]

Parazit
Практичным и правильным - не значит универсальным. Можно попробовать открыть как ANSI, прочитать, перекодировать, записать, как-то так

#Include <Encoding.au3>

Local $hFile, $sFile, $iFlag = 0
; Уточняем флаги чтения/записи для версий старше 3.3.14.0
If StringReplace(@AutoItVersion, '.', '') >= 33140 Then $iFlag = 512 

$hFile = FileOpen("test.txt", $iFlag)
If $hFile = -1 Then
    MsgBox(4096, "Ошибка", "Невозможно открыть файл.")
    Exit
EndIf
$sFile = FileRead($hFile)
FileClose($hFile)

$sFile = _Encoding_866To1251($sFile)

$hFile = FileOpen("test.txt", 2 + $iFlag)
If $hFile = -1 Then
    MsgBox(4096, "Ошибка", "Невозможно открыть файл.")
    Exit
EndIf
FileWrite($hFile, $sFile)
FileClose($hFile)

 

[Parazit]

Skif_off, спасибо. Ваш скрипт работает, как следует.

 

[Garrett]

Parazit [?]

Ваш скрипт работает, как следует.

[info border=#0000ff float=left]На форуме принято помечать тему решенной после получения ответа на свой вопрос!
Вверху или внизу темы нажмите на ссылку такого вида:

Тема не решена[/info]