Predmet:Re: određivanje razmaka između podataka
ja sam se dugo zanimao sa ovakav nacin printajna evo ti od mene jedo resenje.
PreuzmiIzvorni kôd (Visual Basic):Public Function AlignLeftString(N, s)
If Len(s) >= N Then
AlignLeftString = Mid$(s, 1, N)
Else
AlignLeftString = s & String(N - Len(s), " ")
End If
End Function
Public Function AlignRightString(N, s)
If Len(s) >= N Then
AlignRightString = Mid$(s, 1, N)
Else
AlignRightString = String(N - Len(s), " ") & s
End If
End Function
Public Function AlignCenterString(N As Integer, s As String)
Dim Razlika As Integer
Razlika = N - Len(s)
If Razlika > 0 Then
AlignCenterString = String(Int(Razlika / 2), " ") & s & String(Int(Razlika / 2), " ")
Else
AlignCenterString = Mid$(s, 1, N)
End If
End Function