[RaggiTech]

الداله Split

تقوم هذه الداله بتقطيع نص الى اجزاء او كلمات
بناء على رمز معين او مسافات توضع فى مصفوفة افتراضية
مثلا
نفترض ان لدينا هذه الجملة
ahmed nabil ahmed@I love VIsual Basic@vb4arab
ونريد ان نقطع هذه الجملة الى اجزاء متفرقة
بناء على رمز @ الموجود بالجملة
انظر هذا الكود

كود :

Dim test_split() As String
Dim s As String
s = "ahmed nabil ahmed@I love VIsual Basic@vb4arab"
test_split = Split(s, "@")
MessageBox.Show(test_split(0))
MessageBox.Show(test_split(1))
MessageBox.Show(test_split(2))

اول سطر حجزنا مصفوفة اسمها test_split ونوعها string لاحظ اننا لم نحدد عدد عناصرها
السطر الثانى حجزنا متغير string ووضعنا فى جملتنا الى احنا عايزين نقسمها
السطر الرابع وهو اهم سطر قولتلو ان test_split هتساوى تقسيم الجملة s بناء على الرمز @
بالشكل دا هيقسم النص s ويحط كل جزء فى عنصر من عناصر المثفوفة test_split
الثلاث اسطر الاخيرة علشان اعرض كل عنصر لوحده
دا مجرد مثال صغير علشان تفهم بى الداله
لو حد مش فاهمها ومحتاج مثال تانى يقول
يتبع بأذن الله >>>>>>>>>>>