Cómo detectar el final de un archivo en Visual Basic

. El marco neto dentro de Visual Basic incluye varias formas de abrir y leer un archivo de disco. La mayoría utiliza algún tipo de clase StreamReader para convertir el archivo en un flujo secuencial de caracteres o líneas. Cada carácter o línea a continuación, se lee en la memoria y el programa procesa los datos de principio a fin. Cuando el último personaje es leído por el programa , el indicador EndOfStream se establece en true . Usted puede construir un pequeño programa que se copia el archivo de origen a la consola mientras se ve el indicador de fin de archivo. Instrucciones
1

Crear una nueva aplicación de consola de Visual Basic . Abra Visual Basic Express (o Visual Studio ) . Haga clic en " Archivo", " Nuevo proyecto ". En la vista de árbol , haga clic en Aplicación para Windows en Visual Basic, seleccione el icono de aplicación de consola y luego haga clic en el botón " OK" . Después de una corta espera , aparecerá una nueva ventana de código
2

Agregue la siguiente línea al inicio del archivo antes de la declaración del módulo : .

Imports System.IO

Module Module1

Esto indica a Visual Basic que va a utilizar las clases en el espacio de nombres System.IO .
3

Declarar algunas variables de memoria al comienzo del la subrutina principal de la siguiente manera :

Sub Main ()

fileName As String = " .. \\ .. \\ Module1.vb "

rdr As StreamReader

Dim txt As String

el nombre de archivo variable contiene el nombre del archivo para ser leído. Los dos períodos dobles (.. \\ ) indica que el archivo es de dos carpetas desde el directorio actual. Desde que el programa se ejecuta en segundo bin carpeta de destino \\ debug o bin \\ , tenemos que subir dos carpetas para encontrar el archivo de origen.

Rdr variables celebrará una instancia de la clase StreamReader en el System.IO paquete . El StreamReader contiene todos los métodos que se utilizan para leer el archivo .

La variable txt se utilizarán para mantener cada línea del archivo , ya que se copia .
4

Abra el texto archivo con el siguiente código:

Prueba

rdr = File.OpenText ( fileName )

Catch ex As Exception

Console.WriteLine ( " no se puede abrir archivo " y ex.Message )

Volver

End Try

el método File.OpenText crea una instancia de la StreamReader señalado en el archivo. Si el archivo no existe , se produce una excepción y un mensaje de error se escribe
5

Lea el archivo y copiarlo en la consola con el siguiente código: .

Mientras rdr . EndOfStream = False

txt = rdr.ReadLine

Console.WriteLine (txt )

End While

El circuito es bastante sencillo. Antes de que comience el bucle, el EndOfStream es falso ( a menos que el archivo está vacío ) . En cada ocurrencia del bucle, una línea de texto que se lee en la variable txt luego se escriben en la consola. Después de leer la última línea , el indicador EndOfStream queda establecida en true y finaliza el bucle .
6

Cierre el archivo cuando el bucle termina .

Rdr.Close ()

End Sub End Module

método Close del StreamReader libera el archivo, entonces el programa termina .