Как определить текстовый и бинарный файл

[Andrey_A]

Всем добрый день! Подскажите функцию проверки, чтобы определить текстовый или бинарный файл.

 

[AZJIO]

Наверно по поиску управляющих символов в файле

$sText = FileRead(@ScriptDir&'\file.txt')
If StringRegExp($sText, '[\x{00}-\x{08}\x{0E}-\x{1F}\x{7F}]') Then
	MsgBox(0, 'Сообщение', 'Файл бинарный')
Else
	MsgBox(0, 'Сообщение', 'Файл текстовый')
EndIf

Обновил...

 

[Andrey_A]

AZJIO [?]

Наверно по поиску управляющих символов в файле

Спасибо, но не отрабатывает правильно, html показывает как бинарный. Немного поэкспериментировал, добавил поверку по 36 символам:

$sText = FileRead(@ScriptDir&'\file.txt',36)

Параллельный вопрос: по какому количеству первых символов лучше определять?

------------
Добавил:
Нашёл такую тему: Бинарный или текстовый?

Может, кто сможет перевести с C+ на Autoit? Или это лишнее?

 

[Garrett]

Можно по сигнатуре:

;~ $sFileName = 'my.txt'
;~ $sFileName = 'my.dll'
$sFileName = 'my.html'
$hFile = FileOpen($sFileName, 16)
If $hFile = -1 Then
    MsgBox(0, "Error", "Unable to open file.")
    Exit
EndIf

$iByte = FileRead($hFile, 2)
If StringCompare($iByte, '0x4D5A') = 0 Then ; exe, dll, ocx
	ConsoleWrite('Бинарный файл!' & @CR)
Else
	ConsoleWrite('Текстовый файл!' & @CR)
EndIf

FileClose($hFile)

А вообще текстовый файл это то же бинарного файла. Просто разный формат записи данных.

 

[madmasles]

AZJIO [?]

Наверно по поиску управляющих символов в файле

Я бы ограничил поиск '[\x{00}-\x{08}]' в первых 32(64) байтах.

 

[Andrey_A]

Вариант отmadmasles
работает в 95% - спасибо, хотя если ещё будут какие-нибудь варианты или проверки, то будет хорошо)

 

[madmasles]

Andrey_A [?]

работает в 95%

Попробуйте читать 128-256-512 байт.

 

[Andrey_A]

madmasles

У меня результат улучшился, когда уменьшил количество символов:

$sText = FileRead($sFileName,8)

Ещё надо тестировать... 16 тоже нормально.

 

[AZJIO]

Обновил, там были переносы строк и прочие пробельные символы.

$sText = FileRead(@ScriptDir&'\file.txt')
If StringRegExp($sText, '[\x{00}-\x{08}\x{0E}-\x{1F}\x{7F}]') Then
	MsgBox(0, 'Сообщение', 'Файл бинарный')
Else
	MsgBox(0, 'Сообщение', 'Файл текстовый')
EndIf

Вообще нужно определится что такое бинарный файл, тогда можно задать диапазон.