[Creat0R]

Код:

#include <Encoding.au3>

$bUTF8 = False ;True
$sString = 'тест'
$sFile = @TempDir & '\test.txt'

$hFile = FileOpen($sFile, 2 + ($bUTF8 ? 128 : 0))
FileWrite($hFile, ($bUTF8 ? _Encoding_StringToUTF8($sString) : $sString))
FileClose($hFile)

$sRead = FileRead($sFile, 256)

If _Encoding_IsUTF8Format($sRead) Then
    MsgBox(0, @ScriptName, 'UTF-8')
Else
    MsgBox(0, @ScriptName, _Encoding_GetCyrillicANSIEncoding($sRead))
EndIf

[Паразит]

Неправильно возвращает кодировку.
Вот у меня файл UTF-16 LE, а он мне показывает WINDOWS-1251.

Функция не может определять UTF-16 кодировки.

[Iska]

И вообще, существует ли безошибочный способ для такой задачи? »

Нет, не существует. Однозначно определить кодировку можно только для юникода при наличии BOM. Во всех остальных случаях приходится так или иначе гадать на кофейной гуще, пытаясь использовать частотные характеристики появления определённых символов. Говоря математическим языком — задача не имеет аналитического решения, но частично может быть решена посредством численных методов.

[Creat0R]

Вот у меня файл »

Можно его увидеть?

[Паразит]

Ну вот, я там сделал несколько файлов. Сохранил их в разных блокнотах, и с разными кодировками.

1.zip

[Iska]

Не могли бы Вы ещё указать, какими блокнотами и в какие кодировки Вы сохраняли 1.txt и 5.txt? Ибо там нечто не вполне вразумительное наблюдается. Кодировка вроде как явно указана BOM'ом как UTF-16BE, но дальше…

[Паразит]

Iska, я уже и не помню.
Iska, Creat0R, короче задача снимается. Решил отказаться от этого дела. Спасибо Вам.

[Creat0R]

Паразит,

Код:

#include <Encoding.au3>

For $i = 1 To 5
    $sFile = @DesktopDir & '\1\' & $i & '.txt'
    $sEncoding = _Encoding_GetFileEncodingString($sFile)
    ConsoleWrite('[' & $sFile & '] encoding: ' & $sEncoding & @CRLF)
Next

Func _Encoding_GetFileEncodingString($sFile)
    Local $iEncoding = FileGetEncoding($sFile)

    Switch $iEncoding
        Case 0
            $iEncoding = _Encoding_GetCyrillicANSIEncoding(FileRead($sFile, 256))
        Case 32
            $iEncoding = 'UTF16 Little Endian'
        Case 64
            $iEncoding = 'UTF16 Big Endian'
        Case 128
            $iEncoding = 'UTF8 (with BOM)'
        Case 256
            $iEncoding = 'UTF8 (without BOM)'
    EndSwitch

    Return $iEncoding
EndFunc

[Iska]

Creat0R, а Вы не определились с содержимым (не кодировкой) файлов 1.txt и 5.txt из приложенного коллегой Паразит архива?