NIKZZZZ
Gold Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Skif_off
madmasles
А смысл? 3.3.8.1 - ansi по умолчанию, 3.3.14.0 - utf8, Флаг 512 просто проигнорируется в 3.3.8.1 .
К стати, после этого нововведения не корректно работает AutoIt3Wrapper.au3, он автоматически заменяет кодировку в редактируемом скрипте с ansi на utf8, пришлось его поправить.
Код: ; Retrieve the compiler settings from the scriptfile when available
Func Retrieve_PreProcessor_Info()
Local $I_Rec
Local $In_File
Local $hTest_UTF = FileOpen($ScriptFile_In, 16)
Local $Test_UTF = FileRead($hTest_UTF, 4)
Local $i_Rec_Param, $i_Rec_Value, $Temp_Val
FileClose($hTest_UTF)
;~ 00 00 FE FF UTF-32, big-endian
;~ FF FE 00 00 UTF-32, little-endian
;~ FE FF UTF-16, big-endian
;~ FF FE UTF-16, little-endian
;~ EF BB BF UTF-8
Select
Case BinaryMid($Test_UTF, 1, 4) = '0x0000FEFF' ; UTF-32 BE
$UTFtype = '32BE'
$SrceUnicodeFlag = 0
$InputFileIsUTF32 = 1
Case BinaryMid($Test_UTF, 1, 4) = '0xFFFE0000' ; UTF-32 LE
$UTFtype = '32LE'
$SrceUnicodeFlag = 0
$InputFileIsUTF32 = 1
Case BinaryMid($Test_UTF, 1, 2) = '0xFEFF' ; UTF-16 BE
$UTFtype = '16BE'
$SrceUnicodeFlag = 64
$InputFileIsUTF16 = 1
Case BinaryMid($Test_UTF, 1, 2) = '0xFFFE' ; UTF-16 LE
$UTFtype = '16LE'
$SrceUnicodeFlag = 32
$InputFileIsUTF16 = 1
Case BinaryMid($Test_UTF, 1, 3) = '0xEFBBBF' ; UTF-8
$UTFtype = '8'
$SrceUnicodeFlag = 128
$InputFileIsUTF8 = 1
Case Else
$UTFtype = ''
; $SrceUnicodeFlag = 0 ;некорректно для 3.3.14
$SrceUnicodeFlag = 512 ;использовать ansi по умолчанию
$InputFileIsUTF8 = 0
$InputFileIsUTF16 = 0
$InputFileIsUTF32 = 0
EndSelect
...
|
|
Всего записей: 5365 | Зарегистр. 08-02-2006 | Отправлено: 07:22 27-10-2015 | Исправлено: NIKZZZZ, 07:23 27-10-2015 |
|
