[طالب برمجة]

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)