[hamedi2727]

عندي تكست بوكس فيه خمسة او اربعه اسماء اريد كود يعطيني الاسم الاول و الاخير فقط ولكم حزيل الشكر

[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

[hamedi2727]

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

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

بدون شرط

[أبو ناصر]

الكود التالي بالفيجوال بيسيك 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

[eiocm]

هل جربت الكود قبل ما تكتب ردك؟

تقدر تحذف الشرط اذا مضايقك

[hamedi2727]

شكرا جزيلا لكم جميعنا كل الاكواد في الردود استفده منها

الشكر موصول للكل حفظكم الله جميعاً

---

اخي مشكور على الرد بس في هذا المثال يعطيني الاسم الثاني مع الاخير

ياريت تعدل الكود

اعذرني اخواني دول النصوص ضعيف فيها

---

اخي مشكور على الرد بس في هذا المثال يعطيني الاسم الثاني مع الاخير

ياريت تعدل الكود

اعذرني اخواني دول النصوص ضعيف فيها

(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

فديت روحك اخي تسلم لنا هذه الجمجمه اللي معاك

الف الف الف الف الف شكراَ