التعامل مع النصوص في فيجوال بيسك

السلام عليكم

Private Sub Command1_Click()
Text3.Text = Replace(Text1.Text, Text2.Text, Text3.Text)
End Sub

Private Sub Form_Load()
Text1 = "hello all i love php" ''النص المراد البحث فيها
Text2 = "all i love" 'النص او الكلمة المراد البحث عنها في النص السابق
Text3 = "" 'النص الجديد المراد استبداله بدل الكلمة المراد البحث عنها
End Sub

وانا شاء الله تكون هي غايتك

وبالتوفيق

مشكور اخوي بس مو هذا هو طلبي

انا ابغا مثلا اقله قصه من الكلمة كذا للكلمة كذا

بالتوفيق

السلام عليكم

طيب اخي بدل النص

Text2 = "all i love"

ضع النص الجديد بدل الفراغ في النص

Text3 = ""

ما ينفع انا ابغا ابحث من كلمة لكلمة اخرى عشان الجزء الي بينهم يتغيير ولا ايش الفائدة من طريقتك

وشكرا

حل طويل بعض الشيئ ولكن يفي بالحاجة

Dim str As String, first As String, last As String
first = "hello"
last = "php"
str = "hello all i love php"
sstart = InStr("hello all i love php", first)
sEnd = InStr("hello all i love php", last)
final = Replace(str, Mid(str, sstart + Len(first), Len(str) - (Len(last) + Len(first))), " ")
MsgBox (final)

قم بوضع النص الذي تريد في المتغير str، و في المتغير first تضع الكلمة الأولى التي تريد الحذف بدئا منها، و في المتغير Last تضع الكلمة التي تريد الحذف إليها!

موضوع مفيد اريد وضع سؤال

اريد استخلاص الارقام من داخل جملة مكونة من حروف وارقام

مثال

gdfhy123fdhhjdL>

ليكون الناتج هو الرفم 123 فقط

وكل عام وانتم بخير