CREAR ARCHIVOS TXT EN VISUAL BASIC 2010

Buenas hoy veremos un ejemplo para crear un archivo .txt en visual basic .NET  utilizando la herramienta visual studio 2010.

el manual de referencia lo podemos encontrar en el libro 

VISUAL BASIC .NET lenguaje y aplicaciones 3ra edicion  Fco. Javier Ceballos

el tipo de acceso mas simple a un fichero de datos es el secuencial, un fichero abierto  para acceso secuencial es un fichero que puede almacenar registros de cualquier longitud.

Este tipo de acceso generalmente se utiliza con ficheros de texto en los que se escribe toda la información

desde el principio hasta el final y se lee de la misma forma.

las acciones mas comunes que se manejan a la hora de trabajar con archivos son:

CreateNew: crea un nuevo fichero. Si el fichero existe se lanzara una excepción del tipo IOException

Create: Crear un nuevo fichero. Si el fichero existe sera sobrescrito 

Open: abrir el fichero existente

OpenOrCreate: abrir un fichero si existe si no se crea uno nuevo

Truncate: abrir un fichero existente y truncar su longitud a cero bytes

Apenned: abrir un fichero para añadir datos al final del mismo

los parámetros de acceso pueden tomas las siguientes acciones

Read: permite acceder al fichero para realizar acciones de lectura
ReadWrite: Permite acceder al fichero para realizar acciones de lectura y escritura
Write: permite acceder al fichero para realizar operaciones de escritura

EJEMPLO


Imports System
Imports System.IO
'se define el modulo y el nombre del modulo
Module Module1

    Public Sub Main()
        Dim fs As FileStream
        Dim buffer(80) As Byte
        Dim nbytes, car As Integer
        Dim CR As Integer = 13
        Try
            'crear el flujo hacia el fichero de texto texto.txt
            fs = New FileStream("texto.txt", FileMode.Create, FileAccess.Write)
            Console.WriteLine("escriba el texto que desea guardar en el archivo:")
            car = Console.Read()
            While (car <> CR And nbytes < buffer.Length)
                buffer(nbytes) = Convert.ToByte(car)
                nbytes += 1
                car = Console.Read()
            End While
            'escribir la linea de texto en el fichero
            fs.Write(buffer, 0, nbytes)
        Catch e As IOException
            Console.WriteLine("Error: " + e.Message)
        End Try
    End Sub
End Module