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
(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_
فالكود يلغي جميع الارقام بما فيها اللي فالنص مع الحروف نحل المشكله دي ازاي بعون الله