Im my console application I pass the arguments like this:
#Region " DEBUG CommandLine Arguments "
Private Function Set_CommandLine_Arguments() As List(Of String)
#If DEBUG Then
' Debug Commandline arguments for this application:
Dim DebugArguments = "HotkeyMaker.exe /Hotkey=Escape /run=notepad.exe"
Return DebugArguments.Split(" ").ToList
#Else
' Nomal Commandline arguments:
Return My.Application.CommandLineArgs.ToList
#End If
End Function
#End Region
But that has a big obvious problem, the space character will produce false positive arguments, for example:
MyProgram.exe /Run="Process path with spaces.exe"
All we know that as normally the arguments are separated in tokens delimitted by enclosed double quotes " "
chars or a space
char, so I will get a lot of false positives customizing my debug arguments.
In C#
or VBNET
how I can improve the function to obtain a list of (custom) arguments correctly separated?
UPDATE 2:
I made this example to try to clarify my intentions:
Module Module1
''' <summary>
''' Debug commandline arguments for testing.
''' </summary>
Private ReadOnly DebugArguments As String =
"ThisProcess.exe /Switch1=Value /Switch2=""C:\folder with spaces\file.txt"""
''' <summary>
''' Here will be stored the commandline arguments of this application.
''' If DebugArguments variable is nothing then the "normal" arguments which are passed directly from the console are used here,
''' Otherwise, my custom debug arguments are used.
''' </summary>
Private Arguments As List(Of String) = Set_CommandLine_Arguments()
Sub Main()
Parse_Arguments()
End Sub
Private Sub Parse_Arguments()
For Each Arg As String In Arguments
MsgBox(Arg)
' Result:
' ------
' 1st arg: ThisProcess.exe
' 2nd arg: /Switch1=Value
' 3rd arg: /Switch2="C:\folder
' 4th arg: with
' 5th arg: spaces\file.txt"
Next Arg
' Expected arguments:
' ------------------
' 1st arg: ThisProcess.exe
' 2nd arg: /Switch1=Value
' 3rd arg: /Switch2="C:\folder with spaces\file.txt"
End Sub
Public Function Set_CommandLine_Arguments() As List(Of String)
#If DEBUG Then
If Not String.IsNullOrEmpty(DebugArguments) Then
' Retun the custom arguments.
Return DebugArguments.Split.ToList
Else
' Return the normal commandline arguments passed directly from the console.
Return My.Application.CommandLineArgs.ToList
End If
#Else
' Return the normal commandline arguments passed directly from the console.
Return My.Application.CommandLineArgs.ToList
#End If
End Function
End Module