تقسيم جملة غلى عدد كلمات افيدونى

1. Private Sub Form_Load()
2. Dim Names() As String
3. Dim Word As String
4. Dim MyName As String
5. Dim LastName As String
6. Dim NameCounter As Long
7. Dim n As Long
8. Dim r As Integer
9.  
10. List1.Clear
11. NameCounter = 0
12. Names = Split("أحمد عبد الل
    07; عماد الدين محم
    3;", " ")
13. For n = LBound(Names) To UBound(Names)
14. Word = Trim(Names(n))
15. If Len(Word) > 0 Then
16. If Len(MyName) > 0 Then MyName = MyName & " "
17. MyName = MyName & Word
18. r = CheckName(Word)
19. If r = 0 Then
20. List1.AddItem MyName
21. LastName = Word
22. MyName = ""
23. NameCounter = NameCounter + 1
24. ElseIf r = 1 Then
25. List1.RemoveItem List1.ListCount - 1
26. List1.AddItem LastName & " " & MyName
27. MyName = ""
28. End If
29. End If
30. Next n
31.  
32. MsgBox NameCounter
33. End Sub
34.  
35. Private Function CheckName(Word As String) As Integer
36. Dim myWord As String
37.  
38. myWord = Trim(Word)
39. myWord = Replace(myWord, "ـ", "")
40.  
41. CheckName = 0
42.  
43. Select Case myWord
44. Case "عبد"
45. CheckName = -1
46.  
47. Case "الدين"
48. CheckName = 1
49. End Select
50. End Function
51.  
52.  
    
    

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

السلام عليكم ورحمة الله .. الأستاذ najy_zl

بإمكان صاحب البرنامج وضع إرشادات حول طريقة كتابة الإسم العادي أو المركب على سبيل التمييز

أي أنه من الممكن أن يكون (نجم-الدين أحمد علي) أو (عبد-الله عبد-الرحيم عمرو) أو (أحمد-فؤاد فاروق)

وبهذا لا يوجد أي مشكله بإذن الله وتكون أسهل من أن تضع إحتمالات بكافة الأسماء المركبة التي لا قاعدة لها