Visual Basic

EuroCPian Spring 2004 Get Together[^]
"You can have everything in life you want if you will just help enough other people get what they want." --Zig Ziglar

Imports System.IO
Imports System.Text

Public Class FileCounts

    Private _text As String
    Private _name As String
    Private _sentences As Integer
    Private _words As Integer
    Private _characters As Integer

    Public ReadOnly Property Sentences()
        Get
            Return _sentences
        End Get
    End Property

    Public ReadOnly Property Words()
        Get
            Return _words
        End Get
    End Property

    Public ReadOnly Property Characters()
        Get
            Return _characters
        End Get
    End Property

    Public Sub New(ByVal filename As String)
        If File.Exists(filename) Then
            _name = filename
            _readFile()
            _characters = _text.Length
            _sentences = _text.Split(".").Length
            _words = _text.Split(" ").Length
        Else
            Throw New ApplicationException("File " + filename + " does not exist")
        End If
    End Sub

    Private Sub _readFile()
        Dim sb As StringBuilder = New StringBuilder
        Try
            Dim fs As FileStream = File.Open(_name, FileMode.Open, FileAccess.Read, FileShare.None)
            Dim b(1024) As Byte
            Dim temp As UTF8Encoding = New UTF8Encoding(True)
            While fs.Read(b, 0, b.Length) > 0
                sb.Append(temp.GetString(b))
            End While
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try
        _text = sb.ToString()
    End Sub

End Class