الدالة Len

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

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

بناء الجملة

Len ( سلسله | varname)

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

الوسيطة

الوصف

سلسله

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

varname

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


ملاحظات

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

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

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

مثال

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

يستخدم المثال الاول Len ل# ارجاع عدد الاحرف في سلسله او عدد البايت المطلوب ل# تخزين متغير. نوع ... انهاء نوع يجب ان يسبق كتله تعريف 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 و# دالات المعرفه من قبل المستخدم (لينمبكس) ل# ارجاع عدد البايت الاحرف في سلسله اذا تم استخدام 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، وخدماتها، وتقنياتها والاستمتاع بها. قد تحتوي هذه المقالة على أخطاء في المفردات، أو بناء الجملة، أو القواعد نظرًا لترجمتها آليًا.

توسيع المهارات
استكشاف التدريب
الحصول على الميزات الجديدة أولاً
الانضمام إلى Office Insider

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

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

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

×