[محمد اسماعيل]

(16-02-18, 11:07 PM)طالب برمجة كتب : على أساس رقم التلفون من 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 


جزاك اللّة الف خير عني وعن غيري في الدنيا والاخرة

في شيء بسيط اخير الكود يعمل تمام بس في لاين اخر بيظهر رقم تليفونة وهو خارج اللاين المطلوب
وهو لا ين تم تحويل رقم لمبلغ والمفروض لاين تم استلام فقط الي يظهر

طلب اخر علي اي اساس اخترت لاين الخاص بالاستلام مش شايف اي كلمة او جزء معبر عن  الكلمة وطريقة اقتصاص الجزء
 التمس لي العذر ليس لدي خبرة بااوامر

PHP كود :

Regex