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 |  |