[ابراهيم مراد]

(20-03-14, 07:32 AM)سعود كتب : شوف الرابط هنا

اخى بيظهر خطا هنا
TextBox2.Text = TextBox2.Text.Replace(all, String.Empty)
ومش بيطلع الاى بى فى المسج

[elgokr]

اضافة باعلى الكود الفورم
Imports System.Text.RegularExpressions

واستخدم
Dim ma As Match = Regex.Match(TextBox2.Text, "(<\[ip=)(.*)(\]>)")
Dim ip As String = ma.Groups(2).Value
MsgBox(ip)
Dim all As String = ma.Value
TextBox2.Text = TextBox2.Text.Replace(all, String.Empty)

من اضافة الاخ سعود

[elgokr]

الكود الموضح يستخدم على التالى
<[ip=×××.×××.×××.×××]>

قم بتعديل الكود حسب نتيجة اخراج الكود من قيمة textbox

تحياتى

[ابراهيم مراد]

بارك االله فى الاخ سعود والاخ جوكر والله يوفقكم ويسعدكم شكرا لمساعدتكم

[elgokr]

الشكر لله وفى امان الله