|
1 | 1 | Imports CommandLine |
| 2 | +Imports CommandLine.Text |
2 | 3 |
|
3 | 4 | Public Interface IOptions |
4 | 5 |
|
@@ -27,6 +28,16 @@ Public Class HeadOptions |
27 | 28 |
|
28 | 29 | Public Property FileName As String Implements IOptions.FileName |
29 | 30 |
|
| 31 | + <Usage(ApplicationAlias:="ReadText.Demo.VB.exe")> |
| 32 | + Public Shared ReadOnly Iterator Property IEnumerable() As IEnumerable(Of Example) |
| 33 | + Get |
| 34 | + Yield New Example("normal scenario", New HeadOptions With {.FileName = "file.bin"}) |
| 35 | + Yield New Example("specify bytes", New HeadOptions With {.FileName = "file.bin", .Bytes = 100}) |
| 36 | + Yield New Example("supress summary", UnParserSettings.WithGroupSwitchesOnly(), New HeadOptions With {.FileName = "file.bin", .Quiet = True}) |
| 37 | + Yield New Example("read more lines", New UnParserSettings() {UnParserSettings.WithGroupSwitchesOnly(), UnParserSettings.WithUseEqualTokenOnly()}, New HeadOptions With {.FileName = "file.bin", .Lines = 10}) |
| 38 | + End Get |
| 39 | + End Property |
| 40 | + |
30 | 41 | End Class |
31 | 42 |
|
32 | 43 | <[Verb]("tail", HelpText:="Displays last lines of a file.")> |
|
0 commit comments