Что нового

[Файловая система] Использование IniWriteSection в кодировке UTF-8 (без BOM)

---Zak---

Скриптер
Сообщения
455
Репутация
120
Добрый день...

Есть похожая тема (http://autoit-script.ru/index.php/topic,6034.0.html), но хотелось бы увидеть подобное с помощью функции IniWriteSection.

Возьмем пример из справки:
Код:
Local $sIni = @DesktopDir & "\AutoIt-Test.ini"

; Demonstrate creating a new section using a string as input.
Local $sData = "Key1=Value1" & @LF & "Key2=Value2" & @LF & "Key3=Value3"
IniWriteSection($sIni, "Section1", $sData)


Далее смотрим на кодировку файла - ANSI...

Возможно ли сделать все тоже самое, но с учетом кодировки UTF-8 (без BOM) ???

Создает файл в UTF-8
Код:
Local $sIni = @DesktopDir & "\AutoIt-Test.ini"

FileOpen($sIni, 128+1)
; Demonstrate creating a new section using a string as input.
Local $sData = "Key1=Value1" & @LF & "Key2=Value2" & @LF & "Key3=Value3"
IniWriteSection($sIni, "Section1", $sData)

Так... теперь надо еще создать файл в UTF-8 (без BOM)
256 = использовать кодировку Unicode UTF8 (без BOM) для чтения и записи.
Что-то не пишет в UTF8 (без BOM) - у меня показывает ANSI


Добавлено:
Сообщение автоматически объединено:

Решил вопрос таким способом:

Код:
Local $sIni = @DesktopDir & "\AutoIt-Test.ini"

; Demonstrate creating a new section using a string as input.
Local $sData = "Key1=1" & @LF & "Key2=фыв" & @LF & "Key3=Value"
IniWriteSection($sIni, "Section1", Unicode2Utf8(Asc2Unicode($sData)))

Func Unicode2Utf8($UniString)
    If Not isBinary($UniString) Then
        SetError(1)
        Return $UniString
    EndIf

    Local $UniStringLen = StringLen($UniString)
    Local $BufferLen = $UniStringLen * 2
    Local $Input = DllStructCreate("byte[" & $BufferLen & "]")
    Local $Output = DllStructCreate("char[" & $BufferLen & "]")
    DllStructSetData($Input, 1, $UniString)
    Local $Return = DllCall("kernel32.dll", "int", "WideCharToMultiByte", _
        "int", 65001, _
        "int", 0, _
        "ptr", DllStructGetPtr($Input), _
        "int", $UniStringLen / 2, _
        "ptr", DllStructGetPtr($Output), _
        "int", $BufferLen, _
        "int", 0, _
        "int", 0)
    Local $Utf8String = DllStructGetData($Output, 1)
    $Output = 0
    $Input = 0
    Return $Utf8String
EndFunc

Func Asc2Unicode($AscString, $addBOM = false)
    Local $BufferSize = StringLen($AscString) * 2
    Local $FullUniStr = DllStructCreate("byte[" & $BufferSize + 2 & "]")
    Local $Buffer = DllStructCreate("byte[" & $BufferSize & "]", DllStructGetPtr($FullUniStr) + 2)
    Local $Return = DllCall("Kernel32.dll", "int", "MultiByteToWideChar", _
        "int", 0, _
        "int", 0, _
        "str", $AscString, _
        "int", StringLen($AscString), _
        "ptr", DllStructGetPtr($Buffer, 1), _
        "int", $BufferSize)
    DllStructSetData($FullUniStr, 1, 0xFF, 1)
    DllStructSetData($FullUniStr, 1, 0xFE, 2)
    If $addBOM then
        Return DllStructGetData($FullUniStr, 1)
    Else
        Return DllStructGetData($Buffer, 1)
    Endif
EndFunc

Источник: Functions for Ascii, Unicode, and UTF8 encoding
 

InnI

AutoIT Гуру
Сообщения
4,739
Репутация
1,360
---Zak--- [?]
Создает файл в UTF-8
У меня создаёт файл в кодировке ANSI, но с добавлением BOM. Попробуйте на русских параметрах/значениях. Латинские символы в ANSI и в UTF-8 совпадают.
 
Автор
---Zak---

---Zak---

Скриптер
Сообщения
455
Репутация
120
2 InnI
Решение я уже нашел - спасибо - его выше описал...

Я пробовал и так и сяк:
1. Суть скрипта - слить с одного сайта в INI данные
2. На движке WordPress (PHP) создать скрипт, которые будет читать этот INI файл. WP работает на кодировке UTF...
3. С помощью функций WordPress записывать данные из файла в базу данных

Как итог WP передавал на обработку из файла краказябры - а в БД вообще ничего не добавлял.
 

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8,670
Репутация
2,473
---Zak--- [?]
Решил вопрос таким способом:
Это можно сделать и без сторонних функции:

Код:
Local $sIni = @DesktopDir & "\AutoIt-Test.ini"

; Demonstrate creating a new section using a string as input.
Local $sData = "Key1=1" & @LF & "Key2=фыв" & @LF & "Key3=Value"
IniWriteSection($sIni, "Section1", BinaryToString(StringToBinary($sData, 4)))
 
Автор
---Zak---

---Zak---

Скриптер
Сообщения
455
Репутация
120
2 CreatoR
Вооо... спасибо... работает...
 

AZJIO

Меценат
Меценат
Сообщения
2,805
Репутация
1,168
---Zak---
В справке добавлено давно:
Если необходимо использовать ini в формате юникода, то предварительно создайте ini-файл с помощью FileOpen() с кодировкой "Unicode UTF16 Little Endian".
Тогда ini-функции будут работать с юникодом. Ещё можно попробовать функции виртуального ini, есть аж 3 UDF в дополнительной справке.
 
Верх