Imports System
Public Class Test
Public Shared Sub Main()
Console.WriteLine(ZeroPad("01234",10))
Console.WriteLine(ZeroPad("5678", 6))
Console.WriteLine(ZeroPad("Hello World", 20))
End Sub
Friend Shared Function ZeroPad(ByVal Number As String, ByVal ToLength As Integer)
Dim newValue As Integer
If Int32.TryParse(Number, newValue) Then
Return newValue.ToString(new String("0", ToLength))
Else
Return Number
End If
End Function
End Class
SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKCQlDb25zb2xlLldyaXRlTGluZShaZXJvUGFkKCIwMTIzNCIsMTApKQoJCUNvbnNvbGUuV3JpdGVMaW5lKFplcm9QYWQoIjU2NzgiLCA2KSkKCQlDb25zb2xlLldyaXRlTGluZShaZXJvUGFkKCJIZWxsbyBXb3JsZCIsIDIwKSkKCUVuZCBTdWIKCQoJRnJpZW5kIFNoYXJlZCBGdW5jdGlvbiBaZXJvUGFkKEJ5VmFsIE51bWJlciBBcyBTdHJpbmcsIEJ5VmFsIFRvTGVuZ3RoIEFzIEludGVnZXIpCgkJRGltIG5ld1ZhbHVlIEFzIEludGVnZXIKCQkKCQlJZiBJbnQzMi5UcnlQYXJzZShOdW1iZXIsIG5ld1ZhbHVlKSBUaGVuCgkJICAgIFJldHVybiBuZXdWYWx1ZS5Ub1N0cmluZyhuZXcgU3RyaW5nKCIwIiwgVG9MZW5ndGgpKQoJCUVsc2UKCQkJUmV0dXJuIE51bWJlcgoJCUVuZCBJZgoJRW5kIEZ1bmN0aW9uCkVuZCBDbGFzcw==