منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
سؤال بسيط بخصوص القص - نسخة قابلة للطباعة

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



سؤال بسيط بخصوص القص - اليوم السابع - 23-12-19

عندي بتكست بوكس الكلام ده 
abcdex_123456_
عاوز كود اضعه في زر بحيث انه يستخرج الحروف فقط في تكست بوكس اخر ملحوظه عدد الحروف ليس ثابت 
جربت طرق كثيره ولم تنجح معي


RE: سؤال بسيط بخصوص القص - asemshahen5 - 23-12-19

PHP كود :
   Private Sub Button1_Click_1(sender As ObjectAs EventArgsHandles Button1.Click
        Dim a 
As String
        a 
ExtractNumbers("125abc555dex_123456_")
 
       Txt_UserName.Text = (a)
 
   End Sub
    Function ExtractNumbers
(ByVal expr As String) As String
        Return String
.Join(NothingSystem.Text.RegularExpressions.Regex.Split(expr"[0-9_]"))
 
   End Function 



RE: سؤال بسيط بخصوص القص - اليوم السابع - 23-12-19

(23-12-19, 07:29 PM)asemshahen5 كتب :
PHP كود :
   Private Sub Button1_Click_1(sender As ObjectAs EventArgsHandles Button1.Click
        Dim a 
As String
        a 
ExtractNumbers("125abc555dex_123456_")
 
       Txt_UserName.Text = (a)
 
   End Sub
    Function ExtractNumbers
(ByVal expr As String) As String
        Return String
.Join(NothingSystem.Text.RegularExpressions.Regex.Split(expr"[0-9_]"))
 
   End Function 

الف شكر اخ عاصم ولكن هناك مشكله ان شاء الله بسيطه ان النص يحتوي علي ارقام النص بالظبط كذالك 
z8ZCpEWE6nHi6VzvDGR8yis_525556522289225_
فالكود يلغي جميع الارقام بما فيها اللي فالنص  مع الحروف نحل المشكله دي ازاي بعون الله


RE: سؤال بسيط بخصوص القص - اليوم السابع - 24-12-19

(23-12-19, 07:53 PM)اليوم السابع كتب :
(23-12-19, 07:29 PM)asemshahen5 كتب :
PHP كود :
   Private Sub Button1_Click_1(sender As ObjectAs EventArgsHandles Button1.Click
        Dim a 
As String
        a 
ExtractNumbers("125abc555dex_123456_")
 
       Txt_UserName.Text = (a)
 
   End Sub
    Function ExtractNumbers
(ByVal expr As String) As String
        Return String
.Join(NothingSystem.Text.RegularExpressions.Regex.Split(expr"[0-9_]"))
 
   End Function 

الف شكر اخ عاصم ولكن هناك مشكله ان شاء الله بسيطه ان النص يحتوي علي ارقام النص بالظبط كذالك 
z8ZCpEWE6nHi6VzvDGR8yis_525556522289225_
فالكود يلغي جميع الارقام بما فيها اللي فالنص  مع الحروف نحل المشكله دي ازاي بعون الله

?