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