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

[ArabAttack 0]

السلام عليكم ورحمة الله وبركاته

لغة البرمجة : فيجوال بيسك 6

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

hello all i love php

فلنفرض انا ابغاه يقص الجزء التالي من النص

all i love

وطبعا ما ابغاه يتعامل عبر رقم الحرف يعني مو اقله من الحرف 7 الى كده

لا ابغا عبر نفس النص يعني من كلمة كدة لكلمة كده

وشكرا

[عبدالجليل العقوري 18]

السلام عليكم

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

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

وبالتوفيق

[ArabAttack 0]

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

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

بالتوفيق

[عبدالجليل العقوري 18]

السلام عليكم

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

Text2 = "all i love"

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

Text3 = ""

[ArabAttack 0]

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

وشكرا

[kldoon 236]

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

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 تضع الكلمة التي تريد الحذف إليها!

[fathykml 0]

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

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

مثال

gdfhy123fdhhjdL>

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

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