[abulayth]

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

اخي الكريم

الفكرة تعتمد على ان الحروف العربية يكون الاسكي كود لها اكبر من 128 لذلك اععتمدت على ان اجمع هذه الحروف في متغير وعند ظهور اول حرف انجليزي اضع الحروف العربية في ليست وابدا بتجميع الانجليزي وبعد ذلك العربي وهكذا حتى يتم الانتهاء من التكست
والان الى الكود

كود :

Private Sub Command1_Click()
List1.Clear
List2.Clear

المتغير الذي سيحمل الكلمات العربية
arwor$ = ""

المتغير الذي سيحمل الكلمات الانجليزية
enwor$ = ""


هنا لووب حتى نهاية التكست الموجود
For i = 1 To Len(Text1.Text)

هنا نبحث عن قيمة الاسكي لكل حرف موجود في التكست
If Asc(Mid$(Text1.Text, i, 1)) > 128 Then
    arwor$ = arwor$ + Mid$(Text1.Text, i, 1)

هنا يتم تجميع الكلمات الانجليزية
    If enwor$ > "" Then List2.AddItem enwor$: enwor$ = ""
Else

هنا يتم تجميع الكلمات العربية
    enwor$ = enwor$ + Mid$(Text1.Text, i, 1)
    If arwor$ > "" Then List1.AddItem arwor$: arwor$ = ""
End If
Next i


    If arwor$ > "" Then List1.AddItem arwor$
    If enwor$ > "" Then List2.AddItem enwor$
End Sub

والله اعلم

يعطيك العافية