[Данные, строки] Иероглифы при сохранении в файл

Tapok · 26 Апр 2015

Видимо снимаю вопрос, в Блокноте все открывается корректно, без иероглифов. Иероглифы почему-то в Notepad++.

Не могу понять, в чем проблема.
В консоль русские буквы выводятся корректно, а в файл пишутся с кракозябрами :-\

Код:

Код:

#include <File.au3>
#include <Array.au3>

$hFile = FileOpen(@ScriptDir & '\sootv.txt', 0)

$FileList=_FileListToArray("d:\project\html_0", "*.txt", 1)
If @error=4 Then
    MsgBox (0,"","Файлы/папки не найдены.")
    Exit
 EndIf

Dim $aTable[][] = _
    [ _
        ['9.8.87', 'Ягоды'], _
        ['4.1', 'Фрукты'], _
        ['4.1.15', 'Овощи'], _
	['1', 'Один'], _
        ['2', 'Два'], _
	['3', 'Три'], _
        ['4', 'Четыре'], _
        ['5', 'Пять'], _
        ['6', 'Шесть'], _
        ['7', 'Семь'], _
        ['8', 'Восемь'] _
    ]

$sSpan = '<span ID="ACH-LINK" class="pic_ill/picture/Илл.%s.%s.png_name_Илл.^%s.^%s" title="">%s</span>'
$sFind = '(см. илл. %s)'

For $j = 1 To $FileList[0] Step 1

$sString=FileRead("d:\project\html_0\"&$FileList[$j])

For $i = 0 To UBound($aTable) - 1
    $sFindFrmtd = StringFormat($sFind, $aTable[$i][0])

    $sString = StringReplace($sString, _
        $sFindFrmtd, _
        StringFormat($sSpan, $aTable[$i][0], $aTable[$i][1], $aTable[$i][0], $aTable[$i][1], $sFindFrmtd))
Next

ConsoleWrite($sString & @LF)

FileWrite("d:\project\html\"&$FileList[$j], $sString & @LF)

Next

Выводится в консоль:

1.3.4 Заголовок
Подзаголовок 1 
Текст 1
Подзаголовок 2 
Начало текста (см. илл. 4.1.15) окончание текста. 
Начало текста (см. илл. 4.1) окончание текста. 
Начало текста (см. илл. 9.8.87) окончание текста. 
Подзаголовок 3 
Следующий текст (см. илл. 9.8.87).

Следующий текст (см. илл. 1).
Следующий текст (см. илл. 2).
Следующий текст (см. илл. 3).
Следующий текст (см. илл. 4).
Следующий текст (см. илл. 5).
Следующий текст (см. илл. 6).
Следующий текст (см. илл. 7).
Следующий текст (см. илл. 8).

Выводится в файл (почему-то в формате Macintosh):

1.3.4 «аголовок
ѕодзаголовок 1 
“екст 1
ѕодзаголовок 2 
Ќачало текста (см. илл. 4.1.15) окончание текста. 
Ќачало текста (см. илл. 4.1) окончание текста. 
Ќачало текста (см. илл. 9.8.87) окончание текста. 
ѕодзаголовок 3 
—ледующий текст (см. илл. 9.8.87).

—ледующий текст (см. илл. 1).
—ледующий текст (см. илл. 2).
—ледующий текст (см. илл. 3).
—ледующий текст (см. илл. 4).
—ледующий текст (см. илл. 5).
—ледующий текст (см. илл. 6).
—ледующий текст (см. илл. 7).
—ледующий текст (см. илл. 8).

Читаемый файл в кодировке UTF-8

Код:

$sString=FileRead("d:\project\html_0\"&$FileList[$j])

Я как-то не так в файл вывожу?

Видимо снимаю вопрос, в Блокноте все открывается корректно, без иероглифов. Иероглифы почему-то в Notepad++.

alex33 · 26 Апр 2015

Попробуйте заменить эту строку

Код:

FileWrite("d:\project\html\"&$FileList[$j], $sString & @LF)

Вот этими:

Код:

$hWriteFile = FileOpen("d:\project\html\"&$FileList[$j], 2)
FileWrite($hWriteFile, $sString & @CRLF)
FileClose($hWriteFile)

Если также и останется - поэксперементируйте с флагами кодировки функции FileOpen.

Tapok · 26 Апр 2015

Ура! Получилось :smile:

, код такой:

Код:

$hWriteFile = FileOpen("d:\project\html\"&$FileList[$j], 128+1)
FileWrite($hWriteFile, $sString & @CRLF)

Нашел тут:
http://autoit-script.ru/index.php?topic=18064.msg109690#msg109690

Спасибо!

Автор темы	Похожие темы	Форум	Ответы	Дата
A	Из ресурсов исполняемых файлов получить данные в виде строки-структуры	Общие вопросы по AutoIt	4	12 Апр 2024
	[Данные, строки] Поиск определенных данных в txt и копирование их в другой txt	Стол заказов	1	17 Ноя 2021
A	[Данные, строки] командная строка, кавычки	Общие вопросы по AutoIt	4	27 Апр 2020
Y	[Данные, строки] Сравнение строки из тхт и выполнение действия при совпадении с образцом	Общие вопросы по AutoIt	2	25 Июл 2019
N	[Данные, строки] Извлечь японские иероглифы и их описание из текста	Общие вопросы по AutoIt	8	4 Ноя 2011

Поиск

Поиск

[Данные, строки] Иероглифы при сохранении в файл

Tapok

Новичок

alex33

Скриптер

Tapok

Новичок