UTF-8 в Windows 1251

[Maitris]

Перерыл все пространство имен System.Text, конвертил из одной кодировки в другую, из чар в байты, из байтов в чар, потом в строки, но так и не достиг успеxа Xотя по идее должна быть норма.

В общем есть такого рода сорц:
Торговля
Известно что это UTF-8 (Юникод).
Как мне получить из этого строку "Торговля" в кодировке Windows 1251, а не те же символы в этой кодировке?

[Q2W]

Ну это не совсем юникод. здесь мы видим мнемонику (&...; ), в которой видим что указаны номера символов (#...), которые (номера) представлены ввиде hex (x...).
Вот этот hex - это 2 байта, представляющих из себя русскую букву в юникоде. М.б. тебе надо выдрать оттуда только эти байты, а потом их перекодировать.
У меня есть функция, где перекодируется юникод и утф-8 в цп1251, но там значения подобраны опытным путём. Т.е. я смотрел какие диапазоны значений как понимает вэб браузер и делал соответствующие правила для конвертера. Если хочешь - могу выложить код или правила отдельно.

[Nord777]

Информация к размышлению:

Код: Выделить всё

Dim a() As Byte = Encoding.Unicode.GetBytes("Торговля")
Dim Sb As New StringBuilder

For Each B As Byte In a
Sb.Append(B.ToString("X2") & " ")
Next
Debug.WriteLine(Sb.ToString)

22 04 3E 04 40 04 33 04 3E 04 32 04 3B 04 4F 04

[Q2W]

Код: Выделить всё

Encoding.Unicode.GetBytes("Торговля")

А на vb6 есть что-нить подобное?

[Nord777]

забыл как о страшном сне
наврятли

[Nord777]

дополнение:

Код: Выделить всё

Dim Dec As Byte
If Byte.TryParse("1F", Globalization.NumberStyles.HexNumber, Nothing, Dec) Then
    MsgBox(Dec)
End If

[Maitris]

Ну допустим байты вынуты. Что же тогда со смесью вроде cТp?
Как-то некрасиво получается.. Задержка. Имхо тут что-то другое должно быть, нежели парсер. Браузер ведь мгновенно обрабатывает такие тексты.

[Q2W]

Ну допустим байты вынуты. Что же тогда со смесью вроде cТp?
Как-то некрасиво получается.. Задержка. Имхо тут что-то другое должно быть, нежели парсер. Браузер ведь мгновенно обрабатывает такие тексты.

Браузер полюбому Т парсит. Без этого никак. М.б. у него есть спец.библиотека, которой может воспользоваться не только он, но мне о такой не известно.

[Konst_One]

xml-процессор подключи и он все поймет

[tyomitch]

См. тж. http://bbs.vbstreets.ru/viewtopic.php?t=23447

[Maitris]

tyomitch
Посмотрел. Но хотелось бы использовать встроенные возможности Vb.net. Ведь он ориентирован на это. Чуствую истина где-то рядом...
Konst_One
А поподробней можно?

[Nord777]

Выполняет преобразование в строку (оптимизацией не занимался)

Код: Выделить всё

Private Sub Test()
Dim InputStr As String = "Торговля"
Dim Rgx As New Regex("&#x(?<Hex>[0-9A-F]{1,4})", RegexOptions.IgnoreCase)
Dim RMC As MatchCollection = Rgx.Matches(InputStr)
Dim Sh As Short
Dim B(RMC.Count * 2) As Byte
Dim Index As Integer = 0
Dim Tmp As String = ""
Dim RR As New ByteSpliter

For Each M As Match In RMC
tmp = M.Groups.Item("Hex").Value
     If Short.TryParse(Tmp, Globalization.NumberStyles.HexNumber, Nothing, Sh) Then
         RR.WholePiece = Sh
         B(Index) = RR.One
         B(Index + 1) = RR.Two
         Index += 2
     End If
Next

MsgBox(Encoding.Unicode.GetString(B))
End Sub

<StructLayout(LayoutKind.Explicit, Size:=2)> _
Public Class ByteSpliter
    <FieldOffset(0)> Public WholePiece As Short
    <FieldOffset(0)> Public One As Byte
    <FieldOffset(1)> Public Two As Byte
End Class

[Konst_One]

так куда уж подробней Темыч уже тебе дал сслыку на решение

http://bbs.vbstreets.ru/viewtopic.php?p=6586589#6586589