Rubrik: Variablen/Strings · String-Operationen | VB-Versionen: VB6 | 24.03.06 |
Führende Nullen aus einem numerischen String entfernen Dieser Tipp zeigt, wie man führende Nullen aus einem numerischen String entfernen kann. | ||
Autor: Dieter Otter | Bewertung: | Views: 42.953 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Wie würden Sie aus einem numerischen String alle evtl. vorhandenen führenden Nullen entfernen?
Eine Möglichkeit wäre mittels Abfrage des ersten Zeichens innerhalb einer Schleife:
Dim sNumber As String sNumber = "0012345" While Left$(sNumber, 1) = "0" sNumber = Mid$(sNumber, 2) Wend MsgBox sNumber
Es geht aber auch einfacher - und zwar mit Hilfe der Format-Funktion von VB!
Hierzu braucht man lediglich als Format-String die Raute (#) angeben.
Beispiel:
Dim sNumber As String sNumber = "0012345" ' führende Nullen entfernen sNumber = Format$(sNumber, "#") MsgBox sNumber