[kslawy]

السلام عليكم ورحمة الله وبركاته

PHP كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim input As String = "<title>تعديل على كود معرفة عنوان الصفحة</title>"
        Dim pattren As String = "(<title>(.*)</title>)"
        Dim match As Match = Regex.Match(input, pattren, RegexOptions.IgnoreCase)
        If match.Success Then
            MsgBox(match.Groups(2).Value)
        End If
    End Sub 


****
***
**
*