Code extracting numbers from texts

كود إستخراج الأرقام من النصوص 

VB.Net :

Code extracting numbers from texts

كود إستخراج الرقم من سلسلة ارقام ونصوص

Dim input As String = "sdff45hg589>@#DF456&<jk778P&&FHJ75" Dim output As String = New String((From c As Char In input Select c Where Char.IsDigit(c)).ToArray()) MsgBox(output) 'Display the output ''--Other Code : Dim match = Regex.Replace( "sdff45hg589>@#DF456&<jk778P&&FHJ75", "\D", "") MsgBox(output)

وستكون المخرجات كالتالي : 14558945677875

كود إستخراج النص من سلسلة ارقام ونصوص

Dim input As String = "sdff45hg589>@#DF456&<jk778P&&FHJ75" Dim output As String = New String((From c As Char In input Select c Where Char.IsLetter(c)).ToArray()) MsgBox(output) 'Display the output ''--Other Code : Dim match = Regex.Replace( "sdff45hg589>@#DF456&<jk778P&&FHJ75", "\D", "") MsgBox(output)

وستكون المخرجات كالتالي : sdffhgDFjkPFHJ