[developermedo111]

السلام عليكم كيف استخرج من نص كبير مثلا استخرج منه البريد ورقم الهاتف فقط


مثال 

: السلام عليكم مثال  مثال  مثال مثال test@gmail.com مثال مثال مثال مثال مثال 01000000 lمثال  test@hotmail.com مثال مثال مثال 

اريد استخرج من النص هذا مثلا رقم الهاتف والبريد فقط وحذف النص

[معاند الحظ]

ابحث في جوجل عن التالي
regex match email
regex match phone number
وستجد العديد من الامثلة

[developermedo111]

(20-05-20, 05:41 PM)معاند الحظ كتب : ابحث في جوجل عن التالي
regex match email
regex match phone number
وستجد العديد من الامثلة

للاسف كل الامثله بيقول لك اذا الاميل موجود في textbox ام لا انا اريد يمسح النص ويفضل الاميل فقط اذا معاك كود تساعدني بيه اكون مشكور لك

[ابو ليلى]

السلام عليكم و رحمة الله و بركاته

PHP كود :

Public Sub emas(ByVal text As String)
        Const MatchEmailPattern As String = "(([\w-]+\.)+[\w-]+|([a-zA-Z]{1}|[\w-]{2,}))@" & "((([0-1]?[0-9]{1,2}|25[0-5]|2[0-4][0-9])\.([0-1]?[0-9]{1,2}|25[0-5]|2[0-4][0-9])\." & "([0-1]?[0-9]{1,2}|25[0-5]|2[0-4][0-9])\.([0-1]?[0-9]{1,2}|25[0-5]|2[0-4][0-9])){1}|" & "([a-zA-Z]+[\w-]+\.)+[a-zA-Z]{2,4})"
        Dim rx As Regex = New Regex(MatchEmailPattern, RegexOptions.Compiled Or RegexOptions.IgnoreCase)
        Dim matches As MatchCollection = rx.Matches(text)
        Dim noOfMatches As Integer = matches.Count

        For Each match As Match In matches
            MsgBox(match.Value.ToString())
        Next
    End Sub 


[DR.YASER]

استخراج البريد الاليكترونى فقط من ملف وورد أو تكست فايل

[developermedo111]

ولله كتر خيركو شباب شكرا جدا اقسم بالله مش عارف اشكركم ازاي