[سعود]

PHP كود :

Imports System.Text.RegularExpressions
Public Class Form1
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim str As String = "image =.*? (.*?\.jpg)"
        Dim reg As New Regex(str)
        Dim mc As MatchCollection = reg.Matches(r.Text)
        TextBox1.Text = mc(0).Groups(1).Value
        TextBox2.Text = mc(1).Groups(1).Value
        TextBox3.Text = mc(2).Groups(1).Value
        TextBox4.Text = mc(3).Groups(1).Value
    End Sub
End Class