コマンドライン引数の信頼できるパターン

Question

多くのプログラムがフラグ付きのコマンドライン引数を受け取ります。たとえば、gcc hello.c -o helloです。もちろん、私は自分のアプリケーションでそれを実装することができます

Dim args() As String = Environment.GetCommandLineArgs() 
Dim oi As Integer = Array.IndexOf("-o", args) 
If oi > -1 AndAlso oi < args.Length Then 
    CompileTo(args(oi + 1)) 'Or whatever 
Else 
    CompileTo("out.exe") 'Or whatever 
End If 

しかし、それは醜いと使い迷惑な、エラーを起こしやすい、と非効率的です。私が見過ごしているより良い方法は何ですか？

Answer 1

多くの（ほとんどの）Linuxプログラムでは、これらのオプションはgetoptによって処理されます。これは非常に汎用性の高いシステムなので、インスピレーションを得るためには良いポイントかもしれません。

Answer 2

Best way to parse command line arguments in C#?をチェックアウトしても、同様のトピック（C＃では問題ありません）について興味深い回答がいくつかあります。また、使用したいと思うかもしれない "ready-to-use"ライブラリへのリンクも表示されます。

Answer 3

は とフォームの作成 - テキストボックスの名前optstringに、テキストを：-in "C：私のファイルは\私のドキュメント\" + N -sort：-xyz - （間違ったオプションの略）テキストボックスの名前WOP - ParseBt という名前のボタン - （リッチテキストボックスの略）RTBという名前のRichTextBox

このコードを追加し、それを実行します。

Public Class Form1 
Dim ListOfPossibleOptions As New Collection 

Dim RejectedOptions As String 

Private Sub ParseBt_Click(sender As System.Object, e As System.EventArgs) Handles ParseBt.Click 
    ListOfPossibleOptions.Clear() 
    ListOfPossibleOptions.Add(New OneOption("Input", " "c, True)) 
    ListOfPossibleOptions.Add(New OneOption("Sort", ":"c)) 
    ListOfPossibleOptions.Add(New OneOption("New")) 

    ParseOptions(ListOfPossibleOptions, RejectedOptions) 

    Dim s As String = "" 
    For Each CurrOption As OneOption In ListOfPossibleOptions 
     s &= CurrOption.OptionText & ": " 
     If CurrOption.Present Then 
      s &= "Present option=" & CurrOption.OptionChar 
      If CurrOption.ValueReq Then 
       s &= " value=" & CurrOption.TextValue 
      End If 
     Else 
      s &= "not present" 
     End If 
     s &= vbCrLf 
    Next 
    rtb.Text = s 
End Sub 
Sub ParseOptions(ListOfPossibleOptions As Collection, RejectedOptions As String) 
    Dim Fnd As Boolean 
    Dim OptionString As String = OptString.Text.Trim.ToUpper & " " 
    Dim OptionFnd As OneOption 
    RejectedOptions = "" 
    While OptionString.Length() > 0 
     Fnd = False 
     Do While True 
      For Each CurrOption As OneOption In ListOfPossibleOptions 
       Dim ot As String = CurrOption.OptionText.ToUpper 
       For l As Integer = 1 To CurrOption.OptionText.Length 
        If l < OptionString.Length Then 
         Debug.WriteLine("|" & ot.Substring(0, l) & "|" & OptionString.Substring(1, l) & "|") 
         If ot.Substring(0, l) = OptionString.Substring(1, l) Then 
          If OptionString.Substring(1 + l, 1) = CurrOption.Separator Then 
           Fnd = True 
           OptionFnd = CurrOption 
           OptionFnd.Present = True 
           OptionFnd.OptionChar = OptionString(0) 
           OptionString = OptionString.Substring(l + 2) 
           Exit Do ' found 
          End If 
         Else 
          Exit For ' next possible option 
         End If 
        End If 
       Next 
      Next 
      Exit Do ' not found 
     Loop 
     If Not Fnd Then 
      Dim i As Integer = OptionString.IndexOf(" ") 
      RejectedOptions &= OptionString.Substring(0, i) & " " 
      OptionString = OptionString.Substring(i).TrimStart 
     Else 
      If OptionFnd.ValueReq Then 
       If OptionFnd.Quoted Then 
        If OptionString(0) = """" Then 
         OptionString = OptionString.Substring(1) 
         Dim i As Integer = OptionString.IndexOf("""") 
         If i > -1 Then 
          OptionFnd.TextValue = OptionString.Substring(0, i) 
          OptionString = OptionString.Substring(i + 1).TrimStart 
         Else ' closing quote missing 
          i = OptionString.IndexOf(" ") 
          OptionFnd.TextValue = """" & OptionString.Substring(0, i) 
          OptionString = OptionString.Substring(i).TrimStart 
         End If 
        Else ' not quoted 
         Dim i As Integer = OptionString.IndexOf(" ") 
         OptionFnd.TextValue = OptionString.Substring(0, i) 
         OptionString = OptionString.Substring(i).TrimStart 
        End If 
       Else ' never quoted 
        Dim i As Integer = OptionString.IndexOf(" ") 
        OptionFnd.TextValue = OptionString.Substring(0, i) 
        OptionString = OptionString.Substring(i).TrimStart 
       End If 
      End If 
     End If 
    End While 
    wop.Text = RejectedOptions 
End Sub 
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load 
End Sub 
End Class 
Public Class OneOption 
'input 
Friend OptionText As String ' required 
Friend Separator As Char ' if specified, CurrOption value follows the option, like : in -SORT:A 
Friend Quoted As Boolean ' value may be "q u o t e d" 
'work 
Friend ValueReq As Boolean ' is value required (as seperator was given in NEW)? 
'output 
Friend Present As Boolean ' option present 
Friend OptionChar As Char ' options was preceeded by + -/whatever 
Friend TextValue As String ' the value following the option 
Sub New(pOptionText As String) ' option without a value, a switch 
    OptionText = pOptionText 
    reset() 
End Sub 
Sub New(pOptionText As String, pSeparator As Char) ' option with a value, the separator between option and value has to be specified 
    OptionText = pOptionText 
    reset() 
    Separator = pSeparator 
    ValueReq = True 
    Quoted = False 
End Sub 
Sub New(pOptionText As String, pSeparator As Char, pQuoted As Boolean) ' option with a possibly "quoted value", the separator between option and value has to be specified 
    OptionText = pOptionText 
    reset() 
    Separator = pSeparator 
    ValueReq = True 
    Quoted = pQuoted 
End Sub 
Sub reset() 
    Separator = " "c 
    Quoted = False 
    Present = False 
    ValueReq = False 
End Sub 
End Class