Wie kann ich Durchlaufen das alphabet in Visual Basic?

Brauche ich, um zu generieren, eine Schleife, die würde iterieren durch die einzelnen Großbuchstaben des Alphabets, die mit Visual Basic (2008). Was ist der sauberste Weg, dies zu tun?

InformationsquelleAutor Mark Meuer | 2011-03-25
  1. 30
    For Each c In "ABCDEFGHIJKLMNOPQRSTUVWXYZ".ToCharArray()
...
Next
    • Die ToCharArray() ist nicht unbedingt notwendig da die Saiten implementieren von IEnumerable(Of Char)
    • Dies ist eine sehr saubere Art und Weise, es zu tun!
    • Können Sie ein Beispiel-code vielleicht ?
    • Beispiel-code für was? Ich wurde nur darauf hinweisen, dass die ToCharArray im code in dieser Antwort ist nicht erforderlich und kann weggelassen werden.
    • Diese Methode ist nützlich, wenn Sie einen benutzerdefinierten Bereich ein: "JKLMTUVWXYZABCDEFNOPQRSGHI"
    InformationsquelleAutor manji
  2. 13

    Der einfachste Weg, dies zu tun wäre wahrscheinlich:

    For ascii = 65 To 90
    Debug.Print(Chr(ascii))
Next

    Ich bin mir nicht wirklich sicher, ob es das sauberste aber. Ich habe nicht gearbeitet in vb.net viel, seit ich angefangen habe mit c#.

    • Diese bekommt meine Stimme für die Benutzerfreundlichkeit und, wenn Sie möchten, Kleinbuchstaben, dann kann man mit "97 Bis 122" statt.
    InformationsquelleAutor asleepysamurai
  3. 10

    Habe ich es herausgefunden. Jemand eine bessere Lösung?

    Schleife über das alphabet:

    For i As Int16 = Convert.ToInt16("A"c) To Convert.ToInt16("Z"c)
        Dim letter As Char = Convert.ToChar(i)
        'Do my loop work...
Next

    Letter zuerst gleich "A", dann "B", etc.

    Jemand eine bessere Lösung?

    InformationsquelleAutor Mark Meuer
  4. 1

    Hier ist ein weiterer Weg, um aufzuzählen, Buchstaben:

    For Each letter As Char In Enumerable.Range(Convert.ToInt16("A"c), 26) _
                                     .Select(Function(i) Convert.ToChar(i))
    Console.WriteLine(letter)
Next
    InformationsquelleAutor Meta-Knight
  5. 0

    Versuchen, diese

    Dim a As String
a = 65
Do
If a > 90 Then
Exit Do
Else
List1.AddItem Chr(a)
a = a + 1
End If
Loop
    • Es ist schon eine andere saubere und kurze Antwort, was macht deine gute Antwort? Pflege kommentieren Sie Ihren code, es ist effizienter als die akzeptierte Antwort? Warum?
    • Es würde nicht Schaden, erweitern Sie Ihren Kommentar, jetzt, und ich sehe keinen Grund, warum dies besser ist als die akzeptierte Antwort.
    InformationsquelleAutor janmark
  6. 0
    Sub Sel_1_sur_2()
Dim i As Long
Dim a As ChartObject
Dim rng As Range
Set rng = Range(Chr(65) & ":" & Chr(65))
For ascii = 65 To 90 Step 2
    Debug.Print (Chr(ascii))
    Set rng = Union(rng, Range(Chr(ascii) & ":" & Chr(ascii)))
Next
rng.Select
End Sub
    • können Sie uns ein deutlicheres Bild von dem, was dieser code tut? wie erklären Sie, ein bisschen
    InformationsquelleAutor Martin Deveault
  7. -1
    Module Abecedario
    Sub main()
        Dim letra As String
        letra = 65

        Console.WriteLine("El abecedario")
        Console.WriteLine("-------------")

        Do
            If letra > 90 Then
                Exit Do
            Else
                Console.Write(Chr(letra) & ", ")
                letra = letra + 1
            End If
        Loop

        Console.ReadLine()

    End Sub
End Module
    InformationsquelleAutor José Matos
Schreibe einen Kommentar