Visual Basic .NET Language
Konsole

Console.ReadLine ()

Dim input as String = Console.ReadLine()

Console.ReadLine() liest die Konsoleneingabe vom Benutzer, bis die nächste neue Zeile erkannt wird (normalerweise durch Drücken der Eingabetaste oder der Eingabetaste). Die Codeausführung wird im aktuellen Thread angehalten, bis eine neue Zeile angegeben wird. Danach wird die nächste Codezeile ausgeführt.

Console.WriteLine ()

Dim x As Int32 = 128
Console.WriteLine(x) ' Variable '
Console.WriteLine(3) ' Integer '
Console.WriteLine(3.14159) ' Floating-point number '
Console.WriteLine("Hello, world") ' String '
Console.WriteLine(myObject) ' Outputs the value from calling myObject.ToString()

Die Console.WriteLine() -Methode druckt die angegebenen Argumente mit einer neuen Zeile am Ende. Dadurch werden alle bereitgestellten Objekte gedruckt, einschließlich, aber nicht beschränkt auf, Zeichenfolgen, Ganzzahlen, Variablen und Gleitkommazahlen.

Beim Schreiben von Objekten, die nicht explizit von den verschiedenen WriteLine Überladungen WriteLine werden ( WriteLine Sie verwenden die Überladung, die einen Wert des Typs Object erwartet), verwendet WriteLine die .ToString() -Methode, um einen String zum tatsächlichen Schreiben zu generieren Objekte sollten die .ToString Methode .ToString und etwas aussagekräftiger als die Standardimplementierung erzeugen (die normalerweise nur den vollständig qualifizierten .ToString schreibt).

Console.Write ()

Dim x As Int32 = 128
Console.Write(x) ' Variable '
Console.Write(3) ' Integer '
Console.Write(3.14159) ' Floating-point number '
Console.Write("Hello, world") ' String '

Die Console.Write() -Methode ist mit der Console.WriteLine() -Methode identisch, mit der Ausnahme, dass das angegebene Argument bzw. die angegebenen Argumente ohne eine neue Zeile am Ende gedruckt werden. Diese Methode kann funktional mit WriteLine identisch WriteLine werden, indem am Ende der angegebenen Argumente eine Newline-Zeichenfolge hinzugefügt wird:

Console.Write("this is the value" & Environment.NewLine)

Console.Read ()

Dim inputCode As Integer = Console.Read()

Console.Read() erwartet eine Eingabe vom Benutzer und gibt bei Erhalt einen ganzzahligen Wert zurück, der dem Zeichencode des eingegebenen Zeichens entspricht. Wenn der Eingabestrom auf irgendeine Weise beendet ist, bevor die Eingabe erhalten werden kann, wird stattdessen -1 zurückgegeben.

Console.ReadKey ()

Dim inputChar As ConsoleKeyInfo = Console.ReadKey()

Console.ReadKey() erwartet eine Eingabe des Benutzers und gibt bei Erhalt ein Objekt der Klasse ConsoleKeyInfo , das Informationen zu dem Zeichen enthält, das der Benutzer als Eingabe angegeben hat. Ausführliche Informationen zu den bereitgestellten Informationen finden Sie in der MSDN-Dokumentation .

Prototyp der Eingabeaufforderung

Module MainPrompt
Public Const PromptSymbol As String = "TLA > "
Public Const ApplicationTitle As String = GetType(Project.BaseClass).Assembly.FullName
REM Or you can use a custom string
REM Public Const ApplicationTitle As String = "Short name of the application"

Sub Main()
    Dim Statement As String
    Dim BrokenDownStatement As String()
    Dim Command As String
    Dim Args As String()
    Dim Result As String

    Console.ForegroundColor = ConsoleColor.Cyan
    Console.Title = ApplicationTitle & " command line console"

    Console.WriteLine("Welcome to " & ApplicationTitle & "console frontend")
    Console.WriteLine("This package is version " & GetType(Project.BaseClass).Assembly.GetName().Version.ToString)
    Console.WriteLine()
    Console.Write(PromptSymbol)

    Do While True
        Statement = Console.ReadLine()
        BrokenDownStatement = Statement.Split(" ")
        ReDim Args(BrokenDownStatement.Length - 1)
        Command = BrokenDownStatement(0)

        For i = 1 To BrokenDownStatement.Length - 1
            Args(i - 1) = BrokenDownStatement(i)
        Next

        Select Case Command.ToLower
            Case "example"
                Result = DoSomething(Example)
            Case "exit", "quit"
                Exit Do
            Case "ver"
                Result = "This package is version " & GetType(Project.BaseClass).Assembly.GetName().Version.ToString
            Case Else
                Result = "Command not acknowldged: -" & Command & "-"
        End Select
        Console.WriteLine(" " & Result)
        Console.Write(PromptSymbol)
    Loop

    Console.WriteLine("I am exiting, time is " & DateTime.Now.ToString("u"))
    Console.WriteLine("Goodbye")
    Environment.Exit(0)
End Sub
End Module

Dieser Prototyp generiert einen grundlegenden Befehlszeileninterpreter.

Es erhält automatisch den Anwendungsnamen und die Version, um mit dem Benutzer zu kommunizieren. Er erkennt für jede Eingabezeile den Befehl und eine beliebige Liste von Argumenten, die alle durch Leerzeichen getrennt sind.

Als grundlegendes Beispiel versteht dieser Code die Befehle Ver , Quit und Exit .

Der Parameter Project.BaseClass ist eine Klasse Ihres Projekts, in der die Assembly-Details festgelegt werden.