الدالة Len

هام: تمت ترجمة هذه المقالة ترجمة آلية، راجع إقرار إخلاء المسؤولية. يرجى الاطلاع على النسخة الإنجليزية من هذه المقالة. هنا للرجوع إليها.

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

بناء الجملة

Len( string | varname)‎

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

الوسيطة

الوصف

string

اي صالح تعبير السلسلة. تعبير سلسله ، يتم ارجاع Null.

varname

اي اسم صالح متغير. اذا احتوي اسم المتغير علي Null، يتم ارجاع Null. اذا كان varname متغير، ف# تعاملها نفسه ك# سلسلهLen و# دوما ب# ارجاع عدد الاحرف التي يحتويها.


ملاحظات

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

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

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

مثال

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

يستخدم المثال الأول الدالة Len لإرجاع عدد الأحرف في سلسلة أو عدد وحدات البايت المطلوبة لتخزين متغير. يجب أن تسبق الكتلة Type...End Type التي تصف CustomerRecord بالكلمة الأساسية 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.

يستخدم المثال الثاني الدالة 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.

ملاحظة: إقرار إخلاء المسؤولية للترجمة الآلية: تمت ترجمة هذه المقالة بواسطة نظام كمبيوتر دون تدخل العامل البشري. توفر Microsoft هذه الترجمات الآلية لمساعدة المستخدمين الذين لا يتحدثون الإنجليزية على استخدام منتجات Microsoft، وخدماتها، وتقنياتها والاستمتاع بها. قد تحتوي هذه المقالة على أخطاء في المفردات، أو بناء الجملة، أو القواعد نظرًا لترجمتها آليًا.

مشاركة Facebook Facebook Twitter Twitter البريد الإلكتروني البريد الإلكتروني

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

رائع! هل لديك أي ملاحظات أخرى؟

كيف يمكننا تحسين ذلك؟

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

×