[saad mahyoub]

(26-09-16, 12:06 AM)HASAN6.0 كتب : كود غريب !!!
على العموم فقط غير الـFunction Rad الى التالي

PHP كود :

Public Function Rad() As List(Of String)
        ' الطريقة الاولة 
        Dim out As New List(Of String)

        Dim xx As String : xx = "=name="
        Dim yy As String : yy = "="

        For Each i As Match In Regex.Matches(txt, xx & "(?<value>.*?)" & yy)
            out.Add(i.Groups("value").Value)
        Next

        Return out
    End Function 


طبعاً في اعلى الكلاس اكتب

PHP كود :

Imports System.Text.RegularExpressions 


مشروعك بالمرفقات 

الف شكر اخي حسين