Question

How to replace all ‘0’ int a number with specific digit in VB.NET

Answer 1

Imports System

Public Class Test
    Public Shared Function convert_0_To_n__(number As Integer, d As Integer) As Integer
        If (number = 0) Then 
            return 0  
        End If
        
        Dim digit As Integer = number Mod 10
        
        If (digit = 0) Then
            digit = d  
        End If  
        
        return convert_0_To_n__(Int(number / 10), d) * 10 + digit
    End Function
    
    Public Shared Function convert_0_To_n(number As Integer, d As Integer) As Integer
        If (number = 0) Then 
            return d
        Else
            return convert_0_To_n__(number, d)
        End If
    End Function 
    
    Public Shared Sub Main()
        Dim number As Integer = 1080030
 
        Console.Write(convert_0_To_n(number, 7))
    End Sub
End Class


' run:
' 
' 1787737

 

70+ SQL courses for beginners and professionals