Question

How to move all special characters to the end of a string in VB.NET

Answer 1

Imports System.Text.RegularExpressions

Public Class Test
    Public Shared Function move_special_characters_to_end(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 = ""
        Dim pecial_characters 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
            Else
                pecial_characters = pecial_characters + ch
            End If
        Next
        return chars + pecial_characters
    End Function 
    
    Public Shared Sub Main()
        Dim s As String = "c++$vb.net&%java*() php c# <>/python 3.7.3"
         
        Console.WriteLine(move_special_characters_to_end(s))
    End Sub
End Class


' run:
' 
' cvbnetjava php c python 373++$.&%*()#<>/..
'

 

70+ SQL courses for beginners and professionals

Answer 2

Imports System.Text.RegularExpressions

Public Class Test
    Public Shared Function move_special_characters_to_end(s as String) As String 
        Dim len As Integer = s.Length
 
        Dim regx As Regex = new Regex("[a-zA-Z0-9\\s+]")

        Dim chars As String = ""
        Dim pecial_characters 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
            Else
                pecial_characters = pecial_characters + ch
            End If
        Next
        return chars + pecial_characters
    End Function 
    
    Public Shared Sub Main()
        Dim s As String = "c++$vb.net&%java*() php c# <>/python 3.7.3"
         
        Console.WriteLine(move_special_characters_to_end(s))
    End Sub
End Class


' run:
' 
' c++vbnetjavaphpcpython373$.&%*()  # <>/ ..
'

 

70+ SQL courses for beginners and professionals