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