+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ارجو المساعدة (/showthread.php?tid=34860)
ارجو المساعدة - developermedo111 - 20-05-20
السلام عليكم كيف استخرج من نص كبير مثلا استخرج منه البريد ورقم الهاتف فقط
مثال
: السلام عليكم مثال مثال مثال مثال test@gmail.com مثال مثال مثال مثال مثال 01000000 lمثال test@hotmail.com مثال مثال مثال
اريد استخرج من النص هذا مثلا رقم الهاتف والبريد فقط وحذف النص
RE: ارجو المساعدة - معاند الحظ - 20-05-20
ابحث في جوجل عن التالي
regex match email
regex match phone number
وستجد العديد من الامثلة
RE: ارجو المساعدة - developermedo111 - 21-05-20
(20-05-20, 05:41 PM)معاند الحظ كتب : ابحث في جوجل عن التالي
regex match email
regex match phone number
وستجد العديد من الامثلة
للاسف كل الامثله بيقول لك اذا الاميل موجود في textbox ام لا انا اريد يمسح النص ويفضل الاميل فقط اذا معاك كود تساعدني بيه اكون مشكور لك
RE: ارجو المساعدة - ابو ليلى - 21-05-20
السلام عليكم و رحمة الله و بركاته
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 - 21-05-20
استخراج البريد الاليكترونى فقط من ملف وورد أو تكست فايل
RE: ارجو المساعدة - developermedo111 - 21-05-20
ولله كتر خيركو شباب شكرا جدا اقسم بالله مش عارف اشكركم ازاي