как получить юникод код вида U+хххх

Пользователь

Сообщений: 621 Регистрация: 01.01.1970

27.09.2013 00:16:37

Господа, доброй ночи.
Подскажите как правильно реализовать конвертацию текста в юникод коды вида \uxxxx
Попробовал так:

Код

Sub СONVERT_text_uxxxx()
Dim ARR
Dim ARR_OUT
Dim i, count
Dim out_str
Sheets("Text_IN").Select
 
Dim strr As String
ARR = ActiveSheet.UsedRange.Value
'अप्सरस्
For count = LBound(ARR) To UBound(ARR)
    strr = ARR(count, 1)
    For i = 1 To Len(strr)
        d = Mid$(strr, i, 1)
        conv = AscW(d) ' так мы получаем код в виде HTML-код: &#2309;
        ' а нужен вид Номер в юникоде: с
        out_str = out_str & "\u" & conv
    Next
    ARR_OUT(count, 1) = out_str
Next
End Sub

так мы получаем код в виде HTML-код: &# 2309 ;
а нужен вид Номер в юникоде: U+0905
Спасибо.

Прикрепленные файлы

forum_unicode_chapter.xls (31.5 КБ)

Изменено: Антон - 27.09.2013 00:17:50

anvg

Пользователь

Сообщений: 11927 Регистрация: 22.12.2012

Excel 2016, 365

27.09.2013 02:40:15

Утро доброе. Попробуйте

Код

Public Function ToUnicode(ByVal Char As String) As String
    Dim sUnicode As String
    sUnicode = Hex$(AscW(Char))
    ToUnicode = "\U" & String(4 - Len(sUnicode), "0") & sUnicode
End Function

Изменено: anvg - 27.09.2013 02:40:34

Антон Пользователь Сообщений: 621 Регистрация: 01.01.1970	#3 27.09.2013 10:08:51 то что нужно!. Спасибо.

Читают тему