Question

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

Answer 1

Imports System
Imports System.Text

Class Program
    Private Shared Function RemoveNonASCII(ByVal input As String) As String
        Dim filtered As StringBuilder = New StringBuilder()

        For Each ch As Char In input
			If Convert.ToUInt32(ch) <= 127 Then
                filtered.Append(ch)
            End If
        Next

        Return filtered.ToString()
    End Function

    Public Shared Sub Main()
        Dim input As String = "©€ABC£µ¥xyz!® 123 こんにちは"
        Dim filtered As String = RemoveNonASCII(input)
	
        Console.WriteLine("Filtered string: " & filtered)
    End Sub
End Class
	

' run:
'
' Filtered string: ABCxyz! 123 
'

 

70+ SQL courses for beginners and professionals

Answer 2

Imports System
Imports System.Text.RegularExpressions

Class Program
    Public Shared Sub Main()
        Dim input As String = "©€ABC£µ¥xyz!® 123 こんにちは"
        Dim filtered As String = Regex.Replace(input, "[^\u0000-\u007F]+", String.Empty)
		
        Console.WriteLine("Filtered string: " & filtered)
    End Sub
End Class

	

' run:
'
' Filtered string: ABCxyz! 123 
'

 

70+ SQL courses for beginners and professionals