(07-02-19, 04:54 PM)ابراهيم ايبو كتب : [ -> ]السلام عليكم اخي انس الصورة غير ظاهرة ولم اعرف ماتطلب تماما
TextBox2.Clear() Try Dim get_me As MatchCollection = Regex.Matches(TextBox1.Text, "(\/yahoo)(.*)(\d+)(?="")") For i = 0 To get_me.Count - 1 TextBox2.AppendText(get_me(i).Value) Next Catch ex As Exception MsgBox(ex.Message) End Try