الدالة Len

إرجاع Long يحتوي علي عدد الأحرف في سلسله أو عدد البايت المطلوب لتخزين متغير.

بناء الجملة

Len ( string | فرنام)

يحتوي بناء جمله الدالة Len علي الوسيطتين التاليتين:

الوسيطة

الوصف

سلسلة

اي تعبير السلسلة صالحه. إذا كانت السلسلة تحتوي علي null ، فيتم إرجاع null.

فرنام

اي اسم متغير صالح. إذا كانت فرنام تحتوي علي null ، سيتم إرجاع null. إذا كانت قيمه فرنام عبارة عن متغير ، فان Len سيقوم بمعاملته تماما كسلسلة وترجع دائما عدد الأحرف التي تحتوي عليها.

ملاحظات

يجب تحديد الوسيطتين (وواحده فقط). باستخدام الأنواع المعرفة من قبل المستخدم ، ترجع الدالة Len الحجم كما ستتم كتابته إلى الملف.

ملاحظة:  استخدم الدالة LenB مع بيانات البايت المضمنة في سلسله ، كما في لغات مجموعه الأحرف مزدوجة البايت (DBCS). بدلا من إرجاع عدد الأحرف في سلسله ، ترجع الدالة LenB عدد وحدات البايت المستخدمة لتمثيل هذه السلسلة. باستخدام الأنواع المعرفة من قبل المستخدم ، ترجع الدالة LenB الحجم الموجود في الذاكرة ، بما في ذلك اي حشو بين العناصر. بالنسبة إلى التعليمات البرمجية النموذجية التي تستخدم LenB، راجع المثال الثاني في موضوع المثال.

ملاحظة: قد لا يتمكن Len من تحديد العدد الفعلي لوحدات بايت التخزين المطلوبة عند استخدامها مع السلاسل ذات الطول المتغير في أنواع البيانات المعرفة من قبل المستخدم.

مثال استعلام

التعبير

النتائج

حدد ProductID ، Len (ProductID) ك برودوكتلين من برودوكتساليس ؛

ترجع هذه الدالة القيم من الحقل "ProductID" وطول تلك القيم في الاعمده برودوكتلين.

أمثله VBA

ملاحظة: الامثله التالية توضح استخدام هذه الدالة في الوحدة النمطية Visual Basic for Applications (VBA). للحصول علي مزيد من المعلومات حول استخدام VBA ، حدد مرجع المطور في القائمة المنسدلة إلى جانب بحث وادخل مصطلحا واحدا أو أكثر في مربع البحث.

يستخدم المثال الأول Len لإرجاع عدد الأحرف في سلسله أو عدد البايت المطلوب لتخزين متغير. النوع... يجب ان تكون كتله نوع النهاية تعريف CustomerRecord مسبوقة بالكلمة الاساسيه Private إذا ظهرت في وحده نمطيه للفئة. في الوحدة النمطية القياسية ، يمكن ان تكون جمله Typeعامه.

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.

يستخدم المثال الثاني LenB وداله معرفه من قبل المستخدم (لينمبكس) لإرجاع عدد أحرف البايت في سلسله إذا تم استخدام 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
استكشاف التدريب
الحصول على الميزات الجديدة أولاً
الانضمام إلى Office Insider

هل كانت المعلومات مفيدة؟

نشكرك على ملاحظاتك!

شكراً لك على الملاحظات! يبدو أنه من المفيد إيصالك بأحد وكلاء دعم Office لدينا.

×