Question

How to remove all non-alphanumeric characters from a string in VB.NET

Answer 1

Imports System
Imports System.Text.RegularExpressions

Public Class removeAllNonAlphanumericCharacters_VB
    Public Shared Function removeAllNonAlphanumericCharacters(ByVal str As String) As String
        Return Regex.Replace(str, "[^a-zA-Z0-9]", "")
    End Function

    Public Shared Sub Main()
		Dim str As String = "-vbnet-  >>-progr{@()}amm.. #$ing-"
		
        str = removeAllNonAlphanumericCharacters(str)
		
        Console.WriteLine(str)
    End Sub
End Class



' run:
'
' vbnetprogramming
'

 

70+ SQL courses for beginners and professionals

Answer 2

Imports System

Public Class removeAllNonAlphanumericCharacters_VB
    Public Shared Function removeAllNonAlphanumericCharacters(ByVal str As String) As String
        Dim arr As Char() = str.ToCharArray()
		
        arr = Array.FindAll(Of Char)(arr, (Function(ch) (Char.IsLetterOrDigit(ch))))
			
        Return New String(arr)
    End Function

	Public Shared Sub Main()
			Dim str As String = "-vbnet-  >>-progr{@()}amm.. #$ing-"
			
        str = removeAllNonAlphanumericCharacters(str)
			
        Console.WriteLine(str)
    End Sub
End Class



' run:
'
' vbnetprogramming
'

 

70+ SQL courses for beginners and professionals

Answer 3

Imports System
Imports System.Linq

Public Class removeAllNonAlphanumericCharacters_VB
    Public Shared Function removeAllNonAlphanumericCharacters(ByVal str As String) As String
		Return New String(str.Where(Function(c) Char.IsLetterOrDigit(c)).ToArray())
    End Function

	Public Shared Sub Main()
			Dim str As String = "-vbnet-  >>-progr{@()}amm.. #$ing-"
			
        str = removeAllNonAlphanumericCharacters(str)
			
        Console.WriteLine(str)
    End Sub
End Class



' run:
'
' vbnetprogramming
'

 

70+ SQL courses for beginners and professionals