Italian B4J : formattare una stringa

Sub PaddingString(dato As String, padval As String, ds As Boolean, lungo As Int) As String
    Dim i As Int
    Dim str As String
    If dato = "" Or dato.Length >= lungo Then Return dato
    str = dato
    For i = 1 To lungo - dato.Length
        If ds = False Then
            str = padval & str
        Else
            str = str & padval
        End If
    Next
    Return str   
End Sub

Sub FixString(Originale As String, Limit As Int) As String
    If Originale.Trim="" Then
        Return ""
    Else
        Dim Add As String = "          "
        Originale=Originale & Add & Add & Add & Add & Add & Add & Add & Add
        Return Originale.SubString2(0,Limit)
    End If
End Sub

Sub FixString(Originale As String, Limit As Int) As String
    If Originale.Trim="" Then
        Return ""
    Else
        Originale=Originale & "                                                  "
        Return Originale.SubString2(0,Limit)
    End If
End Sub

Sub FixString(Originale As String, padval As String, Limit As Int, ds As Boolean) As String
    If Originale.Trim="" Then
        Return ""
    Else
        Dim Add As String = "          ".Replace(" ",padval)
        Add=Add & Add & Add & Add & Add & Add & Add & Add
        If ds Then
            Originale=Originale & Add
            Return Originale.SubString2(0,Limit)
        Else
            Originale=Add  & Originale
            Return Originale.SubString(Originale.Length-Limit)
        End If
    End If
End Sub

Sub FixString(Originale As String, padval As String, Limit As Int, ds As Boolean) As String
    If Originale.Trim="" Then
        Return ""
    Else
        If ds Then 
            Originale=Originale & "                                                  ".Replace(" ",padval)
            Return Originale.SubString2(0,Limit)
        Else
            Originale="                                                  ".Replace(" ",padval) & Originale
            Return Originale.SubString(Originale.Length-Limit)
        End If
    End If
End Sub

Sub FixString(Originale As String, padval As String, Limit As Int, ds As Boolean) As String
    Dim I As Int = 1
    If ds Then i=0
    If Originale.Trim="" Then
        Return ""
    Else
        Originale=Originale.SubString(I*Originale.Length) & "                                                  ".Replace(" ",padval) & Originale.SubString((1-I)*Originale.Length)
        Return Originale.SubString2((Originale.Length-Limit)*I,Limit+(Originale.Length-Limit)*I)
    End If
End Sub