Тема: дешифровка Unicode
Добрый день, возникла необходимость декодировать текст из unicode. Выглядит это так:
"\u0412\u0435\u0434\u0443\u0449\u0438\u0439 \u0438\u043d\u0436\u0435\u043d\u0435\u0440".
Уже попробовал StrConv, Спрашивать посимвольно AskW, а также
With CreateObject("ADODB.Stream")
.Type = 2
If Len(sDecode) Then .Charset = sDecode ' указываем исходную кодировку
.Open
.LoadFromFile sFileName ' загружаем данные из файла
sFileContent = .ReadText ' считываем текст файла в переменную FileContent$
.Close
.Charset = sDecodeTo ' назначаем новую кодировку
.Open
.WriteText sFileContent
.SaveToFile sFileName, 2 ' сохраняем файл уже в новой кодировке
.Close
End With
В первых случаях получаются иероглифы, в последнем - "файл повреждён" и открыть его не представляется возможным. Декодирование онлай-ресурсами позволяет декодировать текст. Буду рад вашему совету, как это разрешить. (П.С.: Просто заменить макросом все символы, зная код и его значение можно, но хочется более программно выполнить задачу). Спасибо