Question

How to remove leading zeros from a string in VB.NET

Answer 1

Imports System
Imports System.Text.RegularExpressions

Public Class RemoveLeadingZerosFromString_VB_NET
    Public Shared Sub Main(ByVal args As String())
        Dim str As String = "0003429865.9301"
		
        str = Regex.Replace(str, "^0+(?!$)", "")
		
        Console.WriteLine(str)
    End Sub
End Class


' run:
'
' 3429865.9301
'

 

70+ SQL courses for beginners and professionals

Answer 2

Imports System

Public Class RemoveLeadingZerosFromString_VB_NET
    Public Shared Function removeLeadingZeroes(ByVal str As String) As String
        Dim index As Integer = 0

        While index < str.Length AndAlso str(index) = "0"c
            index += 1
        End While

        Return str.Substring(index)
    End Function

    Public Shared Sub Main(ByVal args As String())
        Dim str As String = "0003429865.9301"
		
        str = removeLeadingZeroes(str)
		
        Console.WriteLine(str)
    End Sub
End Class



' run:
'
' 3429865.9301
'

 

70+ SQL courses for beginners and professionals