الدالة Mid

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

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

بناء الجملة

Mid ( سلسله، بدء [، طول ] )

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

الوسيطة

الوصف

سلسله

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

بدء تشغيل

مطلوب. طويله. موضع الحرف في السلسله التي يتم عندها بدء الجزء ل# تنفيذه. اذا كانت بدء اكبر من عدد الاحرف في سلسله، Mid ارجاع سلسله فارغه ("").

طول

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


ملاحظات

ل# تحديد عدد الاحرف في سلسله، استخدم الداله Len .

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

مثال

ملاحظة: توضح الامثله التاليه استخدام هذه الداله في 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"

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

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

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

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

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

×