VB6文字列のバイト数を取得する (LenB)

スポンサーリンク

VB6 では、StrConv 関数を使って Unicode からシステム規定の文字コード (Shift_JIS) に変換した後、LenB 関数を使用することで取得できます。

サンプルコード

以下にサンプルコードを示します。

VB6.0 以前
' --------------------------------------------------------------------------------
'       半角 1 バイト、全角 2 バイトとして、指定された文字列のバイト数を返します。
'
' @Param    stTarget    バイト数取得の対象となる文字列。
' @Return               半角 1 バイト、全角 2 バイトでカウントされたバイト数。
' --------------------------------------------------------------------------------
Public Function GetByteCount(ByVal stTarget As String) As Long
    GetByteCount = LenB(StrConv(stTarget, vbFromUnicode))
End Function

使用例は以下のようになります。

VB6.0 以前
    ' バイト数を格納するための変数を宣言する
    Dim lByteCount As Long

    ' 半角 1 バイト、全角 1 バイトでのバイト数を取得する
    lByteCount = GetByteCount("123ＡＢＣ")

    ' 取得したバイト数を表示する
    Call MsgBox(CStr(lByteCount))  '9

関連するリファレンス

準備中です。

スポンサーリンク