Конвертирование Unicode в другие форматы - VB

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

Всем здравствуйте !!! Интересует такой вопрос. Замучил этот Unicode !!! Может кто-то занимался этой проблемы и поможет советом, как сконвертировать его при чтение из файла в другие форматы ??? Буду всем очень благодарен. Спасобо !!!

Решение задачи: «Конвертирование Unicode в другие форматы»

textual
                            Листинг программы 
                        

                            'Преобразует массив байтов в Строку
Public Function ByteToStr(strUU As Variant) As String
Dim intOutLen&
Dim i&
    intOutLen = LenB(strUU)
    For i = 1 To intOutLen
        ByteToStr = ByteToStr & Chr(AscB(MidB(strUU, i, 1)))
    Next i
End Function
                        

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

15 голосов , оценка 4.067 из 5

Похожие ответы