Dim
args
As
String
()
=
WebCommandLineHelper.GetCommandLineArgs(argsFromMain)
If args.Length > 0 Then
For j As Integer = 0 To args.Length - 1
Dim pair As String () = args(j).Split( " & " c)
For i As Integer = 0 To pair.Length - 1
Dim val As String () = pair(i).Split( " = " c)
Select Case val ( 0 ).ToLower()
Case " prm "
' remore redundand items and check for case dependency
strUserName = val ( 1 ).ToString()
Exit Select
Case " prm1 "
strPRM1 = val ( 1 ).ToString()
Exit Select
Case " prm2 "
strPRM2 = val ( 1 ).ToString()
Exit Select
End Select
Next
Next
End If
If args.Length > 0 Then
For j As Integer = 0 To args.Length - 1
Dim pair As String () = args(j).Split( " & " c)
For i As Integer = 0 To pair.Length - 1
Dim val As String () = pair(i).Split( " = " c)
Select Case val ( 0 ).ToLower()
Case " prm "
' remore redundand items and check for case dependency
strUserName = val ( 1 ).ToString()
Exit Select
Case " prm1 "
strPRM1 = val ( 1 ).ToString()
Exit Select
Case " prm2 "
strPRM2 = val ( 1 ).ToString()
Exit Select
End Select
Next
Next
End If