Permalink
Cannot retrieve contributors at this time
Fetching contributors…
| ' Visual Basic .NET Document | |
| Option Strict On | |
| ' <Snippet1> | |
| Imports System.IO | |
| Module Example | |
| Public Sub Main() | |
| Dim buffer(49) As Char | |
| Using s As New StreamReader("File1.txt") | |
| Dim charsRead As Integer | |
| Do While s.Peek() <> -1 | |
| charsRead = s.Read(buffer, 0, buffer.Length) | |
| ' | |
| ' Process characters read. | |
| ' | |
| Loop | |
| s.Close() | |
| End Using | |
| End Sub | |
| End Module | |
| ' </Snippet1> |