الدالة Len

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

بناء الجملة

Len ( سلسلة | varname )

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

الوسيطة

الوصف

سلسلة

أي بيانات تعبير السلسلة. إذا كانت السلسلة تحتوي على Null، يتم إرجاع Null.

varname

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

ملاحظات

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

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

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

مثال استعلام

التعبير

النتائج

SELECT ProductID, Len(ProductID) AS ProductLen FROM ProductSales;

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

أمثلة VBA

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

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

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

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

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

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

×