Question

How to remove the letters (all non-numeric) from a string in VB.NET

Answer 1

Imports System
Imports System.Text.RegularExpressions
  
Public Class Program
    Public Shared Function removeNonNumeric(ByVal s As String) As String
        Return Regex.Replace(s, "[^0-9]", "")
    End Function
  
    Public Shared Sub Main()
        Dim s As String = "12a1-vb0/R@a9f#4K$$cC3K^htPam8vlQWhJ"
              
        s = removeNonNumeric(s)
              
        Console.Write(s)
    End Sub
End Class
  
  
  
  
  
' run:
'
' 12109438
'

 

70+ SQL courses for beginners and professionals

Answer 2

Imports System
Imports System.Linq
 
Public Class Program
    Public Shared Function removeNonNumeric(ByVal s As String) As String
        Return New String(s.Where(Function(c) Char.IsDigit(c)).ToArray())
    End Function
 
    Public Shared Sub Main()
        Dim s As String = "12a1-vb0/R@a9f#4K$$cC3K^htPam8vlQWhJ"
             
        s = removeNonNumeric(s)
             
        Console.Write(s)
    End Sub
End Class
 
 
 
 
 
' run:
'
' 12109438
'

 

70+ SQL courses for beginners and professionals