Code korrigieren

[HeikoT]

Hallo Zusammen

Kann mir mal jemand sagen, wie ich den folgenden Code umschreiben muss, damit die zehn, im DOS Prompt, einzugebenden Begriffe in der richtigen Reihenfolge in der Datei "Eingabe.txt" gespeichert werden.

Imports System
Imports System.IO

Public Class clsConsoleIO
    Private Const ITEM_COUNT As Integer = 10

    Shared Sub Main()
        Dim I As Integer
        Dim sItems(ITEM_COUNT) As String
        Dim oFile As TextWriter = File.CreateText("Eingabe.txt")
        Dim oOut As TextWriter = Console.Out

        Console.WriteLine("Bitte geben Sie {0} Begriffe ein. Mit ENTER bestätigen.", ITEM_COUNT)

        For I = 0 To ITEM_COUNT - 1
            sItems(I) = Console.ReadLine
        Next

        Console.WriteLine()
        Console.SetOut(oFile)
        Console.WriteLine("Begrifffe in umgekehrter Reihenfolge:")

        For I = ITEM_COUNT - 1 To 0 Step -1
            Console.WriteLine(sItems(I))
        Next

        oFile.Close()

        Console.SetOut(oOut)
        Console.WriteLine("Fertig")
        Console.ReadLine()
    End Sub

End Class

Danke schon im Vorraus

 

[Alexander Schuc]

Hallo.

For I = ITEM_COUNT - 1 To 0 Step -1
   Console.WriteLine(sItems(I))
Next

Du beginnst beim letzten Wert des Arrays (I = ITEM_COUNT -1) und gehst immer eines weiter an den Anfang.
Also einfach die Variablen 'umdrehen' und anstatt -1 als Schrittweite nehmen, nimmst du 1.

For I = 0 To (ITEM_COUNT - 1) Step 1
   Console.WriteLine(sItems(I))
Next

Mfg,
Alex

 

[HeikoT]

So einfach ist das.
Vielen Dank.