Содержимое ячейки Excel в формате Unicode-символов.

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

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

22.01.2013 12:00:54

Существует ли какая-либо возможность перекодировать содержимое ячейки в формат Unicode ( UTF- 8 ) в последовательность из двух байт, записанных в шестнадцатиричном представлении?
Т.е. ячейку в текстом «Тестовая ячейка» перекодировать в «%D0%A2%D0%B5%D1%81%D1%82%D0%BE%D0%B2%D0%B0%D1%8F%20%D1%8F%D1%87%D0%B5%D0%B9%D0%BA%D0%B0».

Возможно существует какой-нибудь макрос?

Johny

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

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

22.01.2013 12:22:45

Код

Function StringEncode(StringToEncode As String) As String

  Dim TempAns As String
  Dim CurChr As Integer
  CurChr = 1

  Do Until CurChr - 1 = Len(StringToEncode)
    Select Case Asc(Mid(StringToEncode, CurChr, 1))
      Case 48 To 57, 65 To 90, 97 To 122
        TempAns = TempAns & Mid(StringToEncode, CurChr, 1)
      Case 32
          TempAns = TempAns & "%" & Hex(32)
      Case Else
        TempAns = TempAns & "%" & _
          Right("0" & Hex(Asc(Mid(StringToEncode, CurChr, 1))), 2)
    End Select

    CurChr = CurChr + 1
    
  Loop

  URLEncode = TempAns
  
End F unction

There is no knowledge that is not power

Читают тему