Question

How to add N zeros to an empty string in VB.NET

Answer 1

Imports System

Public Class Program
    Public Shared Function addToEmptyStr(ByVal pad As String, ByVal len As Integer) As String
        Dim str As String = ""

        While str.Length < len
            str += pad
        End While

        Return str
    End Function

    Public Shared Sub Main(ByVal args As String())
        Dim n As Integer = 4
        
        Dim empty_string As String = addToEmptyStr("0", n)
        
        Console.WriteLine(empty_string)
    End Sub
End Class





' run:
'
' 0000
'

 

70+ SQL courses for beginners and professionals

Answer 2

Imports System

Public Class Program
    Public Shared Sub Main(ByVal args As String())
        Dim n As Integer = 4
        Dim empty_string As String = ""
        
        empty_string = empty_string.PadLeft(n, "0"c)
        
        Console.WriteLine(empty_string)
    End Sub
End Class





' run:
'
' 0000
'

 

70+ SQL courses for beginners and professionals