vb.net参数/应用程序中的命令行

Question

I want to create my own command line.(as windows application, not prompt) Example: -f {filepath} -d {filename} in textbox1

-f C://Windows/Users/Myname/Documents -d junk.exe

so it must filter the filepath and filename so it becomes this my.computer.filesystem.delete("C://Windows/Users/Myname/Documents", "junk.exe")

thanks!

Answer 1

You can obtain your command line parameters this way:

Dim arguments As String() = Environment.GetCommandLineArgs()

I found this on MSDN.

Answer 2

You could use this function to get the value of your desired parameter (the parameter name must include the '-' sign.)

Public Function GetParameter(input As String, param As String) As String
    Dim cmdargs As New List(Of String)
    For Each item As Match In Regex.Matches(input, """(\\""|[^""])*?""|[^ ]+")
        If item.ToString()(0) = """" And item.ToString()(item.ToString.Length - 1) = """" Then
            cmdargs.Add(item.ToString().Remove(0, 1).Remove(item.ToString.Length - 2, 1))
        Else
            cmdargs.Add(item.ToString())
        End If
    Next
    Return cmdargs(cmdargs.ToList().LastIndexOf(param) + 1)
End Function

If you use this function as GetParameter("-f") and your command-line arguments are -f C://Windows/Users/Myname/Documents -d junk.exe then you will get C://Windows/Users/Myname/Documents as the output. Now if your command line has a space, you could enclose it within double quotes to avoid it being interpreted as 'multiple arguments'.

Now in an event-handling method (maybe a button click), you can use :-

My.Computer.FileSystem.Delete(GetParameter(TextBox1.Text, "-f"), GetParameter(TextBox1.Text, "-d"))

... to get the job done. Hope it helps :-). If you have questions, please comment below. Updated