Visual Basic .NET Language
Console

Console.ReadLine ()

Dim input as String = Console.ReadLine()

Console.ReadLine() lira l'entrée de la console depuis l'utilisateur jusqu'à ce que la nouvelle ligne soit détectée (en général, en appuyant sur la touche Entrée ou Retour). L'exécution du code est suspendue dans le thread en cours jusqu'à ce qu'une nouvelle ligne soit fournie. Ensuite, la ligne de code suivante sera exécutée.

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()

La méthode Console.WriteLine() imprimera le ou les arguments donnés avec une nouvelle ligne attachée à la fin. Cela imprimera tout objet fourni, y compris, mais sans s'y limiter, les chaînes, les entiers, les variables, les nombres à virgule flottante.

Lors de l'écriture d'objets qui ne sont pas explicitement appelés par les diverses surcharges WriteLine (c'est-à-dire que vous utilisez la surcharge qui attend une valeur de type Object , WriteLine utilisera la méthode .ToString() pour générer une String pour écrire réellement). Les objets doivent remplacer la méthode .ToString et produire quelque chose de plus significatif que l'implémentation par défaut (qui écrit généralement uniquement le nom complet du type).

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 '

La méthode Console.Write() est identique à la méthode Console.WriteLine() sauf qu'elle imprime le ou les arguments donnés sans nouvelle ligne à la fin. Cette méthode peut être rendue fonctionnellement identique à WriteLine en ajoutant une chaîne de nouvelle ligne à la fin des arguments fournis:

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

Console.Read ()

Dim inputCode As Integer = Console.Read()

Console.Read() attend l'entrée de l'utilisateur et, à sa réception, renvoie une valeur entière correspondant au code de caractère du caractère saisi. Si le flux d'entrée est terminé d'une certaine manière avant que l'entrée puisse être obtenue, -1 est renvoyé à la place.

Console.ReadKey ()

Dim inputChar As ConsoleKeyInfo = Console.ReadKey()

Console.ReadKey() attend l'entrée de l'utilisateur et, à sa réception, renvoie un objet de la classe ConsoleKeyInfo , qui contient des informations relatives au caractère fourni par l'utilisateur. Pour plus de détails concernant les informations fournies, visitez la documentation MSDN .

Prototype de l'invite de ligne de commande

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

Ce prototype génère un interpréteur de ligne de commande de base.

Il obtient automatiquement le nom de l'application et la version à communiquer à l'utilisateur. Pour chaque ligne d'entrée, il reconnaît la commande et une liste arbitraire d'arguments, tous séparés par un espace.

Comme exemple de base, ce code comprend les commandes ver , quit et exit .

Le paramètre Project.BaseClass est une classe de votre projet où les détails d'assemblage sont définis.