tausender trennzeichen

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von strom.

    tausender trennzeichen

    hallo, ich würde gerne bei größeren zahlen ein tausender trennzeichen mit punkt erstellen. leider funktioniert das nicht so wie ich mir das gedacht habe.

    also folgendermaßen:

    100 -> 100
    1000 -> 1.000
    10000 -> 10.000
    100000 -> 100.000
    1000000 -> 1.00.000
    usw.

    habe bisher das hier:

    VB.NET-Quellcode

    1. Dim ersatz() As String
    2. Dim lastw As String = Nothing
    3. Dim neutext As String = Nothing
    4. Dim GroßeZahl As String = txt_hp.Text
    5. Dim ZahlString As String = String.Format("{0:N}", GroßeZahl)
    7. If IsNumeric(GroßeZahl) Then
    8. If ZahlString.Contains(",") Then
    9. ersatz = Split(ZahlString, ",")
    10. For i = 0 To ersatz.Length - 2
    11. neutext = neutext & ersatz(i) & "."
    12. lastw = ersatz(i + 1)
    13. Next
    14. txt_hp.Text = neutext & lastw
    15. End If
    16. End If

    VB.NET-Quellcode

    1. Dim txt As String = String.Format("{0:n}", 1000000000)
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Die Antwort hat nicht zur fehlerbehebung beigetragen. Bin selbst auf die Lösung gekommen.

    da string.format nur bei zahlen funktioniert musste ich es erst in z.b. eine double umwandeln.

    hier die lösung:

    VB.NET-Quellcode

    1. Dim ersatz() As String
    2. Dim lastw As String = Nothing
    3. Dim neutext As String = Nothing
    4. Dim GroßeZahl As String = txt_hp.Text
    5. Dim grz As Double
    8. If IsNumeric(GroßeZahl) Then
    9. grz = CDbl(GroßeZahl)
    10. Dim ZahlString As String = String.Format("{0:n}", grz)
    11. ersatz = Split(ZahlString, ",")
    12. txt_hp.Text = ersatz(0)
    13. Else
    14. If GroßeZahl.Contains(",") Then
    15. ersatz = Split(GroßeZahl, ",")
    16. For i = 0 To ersatz.Length - 2
    17. neutext = neutext & ersatz(i) & "."
    18. lastw = ersatz(i + 1)
    19. Next
    20. txt_hp.Text = neutext & lastw
    21. End If
    22. End If

Facebook
Telefonspende