منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم
كيفية حذف نص من نص اخر بداية من نص حتى نص اخر
مثلا لدى هذا النص
If Frm1.<button2_Click>o__SiteContainer1.<>p__Site2 Is Nothing Then

وعايز احذف نص من اول .< الى .<>

يعنى احذف .<button2_Click>o__SiteContainer1.<>

ويصبح النص الاصلى If Frm1p__Site2 Is Nothing Then

كيف يتم عمل ذلك؟

تفضل الكود

(13-04-17, 03:52 PM)abdualla كتب : [ -> ]تفضل الكود

PHP كود :

Dim txt As String = "If Frm1.<button2_Click>o__SiteContainer1.<>p__Site2 Is Nothing Then"

Dim fromIndex As Integer = txt.IndexOf(".<")
Dim toIndex As Integer = txt.IndexOf(".<>") + Len(".<>")

Dim remove As String = txt.Substring(fromIndex, toIndex - fromIndex)

txt = txt.Replace(remove, String.Empty)

MsgBox(txt) 


شكرا جزيلا اخى

جارى التجربة

---

بارك الله فيك اخى
لقد اشتغل جيدا

ولكن لدى طلب اخر

اريد اضافة . مكان .<

ملحوظة لم اطلب المسح بداية من < فقط ولكن قلت من .<

حتى اتفادى مشكلة اذا النص فيه تحقق من شئ اذا كان لا يساوى شئ

بمعنى لو فى نص مكتوب مثلا if x <> m then

اتمنى تكون فهمت قصدى

بانتظارك اخى

---

مثلا خلى النص
Dim txt As String = "if x <> m and If Frm1.<button2_Click>o__SiteContainer1.<>p__Site2 Is Nothing Then"

في عملية Replace ضع اي Char تريده بدلا من String.Empty

بارك الله فيكم جميعا

لقد تم حل المشكلة بواسطة الاستاذ abdualla
abdualla
حمدا لله انك فهمت ما اقصد بارك الله فيك اخى الغالى لقد اشتغل جيدا

كلمة شكر لا تكفى لك

طالما تريد أن تقوم بعمل Scripting للنصوص إما أن تكتب الدوال بنفسك أو الأفضل لك أ ن تستخدم StringBuilder
و الفكرة بشكل عام تنحصر في إيجاد Index الخاص ب Char معين داخل النص و من ثم تغيير ما قبله أو تغيير ما بعده
و هنا النص او التكست أو String يتم التعامل معه علي أنه مصفوفة

(13-04-17, 05:06 PM)silverlight كتب : [ -> ]طالما تريد أن تقوم بعمل Scripting للنصوص إما أن تكتب الدوال بنفسك أو الأفضل لك أ ن تستخدم StringBuilder
و الفكرة بشكل عام تنحصر في إيجاد Index الخاص ب Char معين داخل النص و من ثم تغيير ما قبله أو تغيير ما بعده
و هنا النص او التكست أو String يتم التعامل معه علي أنه مصفوفة

حسنا اخى بارك الله فيك