ممكن شرح للدالة Split

الدالة Split تقوم بتقسيم نص معين إلى Array بمعنى هنفترض ان البرنامج بتاعك ملهوش User Interface و القيم بتدخله عن طريق command line args وبالتالى فأنت هتستقبل البيان داخل متغير string بالشكل التالى:

Dim CmdLine as string
CmdLine=Command$
[\code]
و هنفترض برضه ان الأمر اللى داخل للبرنامج بتاعك واخد الشكل التالى :
[code]
myprogram.exe -execute -notime
[\code]
دلوقتى احنا عيزين نقسم المدخلات الخاصه بالـ CmdLine علشان نعرف كل واحد على حده و هنا بنستخدم الدالة Split، و قبل ما اكتبلك استخدمها هكتبلك شرحها:
الدالة Split بناخد الشكل التالى:
[code]
Function Split(Expression As String, [Delimiter], [Limit As Long = -1], [Compare As VbCompareMethod = vbBinaryCompare])
[\code]
أما الـ Argument المسمى Expression فهو النص المراد تقسيمه
و Delimiter هى الفواصل بين الكلمات الموجوده داخل النص و الدالة تفترض انها مساحة واحدة خالية إذا لم تقم بإدخال فاصل معين
و Limit تعنى عدد الكلمات التى سترجع بها الدالة بعد التقسيم و يستفاد منها بأن لا تعود الدالة بأكبر من عدد معين من النصوص
و Compare تتحد بها أسلوب مقارنة النصوص
الدالة Split تعود لك بمصفوفة من النصوص و بالتالى بعد إستدعائك لها لابد من ان تحدد رقم العنصر فى المصفوفة او ان تساوى الدالة بمصفوفة نصية و سيتم نسخ محتويات نتائج الدالة داخل المصفوفة
بالنسبة للمثال السابق فسنتعامل معه كالتالى:
[code]
Msgbox Split(Command$," ")(0) '-execute
Msgbox Split(Command$," ")(1) '-notime
[\code]
عند أستدعائنا للدالة Split مع الأمر Command قامت الدالة بتقسيم الناتج من ذلك الأمر و الناتج كان عبارة عن نصين هما -execute و -notime و تلاحظ انى كتبت فى السطر الأول بعد الدالة (0) و هذا لإن الدالة تعود بمصفوفة و لأنى أعلم انها تعود بنصين فقط فقمت بالدخول على عناصر المصفوفة الناتجة مباشرة و لكن إن كنت لا تعلم عدد العناصر الناتجة فيفضل ان تنسخ القيمة داخل مصفوفة اولا ثم تستخدم LBound و UBound لتعرف عدد العناصر.
و الله ولى التوفيق