Len 関数

重要:  この記事は機械翻訳されています。機械翻訳についての「免責事項」をお読みください。この記事の英語版を参照するには、ここをクリックしてください。

文字列の文字数、または変数の格納に必要なバイト数を含む Long を返します。

構文

Len( string | varname)

Len 関数の引数は次のとおりです。

引数

説明

string

任意の有効な文字列式。string に Null が含まれる場合は、Null が返されます。

varname

任意の有効な変数名。varname に Null が含まれる場合は、Null が返されます。varname が Variant の場合は、Len はそれを String と同じように扱い、含まれる文字数を常に返します。


解説

使用できる 2 つの引数のうちどちらか 1 つだけを常に、指定する必要があります。ユーザー定義型では、Len はファイルに書き込まれるサイズを返します。

注:  文字列に含まれるバイト データでは、2 バイト文字セット (DBCS) 言語のように、LenB 関数を使います。LenB は、文字列の文字数を返すのではなく、その文字列を表すために使われるバイト数を返します。ユーザー定義型では、LenB はメモリ内でのサイズを返し、要素間のスペースを含みます。LenB を使うサンプル コードについては、例の 2 番目の例を参照してください。

注: Len は、ユーザー定義データ型の可変長文字列で使うと、実際に必要な記憶域バイト数を決定できないことがあります。

注: 次の例は、Visual Basic for Applications (VBA) モジュールでのこの関数の使用方法を示しています。 VBA の使用方法の詳細については、[検索] の横にあるドロップダウン リストで [開発者用リファレンス] を選び、検索ボックスに検索する用語を入力します。

1 番目の例では、Len を使って、変数の格納に必要な、文字列の文字数またはバイト数を返します。CustomerRecord を定義する Type...End Type ブロックは、クラス モジュールに出現する場合は、Private キーワードを前に付ける必要があります。標準モジュールでは、Type ステートメントは Public でもかまいません。

Type CustomerRecord    ' Define user-defined type.
ID As Integer ' Place this definition in a
Name As String * 10 ' standard module.
Address As String * 30
End Type
Dim Customer As CustomerRecord ' Declare variables.
Dim MyInt As Integer, MyCur As Currency
Dim MyString, MyLen
MyString = "Hello World" ' Initialize variable.
MyLen = Len(MyInt) ' Returns 2.
MyLen = Len(Customer) ' Returns 42.
MyLen = Len(MyString) ' Returns 11.
MyLen = Len(MyCur) ' Returns 8.

2 番目の例では、LenB とユーザー定義関数 LenMbcs を使って、文字列の表現に ANSI が使われている場合に、文字列のバイト文字数を返します。

Function LenMbcs (ByVal str as String)
LenMbcs = LenB(StrConv(str, vbFromUnicode))
End Function
Dim MyString, MyLen
MyString = "ABc"
' Where "A" and "B" are DBCS and "c" is SBCS.
MyLen = Len(MyString)
' Returns 3 - 3 characters in the string.
MyLen = LenB(MyString)
' Returns 6 - 6 bytes used for Unicode.
MyLen = LenMbcs(MyString)
' Returns 5 - 5 bytes used for ANSI.

注: 機械翻訳についての免責事項: この記事の翻訳はコンピューター システムによって行われており、人間の手は加えられていません。マイクロソフトでは、英語を話さないユーザーがマイクロソフトの製品、サービス、テクノロジに関するコンテンツを理解するのに役立てるため、こうした機械翻訳を提供しています。記事は機械翻訳されているため、用語、構文、文法などに誤りがある場合があります。

スキルを磨く
トレーニングの探索
新機能を最初に入手
Office Insider に参加する

この情報は役に立ちましたか?

ご意見をいただきありがとうございます。

フィードバックをお寄せいただき、ありがとうございます。Office サポートの担当者におつなぎいたします。

×