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