Кодировка текста

[_Lexa98_]

Как расшифровать это: тест
Должно получится: тест
Перепробовал все функции Encode.au3, ничего не получилось :(


Добавлено:

Сообщение автоматически объединено: 4 Июн 2012

Никто не знает? :(


Добавлено:

Сообщение автоматически объединено: 4 Июн 2012

Люди помогите


Добавлено:

Сообщение автоматически объединено: 4 Июн 2012

POST запрос("тест") ---> PHP скрипт(записывает "тест" в файл) ---> GET запрос на файл с "тест" ---> Возврат "тест" :(

 

[InnI]

Отправить "тест" в буфер обмена.

#include <Encoding.au3>

$hexStr = "0x"
$ar = StringToASCIIArray(ClipGet())
For $i=0 To UBound($ar)-1
  $hexStr &= Hex($ar[$i], 2)
Next
ConsoleWrite(_Encoding_CyrillicTo1251(BinaryToString($hexStr)))

 

[_Lexa98_]

InnI
Спасибо)
А чем обходиться, если там не одно слово, а целый текст?

 

[InnI]

А какая разница? Слово - частный случай текста
Или там какие-то хитрые символы имеются? Выложите текст.

 

[_Lexa98_]

InnI

EZiX
hello

EZiX
test

EZiX
ALL OK

EZiX
ïðèâåò

EZiX
ïðèâåò

EZiX
привет

EZiX
ggg

EZiX
privet

EZiX
))

EZiX
che delaesh?

EZiX
vse ok

EZiX 21:20
time check...

EZiX 22:16
привет

EZiX 22:23
vse norm)

EZiX 22:23
pochti)

EZiX 22:23
лалала

EZiX 22:23
привет

EZiX 22:24
тест

 

[InnI]

Проблема в том, что у вас здесь смесь кодировок. Вот на этом "ïðèâåò" мой пример сбивается. Если вы сможете убрать эту кодировку или оставить только её, то всё будет работать. Иначе, сохраните весь этот текст в файл в кодировке UTF-16 LE и тогда можно построчно конвертировать.

#include <Encoding.au3>

$file = FileOpen("d:\test.txt", 32)
While 1
  $line = FileReadLine($file)
  If @error = -1 Then ExitLoop
  Convert($line)
WEnd
FileClose($file)

Func Convert($line)
  $hexStr = "0x"
  $ar = StringToASCIIArray($line)
  For $i=0 To UBound($ar)-1
    $hexStr &= Hex($ar[$i], 2)
  Next
  ConsoleWrite(_Encoding_CyrillicTo1251(BinaryToString($hexStr)) & @CRLF)
EndFunc

 

[_Lexa98_]

InnI
Я попробую исправить.