バイト

情報量の単位で、1バイトは8ビットに相当します。コンピュータは情報の記憶や処理、伝達をバイト単位で行なうケースが多々あります。

Unicode と ANSI

Access2000からUnicodeが採用されました。これは、全ての文字（全角、半角、漢字）を２バイトであらわします。逆に、ANSI形式は、全角文字と漢字は２バイト、半角文字は１バイトで表します。

Access2000以降のLenB関数

よく、解説書で「LenB関数は、半角なら１バイト、全角なら２バイトで戻り値を返します」と記載されていますが、Access2000以降、この記述は誤りです。

しかし、Unicode形式の文字をANSI形式の文字を変換する関数が用意されているので、これを利用すると無事うまくいきます。

StrConv関数

Accessで用意されている関数として、StrConv関数があります。この関数は、下記の引数が用意されています。

• strconv("文字列TEST中",vbFromUnicode) のように引数を記述して下さい。

サンプルプロシージャその1

下記のようなサンプルプロシージャをイミディエイトウィンドウで実行します。

Function samplepro()

    Debug.Print Len("ＡＢc") '---A
    Debug.Print LenB("ＡＢc") '---B
    Debug.Print LenB(StrConv("ＡＢc", vbFromUnicode)) '---C
    
End Function

実行結果

:プロシージャの実行結果は、以下のとおりです。

• Aの場合、3が戻り値になります。
• Bの場合、6が戻り値になります。（全文字を2バイトで計算）
• Cの場合、5が戻り値になります。（ANSI形式では、cが半角英数字のために１バイト）

サンプルプロシージャその2

下記のようなサンプルプロシージャをイミディエイトウィンドウで実行します。

Function samplepro2()

    Debug.Print Len("今年の目玉は、Accessです。") '---D
    Debug.Print LenB("今年の目玉は、Accessです。") '--E
    Debug.Print LenB(StrConv("今年の目玉は、Accessです。", vbFromUnicode)) '--F
    
End Function

実行結果

:プロシージャの実行結果は、以下のとおりです。

• Dの場合、16が戻り値になります。
• Eの場合、32が戻り値になります。（全文字を2バイトで計算）
• Fの場合、26が戻り値になります。（Accessが半角英数字のために6バイト）

関連ページ

• Unicode 文字列を ANSI 文字列に変換する方法 ： AccessTips124

2004/04/15