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

Latoid · 20 Май 2010

Kaster сказал(а):
OffTopic:
Latoid
это натив

OffTopic:
Сообразил. Autoit мне надо обновлять

CreatoR · 20 Май 2010

Вообще хотелось бы иметь под рукой универсальную функцию, которая могла бы определять любой тип кодировок, и соответственно на её основе можно было бы сделать функцию для конвертирования указанной кодировки в любую, и обратно.

Latoid · 20 Май 2010

CreatoR сказал(а):
Вообще хотелось бы иметь под рукой универсальную функцию, которая могла бы определять любой тип кодировок, и соответственно на её основе можно было бы сделать функцию для конвертирования указанной кодировки в любую, и обратно.

Покумекаю в воскресенье. Раньше не смогу (

CreatoR · 20 Май 2010

Latoid [?]

Покумекаю в воскресенье

Кстати есть онлайн сервис которвй умеет автоматом определять кодировку и конвертировать, может как то можно это использовать.

snoitaleR · 20 Июл 2010

CreatoR
Подскажи, пожалуйста, почему данное перекодирование не дает в результате "Пробное письмо"... Проверял на указанном онлайн-сервисе - там получается...

Код:

#Include <Encoding.au3>
 MsgBox(0,"",_Encoding_KOI8To1251(_Encoding_Base64Decode("8NLPws7PxSDQydPYzc8")))

CreatoR · 20 Июл 2010

snoitaleR [?]

почему данное перекодирование не дает в результате "Пробное письмо"

У меня выдаёт «"Пробное пись» ;D
Также и на сервисе.

snoitaleR · 20 Июл 2010

CreatoR
Я бы посмеялся, но не до смеха... Тут какой-то казус...
Прикладываю скриншот...

CreatoR · 20 Июл 2010

snoitaleR [?]

Тут какой-то казус

Я поверял с тем что мне выдала функция _Encoding_Base64Decode, видимо в ней есть проблема...
Добавлено:
Сообщение автоматически объединено: 20 Июл 2010

[?]

видимо в ней есть проблема

Проблема в длине возвращаемой строки, нужно добавить «+ 2» к «$Ret[0]».

ak40u · 19 Дек 2010

* Декодер http://web.artlebedev.ru/tools/decoder/

* Можно добавить функцию конвертации cp1251 в utf8 и назад.
Взял с http://mihalytch.org.ua/programming/php/convert-cp1251-utf8.html

По ней вопрос:
Кодирование не всегда срабатывает, не могу понять почему.

Код:

#include <INet.au3>
#include <encoding.au3> ; туда я засунул функцию _Encoding_Cp1251ToUtf8
$sHtml = _INetGetSource ("http://autoit-script.ru/index.php")
_Encoding_Cp1251ToUtf8 ($sHtml)
MsgBox(0,'',$sHtml)

Код:

#include <INet.au3>
#include <encoding.au3>
$sHtml = "РґРІРµСЂРё РґРµСЂРµРІСЏРЅРЅС‹Рµ  <sample words>"
_Encoding_Cp1251ToUtf8 ($sHtml)
MsgBox(0,'',$sHtml)

Код:

func _Encoding_Cp1251ToUtf8 ($txt)
   Dim $in_arr[66] = [ _
       Chr(208), Chr(192), Chr(193), Chr(194), _
       Chr(195), Chr(196), Chr(197), Chr(168), _
       Chr(198), Chr(199), Chr(200), Chr(201), _
       Chr(202), Chr(203), Chr(204), Chr(205), _
       Chr(206), Chr(207), Chr(209), Chr(210), _
       Chr(211), Chr(212), Chr(213), Chr(214), _
       Chr(215), Chr(216), Chr(217), Chr(218), _
       Chr(219), Chr(220), Chr(221), Chr(222), _
       Chr(223), Chr(224), Chr(225), Chr(226), _
       Chr(227), Chr(228), Chr(229), Chr(184), _
       Chr(230), Chr(231), Chr(232), Chr(233), _
       Chr(234), Chr(235), Chr(236), Chr(237), _
       Chr(238), Chr(239), Chr(240), Chr(241), _
       Chr(242), Chr(243), Chr(244), Chr(245), _
       Chr(246), Chr(247), Chr(248), Chr(249), _
       Chr(250), Chr(251), Chr(252), Chr(253), _
       Chr(254), Chr(255)]

   Dim $out_arr[66] = [ _
       Chr(208)&Chr(160), Chr(208)&Chr(144), Chr(208)&Chr(145), _
       Chr(208)&Chr(146), Chr(208)&Chr(147), Chr(208)&Chr(148), _
       Chr(208)&Chr(149), Chr(208)&Chr(129), Chr(208)&Chr(150), _
       Chr(208)&Chr(151), Chr(208)&Chr(152), Chr(208)&Chr(153), _
       Chr(208)&Chr(154), Chr(208)&Chr(155), Chr(208)&Chr(156), _
       Chr(208)&Chr(157), Chr(208)&Chr(158), Chr(208)&Chr(159), _
       Chr(208)&Chr(161), Chr(208)&Chr(162), Chr(208)&Chr(163), _
       Chr(208)&Chr(164), Chr(208)&Chr(165), Chr(208)&Chr(166), _
       Chr(208)&Chr(167), Chr(208)&Chr(168), Chr(208)&Chr(169), _
       Chr(208)&Chr(170), Chr(208)&Chr(171), Chr(208)&Chr(172), _
       Chr(208)&Chr(173), Chr(208)&Chr(174), Chr(208)&Chr(175), _
       Chr(208)&Chr(176), Chr(208)&Chr(177), Chr(208)&Chr(178), _
       Chr(208)&Chr(179), Chr(208)&Chr(180), Chr(208)&Chr(181), _
       Chr(209)&Chr(145), Chr(208)&Chr(182), Chr(208)&Chr(183), _
       Chr(208)&Chr(184), Chr(208)&Chr(185), Chr(208)&Chr(186), _
       Chr(208)&Chr(187), Chr(208)&Chr(188), Chr(208)&Chr(189), _
       Chr(208)&Chr(190), Chr(208)&Chr(191), Chr(209)&Chr(128), _
       Chr(209)&Chr(129), Chr(209)&Chr(130), Chr(209)&Chr(131), _
       Chr(209)&Chr(132), Chr(209)&Chr(133), Chr(209)&Chr(134), _
       Chr(209)&Chr(135), Chr(209)&Chr(136), Chr(209)&Chr(137), _
       Chr(209)&Chr(138), Chr(209)&Chr(139), Chr(209)&Chr(140), _
       Chr(209)&Chr(141), Chr(209)&Chr(142), Chr(209)&Chr(143)]
    $txt = StringReplace($in_arr,$out_arr,$txt)
   Return $txt
   EndFunc

madmasles · 19 Дек 2010

ak40u
А чем Вам не нравятся штатные функции Encoding.au3?

Код:

#include <Encoding.au3>

$sString1251 = 'двери деревянные'
$sStringUTF8 = _Encoding_StringToUTF8($sString1251)
MsgBox(0, '', 'Оригинал: ' & $sString1251 & @LF & 'UTF8: ' & $sStringUTF8 & @LF & _
		'1251: ' & _Encoding_UTF8ToANSI($sStringUTF8))

PS
Ваша функция не работает и еще в ней 2 ошибки:
1. Не правильно $txt = StringReplace($in_arr,$out_arr,$txt), правильно
$txt = StringReplace ($txt, "searchstring/start", "replacestring" [, occurrence [, casesense]] )
2. StringReplace() не заменяет массивы. Надо так:

Код:

;...
For $i = 0 To 65
	$txt = StringReplace($txt, $in_arr[$i], $out_arr[$i])
Next
;...

Например:

Код:

Dim $aFirst[3] = ['1', '2', '3']
Dim $aSecond[3] = [' 11 ', ' 22 ', ' 33 ']
$sString = '231321'
For $i = 0 To 2
	$sString = StringReplace($sString, $aFirst[$i], $aSecond[$i])
Next
MsgBox(0, '', $sString)

PPS
В Примерах 1 и 2 у Вас тоже ошибка:

Код:

;Не правильно:
$sHtml = "РґРІРµСЂРё РґРµСЂРµРІСЏРЅРЅС‹Рµ  <sample words>"
_Encoding_Cp1251ToUtf8 ($sHtml)
MsgBox(0,'',$sHtml)
;Правильно:
$sHtml = "РґРІРµСЂРё РґРµСЂРµРІСЏРЅРЅС‹Рµ  <sample words>"
$sHtml = _Encoding_Cp1251ToUtf8 ($sHtml)
MsgBox(0,'',$sHtml)

Закомментируйте строку

Код:

;...
;_Encoding_Cp1251ToUtf8 ($sHtml)
;...

В Вашем примере - ничего не изменится.

ak40u · 19 Дек 2010

Я не думал что _Encoding_UTF8ToANSI сможет мне помочь. Спасибо, неработающую функцию оставлю в покое

sayman · 9 Фев 2011

Код:

АаБбВвГгДдЕеЁёЖжЗзИиЙйКкЛлМмНнОоПпРрСсТтУуФфХхЦцЧчШшЩщЪъЫыЬьЭэЮюЯя

исходная строка

Код:

�����������娸������������������������������������������������

имеем такую кодировку

как с нормальным текстом в аутоите можно сотворить такое ?

p.s. это post запрос

beaver · 16 Фев 2011

Проблема в длине возвращаемой строки, нужно добавить «+ 2» к «$Ret[0]».

А можно совсем для тех, кто в танке написать как это сделать?

CreatoR · 26 Апр 2011

Обновление (с запозданием почти в год :whistle :smile:

.

[v1.4], 26.01.2011
* Обновлены/исправлены функции _Encoding_Base64*.

[v1.3], 20.07.2010
* Исправлена функция _Encoding_Base64Decode, неправильное возвращаемое значение для не-ANSI символов.

[v1.2], 20.05.2010
+ Добавлена функция _Encoding_ISO8859To1251.

madmasles · 26 Апр 2011

CreatoR [?]

с запозданием почти в год

Лучше поздно, чем никогда. ;D

andreitrane · 27 Май 2011

[Ошибки] не работает encoding.au3

надеюсь написал в правильном разделе, если нет то перенесите))

после того как обновился на версию 3.3.7.2, у меня стали отказываться работать программы, использующие encoding.au3

при включении вылезает ошибка

Код:

#include <Encoding.au3>

Error: Error opening the file.

до обновления все работало отлично, сейчас проверил, файл на месте, ничего не изменилось кроме версии автоит
пожалуйста переделайте Encoding.au3 или, если дело не в нем, подскажите что делать, буду благодарен)

kaster · 27 Май 2011

Re: [Ошибки] не работает encoding.au3

хм... а разве бета не ставится в отдельную папку? найди ее, там будет своя папка include, туда надо засунуть encoding.au3. и да, ты не в том разделе отписался. encoding.au3 не входит в стандартную поставку, и не может претендовать на баг самого языка

andreitrane · 27 Май 2011

Re: [Ошибки] не работает encoding.au3

Kaster
спасибо)
только хотел отписаться что если запускать исходник, то вылезает ошибка, а если запускать через AutoIt3.exe, то все отлично, но потом нашел папку beta)
[?]

да, ты не в том разделе отписался

тогда можно удалять тему

kaster · 27 Май 2011

Re: [Ошибки] не работает encoding.au3

andreitrane [?]

тогда можно удалять тему

это к Creator'y или Yashied'y

La2Angel · 23 Сен 2011

Проблемка

)) microsoft security essentials - считает данную библиотеку за вирус при компиляции.
Подробнее: Критическая угроза! Действия: немедленно удалить! Данный файл используют при написании вирусов!

Автор темы	Похожие темы	Форум	Ответы	Дата
M	пример работы с _mikrotik_UDF.au3	Общие вопросы по AutoIt	5	6 Июл 2023
V	MetroGUI-UDF и alwaysontop	Общие вопросы по AutoIt	2	15 Апр 2023
W	Добавить файл в UDF	Общие вопросы по AutoIt	3	1 Апр 2023
M	Баг UDF Excel.au3, функция _Excel_RangeFind	Баг-репорты и запросы на новые функции	0	30 Авг 2021
Y	[Данные, строки] Библиотека Encoding.au3	Общие вопросы по AutoIt	2	24 Апр 2018

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

Знающий

Must AutoIt!

Знающий

Must AutoIt!

AutoIT Гуру

Must AutoIt!

AutoIT Гуру

Must AutoIt!

Знающий

Модератор

Знающий

Новичок

Новичок

Must AutoIt!

Модератор

Новичок

Мой Аватар, он лучший самый

Новичок

Мой Аватар, он лучший самый

Новичок