17-02-18, 12:23 PM
رقم الهاتف أحيانا يكون بكلمة (لرقم) وأحيانا (من رقم) مسألة اقتناص رقم الهاتف والكود ليست دقيقة دائما فقد تتغير الكلمات والمسافات والأقواس
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 tel As String = Regex.Match(r(4), "(?<=(من رقم|لرقم)\s?\(?\s?)\d{10,}").Value
Dim code As String = Regex.Match(r(4), "(?<=(رقم العملية)\s?\(?\s?)\d{10,}").Value
Dim lst As New List(Of String)(r)
lst.Add(tel)
lst.Add(code)
Me.DataGridView1.Rows.Add(lst.ToArray)
Next

