「VB.NET」GetByteCountで全角文字列のバイト数を取得

2014年10月6日2021年9月29日

構文
Public Shared Function GetEncoding (name As String) As Encoding
指定したコード ページ名に関連付けられたエンコーディングを返します。

使用例

Module Module1

    Sub Main()

        '半角文字
        Dim strA As String = "ﾃｽﾄ123"
        '全角文字
        Dim strB As String = "テスト１２３"

        '文字コードをShift_JISに変換
        Dim btCnt As Integer = System.Text.Encoding.GetEncoding(932).GetByteCount(strA)
        Console.WriteLine("半角文字のバイト数: " + btCnt.ToString)

        '文字コードをShift_JISに変換
        Dim btCnB As Integer = System.Text.Encoding.GetEncoding(932).GetByteCount(strB)
        Console.WriteLine("全角文字のバイト数: " + btCnB.ToString())

        Console.ReadKey()
    End Sub


End Module

実行結果
半角文字のバイト数: 6
全角文字のバイト数: 12