WestByte Support Forum

Code: Select all

Imports System.Text
Imports System.Drawing.Text

Public Class Form1
Inherits Form

Private ReadOnly TextAsIs As Byte() = {&HE3, &H80, &H90, &HE8, &HBB, &H8A, &HE7, &HAA, &H93, &H34, &HE3, &H80, &H91, &HE3, &H80, &H8C, &HE3, &H83, &HA0, &HE3, &H83, &HBC, &HE3, &H83, &HB3, &HE3, &H83, &HA9, &HE3, &H82, &HA4, &HE3, &H83, &H88, &HE6, &H9D, &HBE, &HE5, &HB1, &HB1, &HEF, &HBC, &H8B, &HE9, &HAB, &H98, &HE7, &H9F, &HA5, &HE3, &H80, &H8D, &HE4, &HB8, &H89, &HE3, &H83, &H8E, &HE5, &HAE, &HAE, &HEF, &HBD, &H9E, &HE7, &HA5, &H9E, &HE6, &H88, &HB8}
Private ReadOnly FontFile As String = System.IO.Path.Combine(My.Application.Info.DirectoryPath, "ARIALUNI.TTF")

Private WithEvents LstRess As New ListBox

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  Dim Fonts As New PrivateFontCollection()
  Fonts.AddFontFile(FontFile)

  With LstRess
    .Dock = DockStyle.Fill
  End With

  With Me
    .Text = "Иероглифы - конвертирование"
    .AutoScaleMode = Windows.Forms.AutoScaleMode.None
    .Font = New Font(Fonts.Families(0), 16)
    .Controls.Add(LstRess)
    .ClientSize = New Size(640, LstRess.ItemHeight * 8 + 4)
  End With

  Dim Str As String

  With LstRess.Items
    .Add("UTF8 -> Unicode")
    Str = Encoding.UTF8.GetChars(TextAsIs)
    .Add(Str)

    .Add("")
    .Add("UTF8 -> 1251 -> Unicode")
    Str = Encoding.GetEncoding(1251).GetChars(Encoding.Convert(Encoding.UTF8, Encoding.GetEncoding(1251), TextAsIs))
    .Add(Str)

    .Add("")
    .Add("UTF8 -> 1251 -> Unicode [без знаков вопроса]")
    Str = Str.Replace("?", "")
    .Add(Str)
  End With
End Sub

End Class

Code: Select all

C:\WINDOWS\Microsoft.NET\Framework\v4.0.30319\vbc.exe /target:winexe /out:Hieroglyphes.exe /optimize+ /removeintchecks+ /debug- Hieroglyphes.vb /main:Form1 /imports:System.Windows.Forms /imports:System.Drawing