الدالة MID

إرجاع متغير‏ (سلسلة) تحتوي على عدد محدد من الأحرف من سلسلة.

بناء الجملة

Mid ( string, start [, length ] )

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

الوسيطة

الوصف

سلسلة

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

بدء

مطلوبة. وقت. موضع الحرف في السلسلة التي سيبدا عندها الجزء المراد أخذه. إذا كانت قيمه البدء أكبر من عدد الأحرف في السلسلة، فترجع الدالة Mid سلسله ذات طول صفري ("").

length

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


ملاحظات

لتحديد عدد الأحرف في السلسلة، استخدم الدالة Len .

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

أمثله استعلام

التعبير

النتائج

حدد ProductID ، Mid (ProductID, 5) ك Expr1 من برودوكتساليس;

ترجع "ProductID" وجزء ProductID يبدا من الحرف 5 ويعرض النتائج في العمود Expr1.

حدد ProductID ، Mid (ProductID, 5, 4) ك تيستميد من برودوكتساليس;

ترجع الدالة "ProductID" وجزء ProductID بدءا من موضع الحرف 5 ، الذي يحتوي علي 4 أحرف ويعرض النتائج في العمود تيستميد.

أمثله VBA

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

يستخدم المثال الأول الدالة Mid لإرجاع عدد معين من الأحرف من سلسله.

Dim MyString, FirstWord, LastWord, MidWords
MyString = "Mid Function Demo" ' Create text string.
FirstWord = Mid(MyString, 1, 3) ' Returns "Mid".
LastWord = Mid(MyString, 14, 4) ' Returns "Demo".
MidWords = Mid(MyString, 5) ' Returns "Function Demo".

يستخدم المثال الثاني MidB وداله معرفه من قبل المستخدم (ميدمبكس) لإرجاع الأحرف من السلسلة أيضا. الفرق هنا هو ان سلسله الإدخال هي ANSI والطول بالبايت.

Function MidMbcs(ByVal str as String, start, length)
MidMbcs = StrConv(MidB(StrConv(str, vbFromUnicode), _
start, length), vbUnicode)
End Function
Dim MyString
MyString = "AbCdEfG"
' Where "A", "C", "E", and "G" are DBCS and "b", "d",
' and "f" are SBCS.
MyNewString = Mid(MyString, 3, 4)
' Returns ""CdEf"
MyNewString = MidB(MyString, 3, 4)
' Returns ""bC"
MyNewString = MidMbcs(MyString, 3, 4)
' Returns "bCd"

ملاحظة:  وقد تمت ترجمة هذه الصفحة آلياً وقد تحتوي على أخطاء نحوية أو أخطاء تتعلق بالدقة. إن هدفنا هو أن يكون هذا المحتوى مفيداً لك. هل يمكنك إعلامنا إذا ما كانت المعلومات مفيدة؟ فيما يلي المقالة باللغة الإنجليزية لتكون مرجعاً لك.

انظر أيضاً

دالات السلاسل وكيفية استخدامها

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

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

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

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

×