[طالب برمجة]

على أساس رقم التلفون من 10 أرقام والكود من 12 رقم

PHP كود :

Dim txt As String = IO.File.ReadAllText("D:\SMS\SMS١٥٠٢٢٠١٨_٠٤_٥٣_٤١.txt")

Dim arr() As String = (From m In Regex.Matches(txt, "\d+,.+") Select CStr(m.Value)).ToArray
For Each a In arr
    Dim r = a.Split(",")
    Dim mmm As MatchCollection = Regex.Matches(r(4), "\d{10,12}")

    Dim tel As String = ""
    Dim code As String = ""
    For Each m In mmm
        If m.Value.ToString.Count = 10 Then tel = m.Value.ToString
        If m.Value.ToString.Count = 12 Then code = m.Value.ToString
    Next

    Dim lst As New List(Of String)(r)

    lst.Add(tel)
    lst.Add(code)

    Me.DataGridView1.Rows.Add(lst.ToArray)
Next