Parent Directory
| 
Revision Log
| 
Patch
| revision 1.1 by joko, Wed Sep 28 20:36:46 2005 UTC | revision 1.2 by joko, Sun Oct 9 18:43:03 2005 UTC | |
|---|---|---|
| # | Line 47 Public Sub parse() | Line 47 Public Sub parse() |
| 47 | 'Debug.Print "key: " & key | 'Debug.Print "key: " & key |
| 48 | switches.add key | switches.add key |
| 49 | 'switches.item(i + 1) = key | 'switches.item(i + 1) = key |
| 50 | ||
| 51 | On Error Resume Next | |
| 52 | If (value <> "") Then | If (value <> "") Then |
| 53 | options.add readValue(value), key | options.add readValue(value), key |
| 54 | i = i + 1 | i = i + 1 |
| 55 | Else | Else |
| 56 | options.add 1, key | options.add 1, key |
| 57 | End If | End If |
| 58 | On Error GoTo 0 | |
| 59 | ||
| 60 | End If | End If |
| 61 | ||
| 62 | Next i | Next i |
|
||||||||
| MailToCvsAdmin">MailToCvsAdmin | ViewVC Help |
| Powered by ViewVC 1.1.26 |  |