[adel2012]

السلام عليكم ورحمة الله وبركاته

هذا مثال يوضح استخدام الدالة السابقة

Dim test_split(), txt As String

txt="100 احمد خالد على"
'يتم فصل السلسة النصية حسب الفراغ
'في السلسة النصية السابقة
test_split = Split(txt, " ")
For i As Int16 = 0 To test_split.LongCount - 1
MsgBox(test_split(i))
Next


==================================================
النتيجة ستكون على النحو التالي

test_split(0)="100"
test_split(1)="احمد"
test_split(2)="خالد"
test_split(3)="علي"