. 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 < br >
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 () < br >
End Sub End Module
método Close del StreamReader libera el archivo, entonces el programa termina .