منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

مثال

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

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

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

(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 

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

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

developermedo111

معاند الحظ

developermedo111

ابو ليلى

DR.YASER

developermedo111