(19-12-17, 12:13 AM)hamedi2727 كتب : مشكور اخي على الرد بس مبني للمجهول

بمعنى اي اسم كان بدون ما احدد ايش يبداء المهم ياخذ الاسم الاول و الاخير

بدون شرط

(19-12-17, 12:41 AM)Amir_alzubidy كتب : السلام عليكم و رحمة الله 
ربما تستفيد من هذا المثال 

(19-12-17, 12:48 AM)أبو ناصر كتب : الكود التالي بالفيجوال بيسيك 10 يعرض لك الاسم الأول و الاسم الأخير و يعرضهما في ميساج قد يفيدك 

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim myarray() As String = Split(TextBox1.Text, " ")
       MsgBox(myarray(0))
       MsgBox(myarray(myarray.Length - 1))
   End Sub

(18-12-17, 06:23 PM)eiocm كتب : هذا الكود يأخذ بالحسبان لو كان الاسم الاول أو الاخير يبدأ ب(عبد)

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