منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] ما هي أسرع طريقة وأضمنها لحذف كل شيء من النص باستثناء الحروف العربية؟ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=35968)

ما هي أسرع طريقة وأضمنها لحذف كل شيء من النص باستثناء الحروف العربية؟ - السندبااد - 02-08-20

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

تقبل الله طاعتكم وكل عام وأنتم بخير، وبعد:
ما هي أسرع طريقة وأضمنها لحذف كل شيء من النص باستثناء الحروف العربية؟
مثلاً في الصورة التالية يتخلل سورة الإخلاص أرقام وأقواس ورموز وأحرف أجنبية، أريد كود يقوم بحذف كل شيء والإبقاء على النص العربي فقط:
[attachment=25344]
لو أمكن من خلال Regex أو أي طريقة أخرى، المهم أن تكون الطريقة سريعة ومضمونه، والسورس بالمرفقات، ولكم جزيل الشكر


RE: ما هي أسرع طريقة وأضمنها لحذف كل شيء من النص باستثناء الحروف العربية؟ - Anas Mahmoud - 02-08-20

كود :
        Me.TextBox2.Text = Regex.Replace(Me.TextBox1.Text, "[^\u0600-\u06ff ]", "")

https://stackoverflow.com/questions/25035367/how-to-validate-that-a-string-is-just-arabic-and-numbers/25035626

RE: ما هي أسرع طريقة وأضمنها لحذف كل شيء من النص باستثناء الحروف العربية؟ - السندبااد - 02-08-20

(02-08-20, 02:16 PM)Anas Mahmoud كتب :
كود :
        Me.TextBox2.Text = Regex.Replace(Me.TextBox1.Text, "[^\u0600-\u06ff ]", "")

https://stackoverflow.com/questions/25035367/how-to-validate-that-a-string-is-just-arabic-and-numbers/25035626

جزاك الله ووالديك الفردوس الأعلى
هذا هو المطلوب والكود يفي بالغرض


RE: ما هي أسرع طريقة وأضمنها لحذف كل شيء من النص باستثناء الحروف العربية؟ - Anas Mahmoud - 02-08-20

(02-08-20, 02:23 PM)السندبااد كتب :
(02-08-20, 02:16 PM)Anas Mahmoud كتب :
كود :
        Me.TextBox2.Text = Regex.Replace(Me.TextBox1.Text, "[^\u0600-\u06ff ]", "")

https://stackoverflow.com/questions/25035367/how-to-validate-that-a-string-is-just-arabic-and-numbers/25035626

جزاك الله ووالديك الفردوس الأعلى
هذا هو المطلوب والكود يفي بالغرض

وجزاك بمثله اخي الكريم

اظن انه من  الجيد ايضا بعد ذلك استبدال المسافات المكررة بواحدة فقط


كود :
        Me.TextBox2.Text = Regex.Replace(Me.TextBox2.Text, "\s+", " ")