[اليوم السابع]

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

[asemshahen5]

PHP كود :

   Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles 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(Nothing, System.Text.RegularExpressions.Regex.Split(expr, "[0-9_]"))
    End Function 


[اليوم السابع]

(23-12-19, 07:29 PM)asemshahen5 كتب :

PHP كود :

   Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles 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(Nothing, System.Text.RegularExpressions.Regex.Split(expr, "[0-9_]"))
    End Function 


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

[اليوم السابع]

(23-12-19, 07:53 PM)اليوم السابع كتب :

(23-12-19, 07:29 PM)asemshahen5 كتب :

PHP كود :

   Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles 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(Nothing, System.Text.RegularExpressions.Regex.Split(expr, "[0-9_]"))
    End Function 


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

?