Imports System.Text.RegularExpressions
Public Class Test
Public Shared Function extract_numbers(s as String) As String
Dim len As Integer = s.Length
Dim regx As Regex = new Regex("[0-9]")
Dim characters As String = ""
For i As Integer = 0 To len - 1
Dim ch As Char = s(i)
If regx.IsMatch(ch.ToString()) Then
characters = characters + ch
End If
Next
return characters
End Function
Public Shared Sub Main()
Dim s As String = "c++14$vb.net &%java*() php c# <>/python 3.7.3"
Console.WriteLine(extract_numbers(s))
End Sub
End Class
' run:
'
' 14373
'