16-02-18, 08:47 PM
(16-02-18, 05:11 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(",")
Me.DataGridView1.Rows.Add(r)
Next
نعم هذا هو المطلوب وفقك اللّة
اريد بدون ان اكثر عليك حل المشكلة الاخري وهي باستخلاص رقم التليفون وكود العملية من اللاين الاتي في حالة تم استلام مبلغ
حيث يضع كود العملية بالعمود السادس والرقم بالعمود السابع بنفس صف العملية الخاص بنفس اللا ين ملحوظة لايوجد اقواس في الرسالة الحقيقية ت وضعها للاشارة للمطلوب فقط
كود :
تم استلام مبلغ 5.0 جنيه من رقم( 0103039075)؛ تاريخ العملية 08-12-17 15:34 رقم العملية( 000059949500 ). لو سحبت الفلوس هتاخد 5.0 دقايق و رسايل هدية ببلاش. اطلب #102*9* (لعملاء الكارت والكنترول فقط)
