[الماجيك مسعد]

(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"