HinshLabs Release Rss Feed

Updated Release: Command Line Parser v3.0 (Apr 13, 2011)

mrhinsh — Sat, 02 Feb 2013 19:35:36 GMT

This is a nice little command line parser based on Ray Hayes codeproject article Automatic Command Line Parsing in C#. I have adapted it to VB.NET and upgraded it to .NET 3.5.

An updated command line parser that has a built in commanding architecture. The usage varies depending on what you are trying to achieve, but you can have commands, nested commands and delegate commands.

You just add this assembly to your project and adda bunch of command objects:

Module DemoModule

    Sub Main(ByVal args() As String)

        ' Create root command collection
        Dim root As New CommandCollection("root", Nothing)
        ' Add "demo1" fixed command
        root.AddCommand(New Demo1Command(root))
        ' Create sub command colleciton
        Dim innerlist As New CommandCollection("subcmd", root)
        ' Add "demo2" delegate comamnd
        innerlist.AddCommand(New DelegateCommand(Of Demo3CommandLine)(root, "Demo2", AddressOf OnDemo2Run, AddressOf OnDemo2Validate, "demo 2", "no additional information", "demo 2 command", "This command shows how to delegate the run method using the delegate command"))
        ' Add "demo3" fixed command
        innerlist.AddCommand(New Demo3Command(root))
        ' Add sub command collcection to root
        root.AddCommand(innerlist)
        ' Start run
        root.Run(args)

        If Debugger.IsAttached Then
            Console.ReadKey()
        End If
    End Sub

    Private Function OnDemo2Run(command As DelegateCommand(Of Demo3CommandLine)) As Integer
        Console.WriteLine("Running demo 2")
        Return 0
    End Function

    Private Function OnDemo2Validate(command As DelegateCommand(Of Demo3CommandLine)) As Boolean
        Dim isValid As Boolean = True
        If String.IsNullOrEmpty(command.CommandLine.Value1) Then
            isValid = False
        End If
        Return isValid
    End Function

End Module

Released: Command Line Parser v3.0 (Apr 13, 2011)

Sat, 02 Feb 2013 19:35:36 GMT

Module DemoModule

    Sub Main(ByVal args() As String)

        ' Create root command collection
        Dim root As New CommandCollection("root", Nothing)
        ' Add "demo1" fixed command
        root.AddCommand(New Demo1Command(root))
        ' Create sub command colleciton
        Dim innerlist As New CommandCollection("subcmd", root)
        ' Add "demo2" delegate comamnd
        innerlist.AddCommand(New DelegateCommand(Of Demo3CommandLine)(root, "Demo2", AddressOf OnDemo2Run, AddressOf OnDemo2Validate, "demo 2", "no additional information", "demo 2 command", "This command shows how to delegate the run method using the delegate command"))
        ' Add "demo3" fixed command
        innerlist.AddCommand(New Demo3Command(root))
        ' Add sub command collcection to root
        root.AddCommand(innerlist)
        ' Start run
        root.Run(args)

        If Debugger.IsAttached Then
            Console.ReadKey()
        End If
    End Sub

    Private Function OnDemo2Run(command As DelegateCommand(Of Demo3CommandLine)) As Integer
        Console.WriteLine("Running demo 2")
        Return 0
    End Function

    Private Function OnDemo2Validate(command As DelegateCommand(Of Demo3CommandLine)) As Boolean
        Dim isValid As Boolean = True
        If String.IsNullOrEmpty(command.CommandLine.Value1) Then
            isValid = False
        End If
        Return isValid
    End Function

End Module

Created Release: Command Line Parser v3.0 (Apr 13, 2011)

mrhinsh — Wed, 13 Apr 2011 23:19:23 GMT

Module DemoModule

    Sub Main(ByVal args() As String)

        ' Create root command collection
        Dim root As New CommandCollection("root", Nothing)
        ' Add "demo1" fixed command
        root.AddCommand(New Demo1Command(root))
        ' Create sub command colleciton
        Dim innerlist As New CommandCollection("subcmd", root)
        ' Add "demo2" delegate comamnd
        innerlist.AddCommand(New DelegateCommand(Of Demo3CommandLine)(root, "Demo2", AddressOf OnDemo2Run, AddressOf OnDemo2Validate, "demo 2", "no additional information", "demo 2 command", "This command shows how to delegate the run method using the delegate command"))
        ' Add "demo3" fixed command
        innerlist.AddCommand(New Demo3Command(root))
        ' Add sub command collcection to root
        root.AddCommand(innerlist)
        ' Start run
        root.Run(args)

        If Debugger.IsAttached Then
            Console.ReadKey()
        End If
    End Sub

    Private Function OnDemo2Run(command As DelegateCommand(Of Demo3CommandLine)) As Integer
        Console.WriteLine("Running demo 2")
        Return 0
    End Function

    Private Function OnDemo2Validate(command As DelegateCommand(Of Demo3CommandLine)) As Boolean
        Dim isValid As Boolean = True
        If String.IsNullOrEmpty(command.CommandLine.Value1) Then
            isValid = False
        End If
        Return isValid
    End Function

End Module

Released: Command Line Parser v3.0 (Apr 13, 2011)

Wed, 13 Apr 2011 23:19:23 GMT

Module DemoModule

    Sub Main(ByVal args() As String)

        ' Create root command collection
        Dim root As New CommandCollection("root", Nothing)
        ' Add "demo1" fixed command
        root.AddCommand(New Demo1Command(root))
        ' Create sub command colleciton
        Dim innerlist As New CommandCollection("subcmd", root)
        ' Add "demo2" delegate comamnd
        innerlist.AddCommand(New DelegateCommand(Of Demo3CommandLine)(root, "Demo2", AddressOf OnDemo2Run, AddressOf OnDemo2Validate, "demo 2", "no additional information", "demo 2 command", "This command shows how to delegate the run method using the delegate command"))
        ' Add "demo3" fixed command
        innerlist.AddCommand(New Demo3Command(root))
        ' Add sub command collcection to root
        root.AddCommand(innerlist)
        ' Start run
        root.Run(args)

        If Debugger.IsAttached Then
            Console.ReadKey()
        End If
    End Sub

    Private Function OnDemo2Run(command As DelegateCommand(Of Demo3CommandLine)) As Integer
        Console.WriteLine("Running demo 2")
        Return 0
    End Function

    Private Function OnDemo2Validate(command As DelegateCommand(Of Demo3CommandLine)) As Boolean
        Dim isValid As Boolean = True
        If String.IsNullOrEmpty(command.CommandLine.Value1) Then
            isValid = False
        End If
        Return isValid
    End Function

End Module

Updated Release: Tfs Work Item Seed Generator (Oct 20, 2010)

MrHinsh — Wed, 20 Oct 2010 22:20:46 GMT

This application allows you to increase the Seed for Work Item ID's on your server in a supported way using the API.

Blog: TFS 2010 Work Item Seed: TFS Work Item system.id at a predefined number

Released: Tfs Work Item Seed Generator (Oct 20, 2010)

Wed, 20 Oct 2010 22:20:46 GMT

This application allows you to increase the Seed for Work Item ID's on your server in a supported way using the API.

Blog: TFS 2010 Work Item Seed: TFS Work Item system.id at a predefined number

Updated Release: Tfs Work Item Seed Generator (Oct 20, 2010)

MrHinsh — Wed, 20 Oct 2010 22:15:50 GMT

This application allows you to increase the Seed for Work Item ID's on your server in a supported way using the API.

Updated Release: Tfs Work Item Seed Generator (Oct 20, 2010)

MrHinsh — Wed, 20 Oct 2010 22:09:37 GMT

This application allows you to increase the Seed for Work Item ID's on your server in a supported way using the API.

Created Release: Tfs Work Item Seed Generator (Oct 20, 2010)

MrHinsh — Wed, 20 Oct 2010 22:04:00 GMT

This application allows you to increase the Seed for Work Item ID's on your server in a supported way using the API.

Updated Release: Command Line Parser v2.0 (Aug 18, 2009)

hinshelmw — Tue, 18 Aug 2009 08:59:46 GMT

Module DemoModule

    Sub Main(ByVal args() As String)

        ' Create root command collection
        Dim root As New CommandCollection("root", Nothing)
        ' Add "demo1" fixed command
        root.AddCommand(New Demo1Command)
        ' Create sub command colleciton
        Dim innerlist As New CommandCollection("subcmd", root)
        ' Add "demo2" delegate comamnd
        innerlist.AddCommand(New DelegateCommand(Of Demo3CommandLine)("Demo2", AddressOf OnDemo2Run, "demo 3", "no additional information", "demo 2 command", "This command shows how to delegate the run method using the delegate command"))
        ' Add "demo3" fixed command
        innerlist.AddCommand(New Demo3Command)
        ' Add sub command collcection to root
        root.AddCommand(innerlist)
        ' Start run
        root.Run(args)

        If Debugger.IsAttached Then
            Console.ReadKey()
        End If
    End Sub

    Private Function OnDemo2Run() As Integer
        Console.WriteLine("Running demo 2")
        Return 0
    End Function

End Module

Released: Command Line Parser v2.0 (Aug 18, 2009)

Tue, 18 Aug 2009 08:59:46 GMT

Module DemoModule

    Sub Main(ByVal args() As String)

        ' Create root command collection
        Dim root As New CommandCollection("root", Nothing)
        ' Add "demo1" fixed command
        root.AddCommand(New Demo1Command)
        ' Create sub command colleciton
        Dim innerlist As New CommandCollection("subcmd", root)
        ' Add "demo2" delegate comamnd
        innerlist.AddCommand(New DelegateCommand(Of Demo3CommandLine)("Demo2", AddressOf OnDemo2Run, "demo 3", "no additional information", "demo 2 command", "This command shows how to delegate the run method using the delegate command"))
        ' Add "demo3" fixed command
        innerlist.AddCommand(New Demo3Command)
        ' Add sub command collcection to root
        root.AddCommand(innerlist)
        ' Start run
        root.Run(args)

        If Debugger.IsAttached Then
            Console.ReadKey()
        End If
    End Sub

    Private Function OnDemo2Run() As Integer
        Console.WriteLine("Running demo 2")
        Return 0
    End Function

End Module

Updated Release: Command Line Parser v2.0 (Aug 17, 2009)

hinshelmw — Mon, 17 Aug 2009 13:11:33 GMT

Module DemoModule

    Sub Main(ByVal args() As String)

        ' Create root command collection
        Dim root As New CommandCollection("root", Nothing)
        ' Add "demo1" fixed command
        root.AddCommand(New Demo1Command)
        ' Create sub command colleciton
        Dim innerlist As New CommandCollection("subcmd", root)
        ' Add "demo2" delegate comamnd
        innerlist.AddCommand(New DelegateCommand(Of Demo3CommandLine)("Demo2", AddressOf OnDemo2Run, "demo 3", "no additional information", "demo 2 command", "This command shows how to delegate the run method using the delegate command"))
        ' Add "demo3" fixed command
        innerlist.AddCommand(New Demo3Command)
        ' Add sub command collcection to root
        root.AddCommand(innerlist)
        ' Start run
        root.Run(args)

        If Debugger.IsAttached Then
            Console.ReadKey()
        End If
    End Sub

    Private Function OnDemo2Run() As Integer
        Console.WriteLine("Running demo 2")
        Return 0
    End Function

End Module

Released: Command Line Parser v2.0 (Aug 17, 2009)

Mon, 17 Aug 2009 13:11:33 GMT

Module DemoModule

    Sub Main(ByVal args() As String)

        ' Create root command collection
        Dim root As New CommandCollection("root", Nothing)
        ' Add "demo1" fixed command
        root.AddCommand(New Demo1Command)
        ' Create sub command colleciton
        Dim innerlist As New CommandCollection("subcmd", root)
        ' Add "demo2" delegate comamnd
        innerlist.AddCommand(New DelegateCommand(Of Demo3CommandLine)("Demo2", AddressOf OnDemo2Run, "demo 3", "no additional information", "demo 2 command", "This command shows how to delegate the run method using the delegate command"))
        ' Add "demo3" fixed command
        innerlist.AddCommand(New Demo3Command)
        ' Add sub command collcection to root
        root.AddCommand(innerlist)
        ' Start run
        root.Run(args)

        If Debugger.IsAttached Then
            Console.ReadKey()
        End If
    End Sub

    Private Function OnDemo2Run() As Integer
        Console.WriteLine("Running demo 2")
        Return 0
    End Function

End Module

Updated Release: Command Line Parser v2.0 (Aug 17, 2009)

hinshelmw — Mon, 17 Aug 2009 11:15:49 GMT

Module DemoModule

    Sub Main(ByVal args() As String)

        ' Create root command collection
        Dim root As New CommandCollection("root", Nothing)
        ' Add "demo1" fixed command
        root.AddCommand(New Demo1Command)
        ' Create sub command colleciton
        Dim innerlist As New CommandCollection("subcmd", root)
        ' Add "demo2" delegate comamnd
        innerlist.AddCommand(New DelegateCommand(Of Demo3CommandLine)("Demo2", AddressOf OnDemo2Run, "demo 3", "no additional information", "demo 2 command", "This command shows how to delegate the run method using the delegate command"))
        ' Add "demo3" fixed command
        innerlist.AddCommand(New Demo3Command)
        ' Add sub command collcection to root
        root.AddCommand(innerlist)
        ' Start run
        root.Run(args)

        If Debugger.IsAttached Then
            Console.ReadKey()
        End If
    End Sub

    Private Function OnDemo2Run() As Integer
        Console.WriteLine("Running demo 2")
        Return 0
    End Function

End Module

Created Release: Command Line Parser v2.0 (Aug 17, 2009)

hinshelmw — Mon, 17 Aug 2009 11:14:22 GMT

An updated command line parser that has a built in commanding architecture. The usage varies depending on what you are trying to achieve, but you can have commands, nested commands and delegate commands.

You just add this assembly to your project and adda bunch of command objects:

Module DemoModule

    Sub Main(ByVal args() As String)

        ' Create root command collection
        Dim root As New CommandCollection("root", Nothing)
        ' Add "demo1" fixed command
        root.AddCommand(New Demo1Command)
        ' Create sub command colleciton
        Dim innerlist As New CommandCollection("subcmd", root)
        ' Add "demo2" delegate comamnd
        innerlist.AddCommand(New DelegateCommand(Of Demo3CommandLine)("Demo2", AddressOf OnDemo2Run, "demo 3", "no additional information", "demo 2 command", "This command shows how to delegate the run method using the delegate command"))
        ' Add "demo3" fixed command
        innerlist.AddCommand(New Demo3Command)
        ' Add sub command collcection to root
        root.AddCommand(innerlist)
        ' Start run
        root.Run(args)

        If Debugger.IsAttached Then
            Console.ReadKey()
        End If
    End Sub

    Private Function OnDemo2Run() As Integer
        Console.WriteLine("Running demo 2")
        Return 0
    End Function

End Module

Updated Release: Wpf Behaviors (Aug 13, 2009)

hinshelmw — Fri, 14 Aug 2009 16:13:57 GMT

This will be a collection of Wpf behaviors that I will require as I continue to use WPF as my mail presentation mechanism.

Contains:

Wpf Drag & Drop Behavior - Allows the easy addition of drag and drop functionality in the same list, to a diferent list of the same type and to allow linking between diferent data types in lists.

Released: Wpf Behaviors (Aug 13, 2009)

Fri, 14 Aug 2009 16:13:57 GMT

This will be a collection of Wpf behaviors that I will require as I continue to use WPF as my mail presentation mechanism.

Contains:

Wpf Drag & Drop Behavior - Allows the easy addition of drag and drop functionality in the same list, to a diferent list of the same type and to allow linking between diferent data types in lists.

Updated Release: Wpf Behaviors (Aug 13, 2009)

hinshelmw — Thu, 13 Aug 2009 14:48:17 GMT

This will be a collection of Wpf behaviors that I will require as I continue to use WPF as my mail presentation mechanism.

Contains:

Wpf Drag & Drop Behavior - Allows the easy addition of drag and drop functionality in the same list, to a diferent list of the same type and to allow linking between diferent data types in lists.

Released: Wpf Behaviors (Aug 13, 2009)

Thu, 13 Aug 2009 14:48:17 GMT

This will be a collection of Wpf behaviors that I will require as I continue to use WPF as my mail presentation mechanism.

Contains:

Wpf Drag & Drop Behavior - Allows the easy addition of drag and drop functionality in the same list, to a diferent list of the same type and to allow linking between diferent data types in lists.

Created Release: Wpf Behaviors (Aug 13, 2009)

hinshelmw — Thu, 13 Aug 2009 14:43:37 GMT

This will be a collection of WPF behaviors that I will require as I continue to use WPF as my mail presentation mechanism.

Contains:

Drag & Drop Behavior - Allows the easy addition of drag and drop functionality in the same list, to a diferent list of the same type and to allow linking between diferent data types in lists.