VB.NET Function to set Padding

SUBMITTED BY: fairuzzbdy

DATE: June 17, 2016, 8:49 a.m.

FORMAT: Text only

SIZE: 510 Bytes

Raw Download

HITS: 5473

Report

    Public Function setPadding(ByVal code As String, ByVal IntBagi As Integer, ByVal str As String, ByVal strPadding As String) As String
        Dim strRet As String = String.Empty
        Dim jmcode As Integer = code.Length
        Dim intjmloop As Integer = jmcode / IntBagi
        For i As Integer = 2 To intjmloop
            strRet &= strPadding
        Next
        If jmcode = IntBagi Then
            strRet = ""
        End If
        strRet &= str
        Return strRet
    End Function