Перекодировка Unicode в Win1251 и наоборот - VB

Узнай цену своей работы

Формулировка задачи:

У меня проблема с ХР и Win98. Создаю документ в ХР потом проблема его чтения.. это как пример. Суть в вопросе: нужен код конвертирования из Unicode в Win1251 ( в т.ч. русский текст) и наоборот Кто первый подскажет. Идеи не надо, кокретно код или незанимать Интернет:) Спасибо

Решение задачи: «Перекодировка Unicode в Win1251 и наоборот»

textual
Листинг программы
Const CP_UTF8 = 65001
Private Declare Function MultiByteToWideChar Lib 'Kernel32.dll' _
( _
  ByVal CodePage As Long, _
  ByVal dwFlags As Long, _
  ByRef lpMultiByteStr As Byte, _
  ByVal cbMultiByte As Long, _
  ByRef lpWideCharStr As Byte, _
  ByVal cchWideChar As Long _
) As Boolean
Sub test()
Dim b(7) As Byte
Dim i(7) As Byte
Dim s As String
' Прочитали b из файла, например, следующие значения
b(0) = &HD1 ' ф
b(1) = &H84 '
b(2) = &HD1 ' ы
b(3) = &H8B '
b(4) = &HD0 ' в
b(5) = &HB2 '
b(6) = &HD0 ' а
b(7) = &HB0 '
If MultiByteToWideChar(CP_UTF8, 0, b(0), 8, i(0), 4) Then
  s = i
  MsgBox (s) ' фыва
End If
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 3.857 из 5