Определить кодировку текстового файла и перекодировать в 1251
- Автор темы gora
- Дата начала
beve
Осваивающий
- Сообщения
- 104
- Репутация
- 31
OffTopic:
А как китайский в файле wrar40b4_config.txt перевисти в кирилицу? Или это просто шутка была?
P.S. Извиняюсь, напервый раз казалось что то китайский..., а оказывается там несколько раз перекодировалось, думаю autoit c этим не справиться, в таких сложных случаях только программа штирлиц или аналогичная поможет, возможно в них есть возможность обработки из консоли..., как вариант.
А как китайский в файле wrar40b4_config.txt перевисти в кирилицу? Или это просто шутка была?
P.S. Извиняюсь, напервый раз казалось что то китайский..., а оказывается там несколько раз перекодировалось, думаю autoit c этим не справиться, в таких сложных случаях только программа штирлиц или аналогичная поможет, возможно в них есть возможность обработки из консоли..., как вариант.
Код:
$str = FileRead('wrar40b4ru_config.txt')
$file = FileOpen('wrar40b4ru_config_1251.txt', 2)
FileWrite($file, $str)
FileClose($file)
$str = FileRead('wrar40b4_config.txt')
$str = BinaryToString(StringToBinary($str, 2))
$file = FileOpen('wrar40b4_config_1251.txt', 2)
FileWrite($file, $str)
FileClose($file)точно, и еще файл в кодировке ANSI имеет символы Chr(0) - этого тоже быть не должно.
Все равно функция _Encoding_GetFileEncoding из UDF Encoding правильно определяет один файл как ANSI, а другой, как UTF-16. Остается по BOM = 0xFFFE узнать, что его надо декодировать как UTF16 Little Endian
asdf8 [?]
Где я ошибаюсь?
У меня не определяет! В обоих случаях пишет 2 :(
Код:
#include <Encoding.au3>
$Type1=_Encoding_GetFileEncoding("wrar40b4_config.txt")
$Type2=_Encoding_GetFileEncoding("wrar40b4ru_config.txt")
$preskey = MsgBox(1+256, "Test", _
"$Type1 = " & $Type1 & @CRLF & _
"$Type2 = " & $Type2 & @CRLF & _
@CRLF)
If $preskey = 2 Then ExitГде я ошибаюсь?
- Сообщения
- 7,790
- Репутация
- 2,323
CreatoR
FileGetEncoding() у обоих файлов возвращает 32. :(
gora
Я не знаю правильно это или нет, но так у меня работает:
FileGetEncoding() у обоих файлов возвращает 32. :(
gora
Я не знаю правильно это или нет, но так у меня работает:
Код:
Dim $aFiles[2] = ['wrar40b4_config.txt', 'wrar40b4ru_config.txt']
For $i = 0 To 1
$hFile = FileOpen(@ScriptDir & '\' & $aFiles[$i], 16)
$sText = FileRead($hFile, 10)
FileClose($hFile)
Switch StringInStr($sText, 57)
;57 - буква W
Case 11
$sString = FileRead(@ScriptDir & '\' & $aFiles[$i])
$sString = BinaryToString(StringToBinary($sString, 2))
$hFile = FileOpen(@ScriptDir & '\1251_' & $aFiles[$i], 2)
FileWrite($hFile, $sString)
FileClose($hFile)
Case 15
$sString = FileRead(@ScriptDir & '\' & $aFiles[$i])
$hFile = FileOpen(@ScriptDir & '\1251_' & $aFiles[$i], 2)
FileWrite($hFile, $sString)
FileClose($hFile)
EndSwitch
Nextmadmasles
Спасибо.
Привязываться к конкретной букве нельзя, т.к., текст может быть и другим, файлы приведены как образцы.
Нечто подобное мне тоже удалось сваять и без привязки:
Но остается проблема в последних четырех байтах (0D 00 0A 00) в файле wrar40b4_config_1251.txt. Вот от этих двух лишних нулевых байт мне избавится не удалось. :( К сожалению и с Вашим вариантом та же беда.
Спасибо.
Привязываться к конкретной букве нельзя, т.к., текст может быть и другим, файлы приведены как образцы.
Нечто подобное мне тоже удалось сваять и без привязки:
Код:
_Encoding('wrar40b4ru_config')
_Encoding('wrar40b4_config')
exit
Func _Encoding($tf)
$file = FileOpen($tf & '.txt', 16)
$sRead = FileRead($file, 4)
FileClose($file)
$nByte12 = BinaryMid($sRead, 1, 2)
$nByte4 = BinaryMid($sRead, 4, 1)
$file = FileOpen($tf & '.txt', 0)
$str = FileRead($file)
FileClose($file)
If $nByte12 = '0xFFFE' Then
If $nByte4 <> '0x00' Then $str = BinaryToString(StringToBinary($str, 2))
$file = FileOpen($tf & '_1251.txt', 2)
FileWrite($file, $str)
FileClose($file)
EndIf
EndFunc ;==>_EncodingНо остается проблема в последних четырех байтах (0D 00 0A 00) в файле wrar40b4_config_1251.txt. Вот от этих двух лишних нулевых байт мне избавится не удалось. :( К сожалению и с Вашим вариантом та же беда.
