Parent Directory | Revision Log | Patch
revision 1.1 by joko, Sat Sep 1 15:18:39 2007 UTC | revision 1.2 by joko, Sat Sep 1 15:22:49 2007 UTC | |
---|---|---|
# | Line 17 Public Function getCmdArg(name As String | Line 17 Public Function getCmdArg(name As String |
17 | args = Split(Command$, " ") | args = Split(Command$, " ") |
18 | ||
19 | Dim i As Integer | Dim i As Integer |
20 | 'MsgBox UBound(args) | |
21 | For i = 0 To UBound(args) | For i = 0 To UBound(args) |
22 | MsgBox args(i) | 'MsgBox i & ": " & args(i) |
23 | i = i + 1 | If args(i) = name Then |
24 | getCmdArg = args(i + 1) | |
25 | 'i = i + 1 | |
26 | Exit Function | |
27 | End If | |
28 | Next | Next |
29 | ||
30 | End Function | End Function |
|
MailToCvsAdmin">MailToCvsAdmin | ViewVC Help |
Powered by ViewVC 1.1.26 |