VB 控制台应用程序，没有任务自动关闭

Question

我的社区成员！ 我正在创建自己的命令提示符，我想知道一些关于它的信息。 当我的程序完成任务时，例如这段代码：

        ElseIf cmdStr = "version" Then
        Console.ForegroundColor = ConsoleColor.White
        Console.Write("Current version: ")
        Console.ForegroundColor = ConsoleColor.Yellow
        Console.Write(appVersion)
        Console.ForegroundColor = ConsoleColor.Black
        Console.ReadLine()

Console.Readline() 之后有空白空间。 控制台应用程序将关闭。 如果没有任务，有没有让它做任务？ 我总是把它放在那些空的地方：

Console.Clear
Main()

但我已经厌倦了这样做，因为我几乎达到了 50 个命令。 有办法吗？感谢您的宝贵时间！

Answer 1

如果您发现要为命令重写大量代码，请查看重构它们。您提到您已经厌倦了调用 clear 并返回到主 sub，但如果这在您的所有命令之间都很常见，那么您可以执行以下操作：

Public MustInherit Class ConsoleCommand
    MustOverride Sub command
    Public sub run()
        command()
        Console.ReadLine()
        Main()
    End sub
End Class

Public Class VersionCommand
    Inherits ConsoleCommand
    Public Overrides Sub command()
        Console.ForegroundColor = ConsoleColor.White
        Console.Write("Current version: ")
        Console.ForegroundColor = ConsoleColor.Yellow
        Console.Write(appVersion)
        Console.ForegroundColor = ConsoleColor.Black
    End Sub
End Class


Public Class CommandFactory
    Public Function GetCommand(cmdStr As string) As ConsoleCommand
        Select Case cmdStr
            Case "version"
                Return New VersionCommand
            Case Else
                Return nothing
        End Select
    End Function
End Class

然后在你的主子中：

sub Main()

dim factory as new CommandFactory()
dim cmdText as string = Console.ReadLine()
dim command = factory.GetCommand(cmdText)
command.run()

end sub

或者删除

Console.ReadLine()
Console.Clear
Main()

从每个 if/else 分支并将其放在 End If 之后

//回应原发帖人关于想在“关闭”时退出的评论

Sub Main()

dim cmdStr as string = String.Empty
do until cmdStr = "Close"
cmdStr = Console.ReadLine()
'Your if block goes here, minus the call back into main - which is now looping
loop

End Sub