[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)