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

(16-02-18, 09:39 PM)طالب برمجة كتب :

PHP كود :

Dim txt As String = "تم استلام مبلغ 5.0 جنيه من رقم( 0103039075)؛ تاريخ العملية ‎‎08-12-17 15:34 رقم العملية( 000059949500 ). لو سحبت الفلوس هتاخد 5.0 دقايق و رسايل هدية ببلاش. اطلب #102*9* (لعملاء الكارت والكنترول فقط)"

Dim mmm As MatchCollection = Regex.Matches(txt, "\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

MsgBox("Tel: " & tel)
MsgBox("Code: " & code) 


بشكرك الف شكر علي تعبك ومجهودك معايا بس هتقل عليك بملاحظة


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

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

كود :

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(",")
   Me.DataGridView1.Rows.Add(r)
Next