Question

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

Answer 1

Imports System.Text.RegularExpressions
 
Public Class Program
    Public Shared Function move_special_characters_to_beginning(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 pecial_characters + chars
    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_beginning(s))
    End Sub
End Class
 
 
' run:
' 
' ++$.&%*()  # <>/ ..cvbnetjavaphpcpython373
'

 

70+ SQL courses for beginners and professionals

Answer 2

Imports System

Module Program
    Function MoveSpecialCharactersToBeginning(s As String) As String
        Dim specials As String = ""
        Dim chars As String = ""

        For Each ch As Char In s
            If Char.IsLetterOrDigit(ch) Or Char.IsWhiteSpace(ch) Then
                chars &= ch
            Else
                specials &= ch
            End If
        Next

        Return specials & chars
    End Function

    Sub Main()
        Dim s As String = "c++20$c&^java*(rust) php <>/python 3.14.2"
	
        Console.WriteLine(MoveSpecialCharactersToBeginning(s))
    End Sub
End Module


'
' run:
'
' ++$&^*()<>/..c20cjavarust php python 3142
'

 

70+ SQL courses for beginners and professionals