Contar letras en un archivo Curso de Programación Visual Basic

Lección:

Administración de Archivos


Ejercicio:

Contar letras en un archivo 8


Objetivo:

Cree un programa para contar la cantidad de veces que un determinado carácter está dentro de un archivo (de cualquier tipo).

El archivo y la carta se pueden pedir al usuario o pasar como parámetros:

ejemplo de recuento.txt un

Debe mostrar en pantalla la cantidad de letras encontradas.

(puede elegir cualquier forma de interactuar con el usuario, mostrando la ayuda adecuada)


Código:

Imports System
Imports System.IO
Namespace ConsoleApplication1
    Class CountLetters
        Private Shared Sub Main()
            Dim debug As Boolean = True
            Console.Write("Name of file: ")
            Dim nameFile As String = Console.ReadLine()
            Console.Write("Letter for count: ")
            Dim letter As String = Console.ReadLine()
            Dim myfile As StreamReader
            myfile = File.OpenText(nameFile)
            Dim line As String
            Dim countLetter As Integer = 0

            Do
                line = myfile.ReadLine()

                If line IsNot Nothing Then

                    For i As Integer = 0 To line.Length - 1
                        If line.Substring(i, 1) = letter Then countLetter += 1
                    Next
                End If
            Loop While line IsNot Nothing

            myfile.Close()
            Console.WriteLine("Amount of letter: {0}", countLetter)
            If debug Then Console.ReadLine()
        End Sub
    End Class
End Namespace