Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!Code-Beispiel
Funktion zur Umwandlung von Zahlen in Strings, mit fester Stellenanzahl, Ausrichtung links-/rechtsbündig und verschiedenen Optionen
| Lizenz: | Erster Autor: | Letzte Bearbeitung: |
| MIT-Lizenz |  Sebastian |  07.06.2019 |
/'
Code-Beispiel fuer die Ausgabe von Integern als String mit fester Breite,
mit verschiedenen Optionen.
Copyright (c) 2019 Sebastian
Permission is hereby granted, free of charge, to any person obtaining a copy
of this software and associated documentation files (the "Software"), to deal
in the Software without restriction, including without limitation the rights
to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
copies of the Software, and to permit persons to whom the Software is furnished
to do so, subject to the following conditions:
The above copyright notice and this permission notice shall be included in all
copies or substantial portions of the Software.
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
DEALINGS IN THE SOFTWARE.
'/
' Deklarationen:
Enum Alignment ' Textausrichtung
AlignLeft ' Linksbuendig
AlignRight ' Rechtsbuendig
End Enum
Enum TooManyDigitsBehavior ' Was tun, wenn eine Zahl mehr Stellen hat als vorgesehen?
ShowAllDigits ' Alle Stellen zeigen, auch wenn der String dadurch breiter wird als gewollt
ShowError ' Statt der Zahlen Rauten (#) zeigen, um darauf hinzuweisen,
' dass der Wert zu viele Stellen hat, um dargestellt zu werden.
End Enum
' Zahl (value) mit einer festen Anzahl Stellen als String zurueckgeben.
' Parameter:
' - value: Die betreffende Zahl.
' - numDigits: Wie viele Stellen soll die Rueckgabe haben? (1 bis 11)
' - align: Entweder Alignment.AlignLeft (linksbuendig) or Alignment.AlignRight (rechtsbuendig).
' Standardmaessig rechtsbuendig.
' - padChar: Mit welchem Zeichen auffuellen, falls zu wenige Stellen?
' Standardmaessig Leerzeichen.
' - whatToDoIfTooManyDigits: Wenn die Zahl mehr Stellen hat als vorgesehen (numDigits) -
' was tun? Moegliche Optionen:
' - TooManyDigitsBehavior.ShowAllDigits: Zahl trotzdem vollstaendig anzeigen.
' Sprengt ggf. die Tabelle oder so.
' - TooManyDigitsBehavior.ShowError: Anstelle der zu langen Zahl nur Rauten
' anzuzeigen, um darauf hinzuweisen, dass die Zahl zu lang ist.
Declare Function getPaddedNumber( ByVal value As Integer, ByVal numDigits As Integer, _
ByVal align As Alignment = Alignment.AlignRight, ByVal padChar As String = " ", _
ByVal whatToDoIfTooManyDigits As TooManyDigitsBehavior = TooManyDigitsBehavior.ShowAllDigits ) _
As String
' Hauptprogramm:
Cls
' Beispielfaelle fuer die Funktion "getPaddedNumber":
Print Chr(34) & getPaddedNumber( 1, 5, Alignment.AlignLeft, " " ) & Chr(34)
Print Chr(34) & getPaddedNumber( 1, 5, Alignment.AlignRight, " " ) & Chr(34)
Print 'Leerzeile
Print "[" & getPaddedNumber( 1, 5, Alignment.AlignLeft, "_" ) & "]"
Print "[" & getPaddedNumber( 1, 5, Alignment.AlignRight, "_" ) & "]"
Print 'Leerzeile
Print Chr(34) & getPaddedNumber( -123, 9, Alignment.AlignLeft, " " ) & Chr(34)
Print Chr(34) & getPaddedNumber( -123, 9, Alignment.AlignRight, " " ) & Chr(34)
Print 'Leerzeile
Print Chr(34) & getPaddedNumber( -123, 1, Alignment.AlignLeft, " ", TooManyDigitsBehavior.ShowAllDigits) & Chr(34)
Print Chr(34) & getPaddedNumber( -123, 1, Alignment.AlignRight, " ", TooManyDigitsBehavior.ShowAllDigits ) & Chr(34)
Print 'Leerzeile
Print Chr(34) & getPaddedNumber( -123, 1, Alignment.AlignLeft, " ", TooManyDigitsBehavior.ShowError ) & Chr(34)
Print Chr(34) & getPaddedNumber( -123, 1, Alignment.AlignRight, " ", TooManyDigitsBehavior.ShowError ) & Chr(34)
Print 'Leerzeile
Print Chr(34) & getPaddedNumber( -123, 3, Alignment.AlignLeft, " ", TooManyDigitsBehavior.ShowError ) & Chr(34)
Print Chr(34) & getPaddedNumber( -123, 3, Alignment.AlignRight, " ", TooManyDigitsBehavior.ShowError ) & Chr(34)
Print 'Leerzeile
Print Chr(34) & getPaddedNumber( -123, 4, Alignment.AlignLeft, " ", TooManyDigitsBehavior.ShowError ) & Chr(34)
Print Chr(34) & getPaddedNumber( -123, 4, Alignment.AlignRight, " ", TooManyDigitsBehavior.ShowError ) & Chr(34)
GetKey
End 0
' Ende des Hauptprogramms. Ab hier Unterprogramme.
Function getPaddedNumber( ByVal value As Integer, ByVal numDigits As Integer, _
ByVal align As Alignment = Alignment.AlignRight, _
ByVal padChar As String = " ", ByVal whatToDoIfTooManyDigits As _
TooManyDigitsBehavior = TooManyDigitsBehavior.ShowAllDigits ) _
As String
' Kleinstmoegliche Anzahl Stellen: 1 (Beispielwert: 0)
' Groesstmoegliche Anzahl Stellen: 11 (Beispielwert: -2147483648)
If( ( numDigits < 1 ) Or ( numDigits > 9 ) ) Then
Print "getPaddedNumber: Number of digits out of range 1 ... 11: " & numDigits
Return "Error"
End If
' Der Parameter "padChar" gibt an, mit welchem Zeichen aufgefuellt werden soll, falls
' die Zahl von sich aus zu wenig Stellen hat. "padChar" soll nur ein einziges Zeichen,
' z. B. ein Leerzeichen sein:
If( Len( padChar ) <> 1 ) Then
Print "getPaddedNumber: Expecting a single padding character instead of: " & _
chr(34) & padChar & chr(34)
Return "Error"
End If
' Zahl "value" in einen String verwandeln. Enthaelt ggf. an erster Stelle ein Minus.
' Trim entfernt Leerzeichen am Anfang und Ende des Strings.
Dim valueAsString As String = Trim( Str( value ) )
' Wenn die Zahl von sich aus die gewuenschte Anzahl Stellen hat, dann einfach so
' zurueckgeben, wie sie ist.
Dim numDigitsOfInputValue As Integer = Len( valueAsString )
If( numDigitsOfInputValue = numDigits ) Then
Return valueAsString
End If
' Falls die Zahl ZU VIELE Stellen hat, kann man sich ueber den Parameter
' whatToDoIfTooManyDigits aussuchen, was dann passieren soll.
If( numDigitsOfInputValue > numDigits ) Then
If( whatToDoIfTooManyDigits = TooManyDigitsBehavior.ShowError ) Then
' Statt der Zahl so viele Rauten anzeigen, wie Stellen vorhanden sind.
' Das soll dem User zeigen, dass die Zahl zu lang ist, um in der
' Tabelle o.Ä. dargestellt zu werden.
Return String( numDigits, "#" )
Else
Return valueAsString
End If
End If
' Wenn wir hier ankommen, hat die Zahl zu wenig Stellen. D.h. wir muessen entweder
' links oder rechts Zeichen anhaengen (abhaengig vom Parameter align, also der
' Ausrichtung).
Dim result As String
result = valueAsString
Do
If( align = Alignment.AlignLeft ) Then
' Die Zahl soll linksbuendig sein. D.h. die zusaetzlichen Zeichen werden
' rechts angehaengt.
result = result + padChar
Else
' Die Zahl soll rechtsbuendig sein. D.h. die zusaetzlichen Zeichen werden
' links vorangestellt.
result = padChar + result
End If
Loop Until Len( result ) >= numDigits
Return result
End Function
| Zusätzliche Informationen und Funktionen | |||||||
|---|---|---|---|---|---|---|---|
|
|||||||
Bearbeiten
Versionen