Posted by Jaque Vi Hose on Tue 24th Jan 19:37 (modification of post by view diff)
download | new post

Module Module1

        Sub Main()

                ' Header anzeigen
                Console.ForegroundColor = ConsoleColor.White
                Console.WriteLine("Text Editor Header")
                Console.ForegroundColor = ConsoleColor.DarkGray
                Console.WriteLine("¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯")
                Console.ResetColor()

                ' Hilfe anzeigen
                Console.WriteLine("Enter an empty line to exit.")
                Console.WriteLine()

                ' Zeile für Zeile einlesen und wieder ausgeben
                Dim Line As String ' Speicher für eine Zeichenkette reservieren
                Do ' Schleife Anfang
                        Line = Console.ReadLine ' Zeile einlesen
                        If String.IsNullOrEmpty(Line) Then Exit Do ' wenn leer -> raus
                        Console.WriteLine(Line) ' hier würdest du speichern
                Loop ' Schleife Ende

                Console.WriteLine("Finished.")

                Console.WriteLine("Finished.")
                Console.ReadKey()

        End Sub

End Module