شرح دالة slit

بسم الله الرحمن الرحيم

أخي العزيز الدالة SPlit() تقوم بتقسيم نص معين الى أجزاء و ذلك تبعا لحرف او رمز تحدده أنت و طبعا يلزمك وضع ناتج الدالة في مصفوفة حتى ترجع الى كل جزء وقت ما شئت و هذا مثال على استعمال الدالة :

لنفرض أن لدينا فورم عليها تكست بوكس و محتوى هذه الأخيرة هو : Crazy-Man-Love-Arab-Team-Forum

و الآن نحن نريد ان نقسم النص التالي الى أجزاء و سنعتبر أن "-" هي الحد بين كل جزء و آخر ... سنقوم بعمل التالي

*** انشاء مصفوفة :

Dim SpliTxt() as string

هذه المصفوفة فارغة و لا تحتوي على أية أبعاد لذلك سوف نقوم باعطائها أبعاد مناسبة لطول النص الذي سنشتغل عله و ذلك عن طريق

Redim SpliTxt(Len(Text1))

مع فرض أن Text1 هي التي تحتوي على النص

بعد ذلك ننتقل الى التقسيم بالدالة Split و يكون ذلك هكذا

SpliTxt = Split(Text1,"-")

هكذا قمنا بتقسيم النص ووضع أجزاءه في المصفوفة

و اذا أردت التأكد قم بعمل التالي :

MsgBox SpliTxt(0)

طبعا الناتج سيكون يساوي :Crazy

و هكذا ...

أتمنى أن يكون الشرح واضحا

و اذا كان أي استفسار انا تحت أمرك

و السلام عليكم :)

اشكرك اخى العزيزCrazy-Man على دقة شرحك وحسن أهتمامك

وجزاك الله خيراً

بارك الله فيك Crazy Man

مشكور أخى Crazy Man