VB Console Application, без задач auto-close

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

Если вы находите, вы переписываете много кода, чтобы команды смотрели на их рефакторинг. Вы упоминаете вы устали от вызова ясно и обратно в основные подлодки, но если это общее между всеми вашими командами, то вы могли бы сделать что-то вроде этого:

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

от каждого, если/другое отделение и поместить его после 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