Zahl zu Buchstabe

  • VB.NET

Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von diylab.

    Zahl zu Buchstabe

    Hallo, ich habe schon gegoogelt aber leider nichts gefunden. Ich würde gerne ein Zahl zu einem Buchstaben Umwandeln. Nach dem Beispiel:

    Quellcode

    1. 1 A
    2. 2 B
    3. 3 C
    4. 4 D
    5. 5 E
    6. 6 F
    7. 7 G
    8. 8 H
    9. 9 I
    10. 10 J
    11. 11 K
    12. 12 L
    13. 13 M
    14. 14 N
    15. 15 O
    16. 16 P
    17. 17 Q
    18. 18 R
    19. 19 S
    20. 20 T
    21. 21 U
    22. 22 V
    23. 23 W
    24. 24 X
    25. 25 Y
    26. 26 Z
    27. 27 AA
    28. 28 AB
    29. 29 AC
    30. 30 AD
    31. 31 AE
    32. 32 AF
    33. 33 AG
    34. 34 AH
    35. 35 AI
    36. 36 AJ
    37. 37 AK
    38. 38 AL
    39. 39 AM
    40. 40 AN
    41. 41 AO


    Ich danke für jeden Ansatz.
    Meine Projekte Genesis Game Engine | GFX | smartli.me - Der smarte URL shortener

    @Keybladmaster: Wat? Was bringt ihm das? Er will nicht die entsprechenden Zahlen haben, sondern das so wie oben.
    @Andy16823: Leg dir ein Dictionary(Of Integer, String) an und arbeite damit.
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    Ja, aber das ist nicht das Ziel des TEs, denn er will nicht für die entsprechenden ASCII-Codes die Buchstaben, sondern selbst eine Art Wörterbuch anlegen, für 1 ist das A, für 2 das B usw.
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    Keybladmaster schrieb:

    Man kann aber den ASCII Code zum Char/String umwandeln.
    Oder etwa nicht?
    Und weit wann entspricht die Zahl 41 im ASCII Code zwei Zeichen nämlich "AO"?


    Opensource Audio-Bibliothek auf github: KLICK, im Showroom oder auf NuGet.

    Bitte schön, geht bis ins Unendliche (bzw. halt int/long.MaxValue):

    VB.NET-Quellcode

    1. Public Function GetLetterCountString(count As Integer) As String
    2. Dim alphabet As Char() = "ABCDEFGHIJKLMNOPQRSTUVWXYZ".ToCharArray()
    4. Dim sb = New StringBuilder()
    6. Dim a As Integer = count
    7. While a >= alphabet.Length
    8. Dim b As Integer
    9. a = Math.DivRem(a, alphabet.Length, b) - 1
    10. sb.Insert(0, alphabet(b))
    11. End While
    12. sb.Insert(0, alphabet(a))
    14. Return sb.ToString()
    15. End Function

    Originalcode

    C-Quellcode

    1. public string GetLetterCountString(int count)
    2. {
    3. char[] alphabet = "ABCDEFGHIJKLMNOPQRSTUVWXYZ".ToCharArray();
    5. var sb = new StringBuilder();
    7. int a = count;
    8. while (a >= alphabet.Length)
    9. {
    10. int b;
    11. a = Math.DivRem(a, alphabet.Length, out b) - 1;
    12. sb.Insert(0, alphabet[b]);
    13. }
    14. sb.Insert(0, alphabet[a]);
    16. return sb.ToString();
    17. }

    Man könnte gegebenenfalls das Array auch weglassen, den Unicode-Offset des Standard-Alphabets draufrechnen und dann einfach in Char umrechnen, ich kenn aber den Offset nicht und hatte keine Lust nachzusehen.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Artentus“ ()

    Danke an euch alle, hier auch noch eine Lösung

    VB.NET-Quellcode

    1. Public zuordnung As Dictionary(Of Integer, String)
    2. Public reference As Dictionary(Of Integer, String)
    4. Public Sub initial()
    5. create_dicit()
    6. End Sub
    8. Public Sub create_dicit()
    10. ' <----------------------- Listen Initialisieren ------------------------------->
    11. zuordnung = New Dictionary(Of Integer, String)
    12. reference = New Dictionary(Of Integer, String)
    14. ' <----------------------- Anlegen der Zähler Werte ---------------------------->
    16. Dim z As Integer = 1
    17. Dim n As Integer = 0
    19. ' <----------------------- Bilden Des Alphapetes ------------------------------->
    21. zuordnung.Add(0, "")
    22. zuordnung.Add(1, "A")
    23. zuordnung.Add(2, "B")
    24. zuordnung.Add(3, "C")
    25. zuordnung.Add(4, "D")
    26. zuordnung.Add(5, "E")
    27. zuordnung.Add(6, "F")
    28. zuordnung.Add(7, "G")
    29. zuordnung.Add(8, "H")
    30. zuordnung.Add(9, "I")
    31. zuordnung.Add(10, "J")
    32. zuordnung.Add(11, "K")
    33. zuordnung.Add(12, "L")
    34. zuordnung.Add(13, "M")
    35. zuordnung.Add(14, "N")
    36. zuordnung.Add(15, "O")
    37. zuordnung.Add(16, "P")
    38. zuordnung.Add(17, "Q")
    39. zuordnung.Add(18, "R")
    40. zuordnung.Add(19, "S")
    41. zuordnung.Add(20, "T")
    42. zuordnung.Add(21, "U")
    43. zuordnung.Add(22, "V")
    44. zuordnung.Add(23, "W")
    45. zuordnung.Add(24, "X")
    46. zuordnung.Add(25, "Y")
    47. zuordnung.Add(26, "Z")
    49. ' <----------------------- Nun Die Zuordnungen der Zahlen ------------------------------->
    51. For i = 0 To 675
    53. reference.Add(i, zuordnung.Item(n) & zuordnung.Item(z))
    55. z += 1
    57. If z > 26 Then
    58. z = 1
    59. n += 1
    60. End If
    62. Next
    64. End Sub
    Meine Projekte Genesis Game Engine | GFX | smartli.me - Der smarte URL shortener

    Um aus einer 1 ein A zu machen, kann man auch folgendes Verwenden:

    VB.NET-Quellcode

    1. Dim i As Integer = 2 ' B
    2. Dim c As Char = Convert.ToChar(i + 64)

    Oder in C#

    C-Quellcode

    1. int i = 2;
    2. char c = (char)(i + 64);

    Man braucht da also kein Dictionary. Man muss nur aufpassen, dass man keine zu großen Werte (>26 bzw. >90) verwendet, sonst bekommt man Zeichen, die man nicht will.
    Von meinem iPhone gesendet