1 |
joko |
1.1 |
VERSION 1.0 CLASS |
2 |
|
|
BEGIN |
3 |
|
|
MultiUse = -1 'True |
4 |
|
|
Persistable = 0 'NotPersistable |
5 |
|
|
DataBindingBehavior = 0 'vbNone |
6 |
|
|
DataSourceBehavior = 0 'vbNone |
7 |
|
|
MTSTransactionMode = 0 'NotAnMTSObject |
8 |
|
|
END |
9 |
|
|
Attribute VB_Name = "CommandLine" |
10 |
|
|
Attribute VB_GlobalNameSpace = False |
11 |
|
|
Attribute VB_Creatable = True |
12 |
|
|
Attribute VB_PredeclaredId = False |
13 |
|
|
Attribute VB_Exposed = False |
14 |
|
|
Option Explicit |
15 |
|
|
|
16 |
|
|
Dim options As New Collection |
17 |
|
|
Dim switches As New CVector |
18 |
|
|
|
19 |
|
|
Public Sub parse() |
20 |
|
|
|
21 |
|
|
Dim args() As String |
22 |
|
|
Dim arg As String |
23 |
|
|
'Dim blnDebug As Boolean |
24 |
|
|
'Dim strFilename As String |
25 |
|
|
|
26 |
|
|
Dim i As Integer |
27 |
|
|
Dim key As String |
28 |
|
|
Dim value As String |
29 |
|
|
|
30 |
|
|
args = Split(Command$, " ") |
31 |
|
|
For i = LBound(args) To UBound(args) |
32 |
|
|
|
33 |
|
|
'Debug.Print "i: " & i |
34 |
|
|
|
35 |
|
|
'arg = args(i) |
36 |
|
|
key = readSwitch(args(i)) |
37 |
|
|
value = "" |
38 |
|
|
If (i <> UBound(args)) Then |
39 |
|
|
value = readArgument(args(i + 1)) |
40 |
|
|
If (Left(value, 1) = Chr(34)) Then |
41 |
|
|
i = i + 1 |
42 |
|
|
value = value & " " & readArgument(args(i + 1)) |
43 |
|
|
End If |
44 |
|
|
End If |
45 |
|
|
|
46 |
|
|
If (key <> "") Then |
47 |
|
|
'Debug.Print "key: " & key |
48 |
|
|
switches.add key |
49 |
|
|
'switches.item(i + 1) = key |
50 |
|
|
If (value <> "") Then |
51 |
|
|
options.add readValue(value), key |
52 |
|
|
i = i + 1 |
53 |
|
|
Else |
54 |
|
|
options.add 1, key |
55 |
|
|
End If |
56 |
|
|
End If |
57 |
|
|
|
58 |
|
|
Next i |
59 |
|
|
|
60 |
|
|
End Sub |
61 |
|
|
|
62 |
|
|
Public Function getOptions() As Collection |
63 |
|
|
Set getOptions = options |
64 |
|
|
End Function |
65 |
|
|
|
66 |
|
|
Public Function Count() As Integer |
67 |
|
|
Count = options.Count |
68 |
|
|
End Function |
69 |
|
|
|
70 |
|
|
Public Sub dump() |
71 |
|
|
Dim i As Integer |
72 |
|
|
Dim key As String |
73 |
|
|
For i = 2 To switches.Last |
74 |
|
|
key = switches.item(i) |
75 |
|
|
Debug.Print key & ": " & options(key) |
76 |
|
|
Next |
77 |
|
|
End Sub |
78 |
|
|
|
79 |
|
|
Public Function hasSwitch(key As String) As Boolean |
80 |
|
|
|
81 |
|
|
Dim value As Variant |
82 |
|
|
|
83 |
|
|
On Error Resume Next |
84 |
|
|
value = options.item(key) |
85 |
|
|
On Error GoTo 0 |
86 |
|
|
|
87 |
|
|
If (Not IsEmpty(value)) Then |
88 |
|
|
hasSwitch = True |
89 |
|
|
Else |
90 |
|
|
hasSwitch = False |
91 |
|
|
End If |
92 |
|
|
|
93 |
|
|
End Function |
94 |
|
|
|
95 |
|
|
Public Function getArgument(key As String) As String |
96 |
|
|
If hasSwitch(key) Then |
97 |
|
|
getArgument = options.item(key) |
98 |
|
|
End If |
99 |
|
|
End Function |
100 |
|
|
|
101 |
|
|
|
102 |
|
|
Private Function readSwitch(arg As String) As String |
103 |
|
|
If (Left(arg, 2) = "--") Then |
104 |
|
|
readSwitch = LCase(Mid(arg, 3)) |
105 |
|
|
End If |
106 |
|
|
End Function |
107 |
|
|
|
108 |
|
|
Private Function readArgument(arg As String) As String |
109 |
|
|
If (Left(arg, 2) <> "--") Then |
110 |
|
|
readArgument = LCase(arg) |
111 |
|
|
End If |
112 |
|
|
End Function |
113 |
|
|
|
114 |
|
|
Private Function readValue(value As String) As String |
115 |
|
|
If (Left(value, 1) = Chr(34)) Then |
116 |
|
|
value = Mid(value, 2) |
117 |
|
|
End If |
118 |
|
|
If (Right(value, 1) = Chr(34)) Then |
119 |
|
|
value = Left(value, Len(value) - 1) |
120 |
|
|
End If |
121 |
|
|
readValue = value |
122 |
|
|
End Function |
123 |
|
|
|
124 |
|
|
|