Перекодировка 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д