Здравствуйте,
Ниже код, который мне не дает никакого результата.
Что я делаю не так? Помогите пожалуйста. Весь день потерял.
Ниже код, который мне не дает никакого результата.
:
Dim srcString As String = "дКЪ мХЙНКЮЪ"
Dim srcCP As Encoding = Encoding.GetEncoding("koi8-r")
Dim dstCP As Encoding = Encoding.GetEncoding("windows-1251")
Dim srcBytes As Byte() = srcCP.GetBytes(srcString)
Dim dstBytes As Byte() = Encoding.Convert(srcCP, dstCP, srcBytes)
Dim dstChars(dstCP.GetCharCount(dstBytes, 0, dstBytes.Length) - 1) As Char
dstCP.GetChars(dstBytes, 0, dstBytes.Length, dstChars, 0)
Dim dstString As New String(dstChars)
Console.WriteLine("Original string: {0}", srcString)
Console.WriteLine("converted string: {0}", dstString)