البحث عن اسماء متطابقة

هذا اقتباس لعمل قام به الأخ أبو هادي عساه ينفع

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

Function NameSplit(InName As String, PartNo As Byte) As String
Dim FullName, Part, Part2 As String
Dim K, Pos, Pos2 As Byte

NameSplit = ""
FullName = RTrim(LTrim(Nz(InName))) & " "

For K = 1 To PartNo
Pos = InStr(1, FullName, " ")
Part = Left(FullName, Pos)
If Part = "آل " Or Part = "عبد " Or Part = "عبدرب " Then
Pos = InStr(Pos + 1, FullName, " ")
Else
Pos2 = InStr(Pos + 1, FullName, " ")
If Pos2 > 0 Then
Part2 = Mid(FullName, Pos + 1, Pos2 - Pos)
Select Case Part2
Case "الله ", "الحق ", "الإسلام ", "الدين "
Pos = Pos2
End Select
End If
End If
If Pos = 0 Then Pos = Len(FullName) + 1
Select Case K
Case PartNo: NameSplit = Left(FullName, Pos - 1)
End Select
FullName = Mid(FullName, Pos + 1, Len(FullName))
Next K
End Function

المدخلات :

1 - الإسم كاملا

2 - رقم الخانة للإسم المطلوب : 1 للأول 2 للثاني .. الخ

لاحدود .... :)

في هذا الموضوع الكثير

http://arabteam.nicmatic.com/vb/showthread...سم&pagenumber=1

أخـ عاشق الأكسس ـــــــــوك(f) (f) (f) (f)

هذا اقتباس لعمل قام به الأخ أبو هادي عساه ينفع

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

Function NameSplit(InName As String, PartNo As Byte) As String
Dim FullName, Part, Part2 As String
Dim K, Pos, Pos2 As Byte

NameSplit = ""
FullName = RTrim(LTrim(Nz(InName))) & " "

For K = 1 To PartNo
Pos = InStr(1, FullName, " ")
Part = Left(FullName, Pos)
If Part = "آل " Or Part = "عبد " Or Part = "عبدرب " Then
Pos = InStr(Pos + 1, FullName, " ")
Else
Pos2 = InStr(Pos + 1, FullName, " ")
If Pos2 > 0 Then
Part2 = Mid(FullName, Pos + 1, Pos2 - Pos)
Select Case Part2
Case "الله ", "الحق ", "الإسلام ", "الدين "
Pos = Pos2
End Select
End If
End If
If Pos = 0 Then Pos = Len(FullName) + 1
Select Case K
Case PartNo: NameSplit = Left(FullName, Pos - 1)
End Select
FullName = Mid(FullName, Pos + 1, Len(FullName))
Next K
End Function

المدخلات :

1 - الإسم كاملا

2 - رقم الخانة للإسم المطلوب : 1 للأول 2 للثاني .. الخ

لاحدود .... :)

في هذا الموضوع الكثير

http://arabteam.nicmatic.com/vb/showthread...سم&pagenumber=1

أخـ عاشق الأكسس ـــــــــوك(f) (f) (f) (f)

الاخ العزيز عاشق الاكسس

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

اشكرك على هذه المساعدة الجميله

ولكن لم استطيع التعامل معها

ارجو الايضاح اكثر من ذلك

مع جزيل الشكر والتقدير(f) (f)