Пререкодировать текст из \u041f\u0435\u0440\u0432

[gluckbahr]

Столкнулся с данными в формате "\u041f\u0435\u0440\u0432" необходимо преобразовать в кириллицу...
Все что нашел на эту тему! ПРогеры помогите пожалуйста.
Как это реализовать в зенке?

_SetListData()
Local $sURL = "http://smotri.n3.ru/services/gc.in?chtype=1"
Local $dl = InetRead($sURL, 2) ; Загружаем всё в переменную
Local $file = FileOpen("test.txt", 2) ; Создаём файл
FileWrite($file, $dl) ; Записываем в него полученные данные с сайта
FileClose($file)

Func _SetListData()
    Local $sFileRead = FileRead("test.txt")
    Local $aList1 = StringRegExp($sFileRead, 'address":"(.*?)","chan', 3)
;    Local $aList1 = StringRegExp($sFileRead, 'address":"(.*?)","chan', 3)
;   Local $aList2 = StringRegExp($sFileRead, 'chans\\/(.*?).png",', 3)
    Local $aList2 = StringRegExp($sFileRead, 'name":"(.*?)","id', 3)

    Local $str = 0
    Local $stroka_1 = '=http://127.0.0.1:12701/Open?filename='
    Local $stroka_2 = '&displayname='
    Local $stroka_3 = '='
    Opt("GUIDataSeparatorChar", "#")
    $file = FileOpen("PCPlayerChannelSelector.ini", 1)

    FileWrite($file, "[Options]" & @CRLF)
    FileWrite($file, "LastChannelID=1" & @CRLF)
    FileWrite($file, "[ChannelListURLs]" & @CRLF)

If $file = -1 Then
    MsgBox(0, "Error", "Unable to open file.")
    Exit
EndIf
;первая прогонка
    For $i = 0 To UBound($aList1) - 1
       
        $str = $str + 1
        $aSplit_Data = StringSplit($aList1[$i], "#")
        $sData = ""
        If $aSplit_Data[0] = 5 Then ContinueLoop ;It's the header data
            For $j = 1 To $aSplit_Data[0]
                $stroka = $str & $stroka_1 & $aSplit_Data[$j] & $stroka_2 & $str
                FileWrite($file, $stroka & @CRLF)
            Next
        Next
       
;вторая прогонка
    FileWrite($file, "[ChannelListNames]" & @CRLF)
    $str = 0
    For $i = 0 To UBound($aList2) - 1
        $str = $str + 1
        $aSplit_Data = StringSplit($aList2[$i], "#")
        $sData = ""
        If $aSplit_Data[0] = 5 Then ContinueLoop ;It's the header data
            For $j = 1 To $aSplit_Data[0]
                $stroka = $str & $stroka_3 & $aSplit_Data[$j]
                FileWrite($file, $stroka & @CRLF)
            Next
    Next

FileClose($file)
EndFunc

 

[Radzhab]

http://autoit-script.ru/index.php?topic=3986.0

 

[KirillOFF]

Сниппет на C# похоже будет такой (не проверял):

return Regex.Unescape(project.Variables["unicodeEntities"].Value);

Строку с данными для расшифровки положите в переменную unicodeEntities

 

[KirillOFF]

Вот так работает:

return  System.Text.RegularExpressions.Regex.Unescape(project.Variables["unicodeEntities"].Value);

 

[Lexicon]

Мм... я не уверен... но вроде как этот блок кода уберет экранирование у спец символов... а тут нужно перекодировать из яваскрипта в человеческий...

 

[KirillOFF]

Проверено - работает как надо)

 

[gluckbahr]

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

 

[gluckbahr]

А! Кул! Работает!