18-12-17, 06:23 PM
هذا الكود يأخذ بالحسبان لو كان الاسم الاول أو الاخير يبدأ ب(عبد)
Dim s() As String
s = Split(Text1)
Dim firstName As String, lastName As String
firstName = s(0)
lastName = s(UBound(s))
If s(0) = "عبد" Then firstName = s(0) & Space(1) & s(1)
If s(UBound(s) - 1) = "عبد" Then lastName = s(UBound(s) - 1) & Space(1) & s(UBound(s))
Text2 = firstName
Text3 = lastName
Dim s() As String
s = Split(Text1)
Dim firstName As String, lastName As String
firstName = s(0)
lastName = s(UBound(s))
If s(0) = "عبد" Then firstName = s(0) & Space(1) & s(1)
If s(UBound(s) - 1) = "عبد" Then lastName = s(UBound(s) - 1) & Space(1) & s(UBound(s))
Text2 = firstName
Text3 = lastName
