Question CommandLineArgs help needed

SDR · #1 (**permalink**) 11-12-2008, 8:19 AM

I have searched here and google but I am still confused as to how to make this work. I have an application that will be run automaticly from a server by ActiveBatch. This app will run a report for 1 of 3 date ranges depending on the parameter passed into it from ActiveBatch. My problem is I don't understand how to use CommandLineArgs to accomplish this. Could someone please explain to me how CommandLineArgs works? The code I have so far is below...

Dim runType As String
Dim numComArgs As String
numComArgs = My.Application.CommandLineArgs.Count

'---Log the program is beginning and the initial parameters
ArgLogFile = New Log("\\kronos\ProdReptACD\Logs\ArgLogFile.log")
ArgLogFile.Write("Command Arguments: " & My.Application.CommandLineArgs.Count.ToString())
For index As Integer = 0 To (My.Application.CommandLineArgs.Count - 1)
LogFile.Write(vbTab & index.ToString & "-" & My.Application.CommandLineArgs(index).ToString())
Next

'---Set the Run Type to the value of the first parameter passed in.
'---If no parameter was passed, then default to weekly
If numComArgs = 0 Then
runType = "Weekly"
Else
runType = My.Application.CommandLineArgs(numComArgs - 1).ToString()
End If

If UCase(runType) = "WEEKLY" Then
dtStart = DateAdd("d", -6 - Weekday(Now()), Now())
dtEnd = DateAdd("d", -Weekday(Now()), Now())
ElseIf UCase(runType) = "CALENDAR" Then
dtStart = "01/01/" & Year(Now()) - 1
dtEnd = "12/31/" & Year(Now()) - 1
ElseIf UCase(runType) = "FISCAL" Then
If Month(Now()) > 6 Then
dtStart = "07/01/" & Year(Now()) - 1
dtEnd = "06/30/" & Year(Now())
Else
dtStart = "07/01/" & Year(Now()) - 2
dtEnd = "06/30/" & Year(Now()) - 1
End If
End If

Robert_Zenz · #2 (**permalink**) 11-12-2008, 11:51 AM

Hello.

I can't find an Error in your code...except that it's not very .NET like and you should really turn on Option Strict.

Code:

        Dim runType As String = "Weekly"

        '---Log the program is beginning and the initial parameters
        ArgLogFile = New Log("\\kronos\ProdReptACD\Logs\ArgLogFile.log")
        ArgLogFile.Write("Command Arguments: " & My.Application.CommandLineArgs.Count.ToString())
        For Each arg As String In My.Application.CommandLineArgs
            ArgLogFile.Write(vbTab & My.Application.CommandLineArgs.IndexOf(arg).ToString("N0") & "-" & arg)
        Next

        '---Set the Run Type to the value of the first parameter passed in.
        '---If no parameter was passed, then default to weekly
        If My.Application.CommandLineArgs.Count > 0 Then runType = My.Application.CommandLineArgs(My.Application.CommandLineArgs.Count - 1).ToString()

        If runType.ToUpper() = "WEEKLY" Then
            dtStart = DateAdd("d", -6 - Date.Now().DayOfWeek, Date.Now())
            dtEnd = DateAdd("d", -Date.Now().DayOfWeek, Date.Now())
        ElseIf UCase(runType) = "CALENDAR" Then
            dtStart = "01/01/" & (Date.Now().Year - 1).ToString()
            dtEnd = "12/31/" & (Date.Now().Year - 1).ToString()
        ElseIf UCase(runType) = "FISCAL" Then
            If Month(Now()) > 6 Then
                dtStart = "07/01/" & (Date.Now().Year - 1).ToString()
                dtEnd = "06/30/" & (Date.Now().Year).ToString()
            Else
                dtStart = "07/01/" & (Date.Now().Year - 2).ToString()
                dtEnd = "06/30/" & (Date.Now().Year - 1).ToString()
            End If
        End If

Commandline Arguments are simple:

Code:

Your.exe Argument1 Argument2 "This is Argument3" This is not Working

Code:

Argument Array:
0: Argument1
1: Argument2
2: This is Argument3
3: This
4: is
5: not
6: Working

Bobby

SDR · #3 (**permalink**) 11-13-2008, 9:35 AM

Thanks for the help, Robert. It works with the small changes you made. I am starting to understand how the CommandLineArgs works.

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)