كيف احذف كلمة في جملة ؟

جرب هذا الكود الذى يعيد اليك النص بعد الحذف حيث Text تمثل الجملة قبل الحذف و Part تمثل النص المراد حذفه

Private Function RemoverPart(Text As String, Part As String) As String
Dim S As Integer
1:
For S = 1 To Len(Text)
	If UCase(Mid(Text, S, Len(Part))) = UCase(Part) Then
		Text = Left(Text, S - 1) & Right(Text, Len(Text) - Len(Part) - S + 1)
		GoTo 1
	End If
Next S
RemoverPart = Text
End Function

جاري التجريب

جزاك الله خيرا يا أخي عبد الفتاح و بارك الله و غفر الله لك

بدالة Replace و فى سطر واحد.

طيب يا أخي ضع الكود لكي نستفيد بارك الله فيك

القاعدة فى المنتدى هى المساعدة بالأفكار و أن فشلت فى التنفيذ تطلب الكود , فالسؤال هل حاولت يا أخى و لو لثوانى ؟

عموما لو فرضا أن عندنا Textbox أسمه txtNames و زر أسمه cmdReplace , نملئ الـ Textbox أولا للتجربة :

Private Sub Form_Load()
txtNames.Text = "محمد بن سيد" & vbNewLine & "أحمد بن عبد الله" & vbNewLine & "عبد الرحمن بن عبد الرحيم" & vbNewLine & "محمود بن يس"
End Sub

و الكود المطلوب سيكون :

Private Sub cmdReplace_Click()
txtNames.Text = Replace(txtNames.Text, "بن ", "")
End Sub

ما قصرت يا طيب بارك الله فيك

طيب سؤال ثاني

إذا كان عندي الاسم أحمد بن سالم بن سعيد النعيمي

فأنا أريد كود برمجي يظهر لي الكلمة الأخيرة و هي (النعيمي) في تكست بوكس

مثلا text1 = أحمد بن سالم بن سعيد النعيمي

أما text2= النعيمي

شكرا لك أنتظرك

هتحدد مكان آخر مسافة ( تقريبا بالدالة Instr بدل من InstrRev علشان الجملة عربى ) ثم تستعمل الدالة $Right (أيضا هنا بدل $Left لأن الجملة عربى , علما بأنى لم تسبق لى تجربتهم مع جملة عربى !).

أو عن طريق فصلها لـ String Array و عرض آخر قيمه فى الـ Array

Dim strArrNames() As String

strArrNames = Split("أحمد بن سالم بن سعيد النعيمي", " ")

MsgBox strArrNames(UBound(strArrNames))

لكنها ستسهلك الكثير من الذاكرة !

بارك الله فيك و غفرالله لك هذا هو المطلوب

Dim x() As String
x = Split(Text1, " ")
Text2 = x(UBound(x))