[Данные, строки] Изменение кодировки файла из ANSI в Юникод

[AtoS]

Доброго времени суток!
Собственно проблема: флормируется некий файл-лог, который потом требуется открыть в шаблонном файле Excel'я со встроенным макросом, но всегда возникает одна и та же проблема - Excel через меню "файл-открыть" выдает окно с указанием типа кодировки и разделителей, т.к. сам автоматически определить кодировку не может. Эксперимент показал, что если текстовый файл сохранить в Юникод - то эксель сразу же понимает о какой кодировке идет речь. Отсюда вопрос, как изменить кодировку текстового файла в Юникод или вообще в какую-то люблю другую кодировку средствами Autoit или же сформировать файл в нужной кодировке?

 

[madmasles]

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

 

[AtoS]

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

вот как-то у меня не получается использовать эту библиотеку. Понимаю что туплю, но решить проблему не могу.
Файл у меня формируется с помощью команды

FileWriteLine()

Собственно вот кусок кода:

Case $msg = $ping_net
			$sReadCombobox = GUICtrlRead($combo)
				$ini_f = IniRead( @ScriptDir&"\p_filials.ini", $sReadCombobox, "addr_f", "Default")
				For $i = 0 To 61 step 1
					$form = StringMid($ini_f, 13, 3)+$i
					$msg_ping = StringMid($ini_f, 1,12)
					$sFile = @ScriptDir&"\"&_NowDate()&"_"& GUICtrlRead($combo) &"_log.txt"
					$ping = Ping ($msg_ping&$form, 250)
					If @error Then
						TCPStartup()
						FileWriteLine ( $sFile,  _NowTime()&"	"&GUICtrlRead($combo)&"	"&$msg_ping&$form & "	"&"Error"&"	"& $sStatus_2)
					Else 
						TCPStartup()
						FileWriteLine ( $sFile,_NowTime()&"	"&GUICtrlRead($combo)&"	"&$msg_ping&$form & "	" &_TCPIpToName($msg_ping&$form)&"	"& $sStatus_1)
					EndIf
					Next
				GUICtrlSetState($open_txt, $GUI_ENABLE)
				GUICtrlSetState($ping_net, $GUI_DISABLE)

И по завершении формирования файла не могу его в нужную кодировку перевести.

 

[madmasles]

AtoS
Попробуйте так:

#include <Encoding.au3>

$hFileANSI = FileOpen("testANSI.txt", 0)
$sTextANSI = FileRead($hFileANSI)
FileClose($hFileANSI)
$sTextUTF8 = _Encoding_StringToUTF8($sTextANSI)
;$sTextUTF8 = _Encoding_ANSIToUTF8($sTextANSI)
$hFileUTF8 = FileOpen("testUTF8.txt", 2)
FileWrite($hFileUTF8, $sTextUTF8)
FileClose($hFileUTF8)

 

[AtoS]

Отлично, огромное спасибо! То что доктор прописал!

 

[kaster]

Достаточно предварительно открывать файл для записи в соответствующем формате.

$hWrite = FileOpen($sFile, 128 + 2); UTF8 with BOM, 256 - UTF8 without BOM

а уж потом писать в него

FileWriteLine  ( $hWrite, ...); ... - для сокращения кода

 

[CreatoR]

Kaster [?]

Достаточно предварительно открывать файл для записи в соответствующем формате

Не всегда, текст в файле может иметь смешанную кодировку, тогда оно будет записано неправильно и возможно текст уже обратно не переконвертировать.

 

[kaster]

CreatoR [?]

текст в файле может иметь смешанную кодировку

не понял. в какой запишем, такую кодировку и будет иметь. в данном случае пишется в UTF8. файл ведь формируется скриптом, как я понял

 

[CreatoR]

Kaster [?]

не понял. в какой запишем, такую кодировку и будет иметь

Файл - да. А его содержимое может быть повреждено, если исходный файл содержал смешанную кодировку строк. Я знаю о чём пишу, я с этим сталкиваюсь почти каждый день :(

 

[kaster]

CreatoR [?]

если исходный файл

какой исходный? вот перечитываю пост в шапке и не могу найти, где там говорится что нужно AutoIt-ом прочитать какой-нибудь файл. возможно чего-то не понимаю. но у меня четко формируется только одна мысль. скрипт AutoIt формирует некий файл-лог. Но он изначально формируется в ANSI, соответственно его нельзя открыть в Excel не указав предварительно кодировку. Вот я и предложил автору писать этот лог сразу в нужной кодировке.

 

[CreatoR]

Kaster [?]

какой исходный?

В заголовке темы написано «Изменение кодировки файла», вот отсюда и предположение что изначально есть исходный файл.