Welcome to collectivesolver - Programming & Software Q&A. A website you can trust. All programs tested and works. Contact: aviboots(AT)netvision.net.il
Bonsai Boy of New York Bonsai Trees and Accessories

BlueHost Web Hosting

Liquid Web iThemes WordPress Hosting

Ecommerce Software - Best Ecommerce Platform Made for You - Free Trial

DreamHost Web Hosting


Ecommerce Software - Best Ecommerce Platform Made for You - Free Trial

Liquid Web Cloud VPS Hosting

10,939 questions

14,849 answers

573 users

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

2 Answers

0 votes
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++$.&%*()#<>/..
'

 




answered Aug 12 by avibootz
0 votes
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$.&%*()  # <>/ ..
'

 




answered Aug 12 by avibootz
...