文字から文字コードを取得する

Dim code As Integer = "𩸽".EnumerateRunes.First.Value

'桁数にこだわりがない場合
Dim hexCode As String = $"{code:X}"
Debug.WriteLine(hexCode) '29E3D

'8桁に固定したい場合
Dim hex8Code As String = $"{code:X8}"
Debug.WriteLine(hex8Code) '00029E3D

→ Debug.WriteLineが表示される場所

これでもできます。

Dim bytes() As Byte = System.Text.Encoding.UTF32.GetBytes("𩸽")
Dim code As Integer = BitConverter.ToInt32(bytes)

'桁数にこだわりがない場合
Dim hexCode As String = $"{code:X}"
Debug.WriteLine(hexCode) '29E3D

'8桁に固定したい場合
Dim hex8Code As String = $"{code:X8}"
Debug.WriteLine(hex8Code) '00029E3D

→ Debug.WriteLineが表示される場所

この例を実行すると 「安」の文字コードを16進数で 88C0 と出力します。

#If NETCOREAPP Then
    System.Text.Encoding.RegisterProvider(System.Text.CodePagesEncodingProvider.Instance)
#End If

Dim sjis = System.Text.Encoding.GetEncoding("shift_jis")
Dim bytes() As Byte = sjis.GetBytes("安")

If bytes.Length = 1 Then
    'いわゆる半角文字の場合
    Dim code As Byte = bytes(0)
    Dim hexCode As String = $"{code:X}"
    Debug.WriteLine(hexCode)
Else
    '2バイトの場合 = いわゆる全角文字の場合
    Dim code As Short = BitConverter.ToInt16(bytes.Reverse.ToArray)
    Dim hexCode As String = $"{code:X}"
    Debug.WriteLine(hexCode) '88C0
End If

→ Debug.WriteLineが表示される場所

これでもできます。この例では、半角文字も全角文字も場合分けしないで使用できるので行数が少なくて済みます。

#If NETCOREAPP Then
    System.Text.Encoding.RegisterProvider(System.Text.CodePagesEncodingProvider.Instance)
#End If

Dim sjis = System.Text.Encoding.GetEncoding("shift_jis")
Dim bytes() As Byte = sjis.GetBytes("安").Prepend(0).TakeLast(2).Reverse.ToArray
Dim code As Short = BitConverter.ToInt16(bytes)

Dim hexCode As String = $"{code:X}"
Debug.WriteLine(hexCode) '88C0

→ Debug.WriteLineが表示される場所

※１：評価の目安

A: これを使っておけばよいと思います。よくわからない人はこれを使いましょう。

B: 面倒ですが、これでも問題ないです。

C: 役に立つときもありますが、使用に注意が必要なので手を出さない方が無難です。