Unidad 38. Archivos en VB (I)





38.1. Objetivos del tema.

Ver el acceso a un archivo en VB 2005.

38.2. Introducción.

En todos los lenguajes de programación el orden de ejecución del acceso a un archivo es el mismo.

Los requisitos serán conocer:

 

El nombre del archivo

Su ubicación en nuestro sistema

La estructura del mismo.

 

A continuación necesitaremos conocer las distintas instrucciones disponibles en nuestro lenguaje para acceder al archivo en cuestión.

38.3. Abrir, acceder al archivo.

En la apertura de un archivo se pueden dar varias situaciones.

 

Queremos grabar un nuevo archivo.

Queremos grabar un archivo y ya existe.

Queremos leer un archivo y éste puede existir o no.

 

En cualquier caso necesitaremos siempre un

 

Nombre del archivo

Ubicación del archivo.

 

La sintaxis de abrir un archivo para salida, grabación o escritura, es la siguiente.

 

Module Ejemplo

  Sub main()

    Dim Canal As Int16 = FreeFile()

    Dim Nombre As String = "Pruebas.Txt"

    FileOpen(Canal, Nombre, OpenMode.Output)

    ' Cierre del Archivo

    FileClose(Canal)

  End Sub

End Module

 

La explicación.

 

  Dim Canal As Int16 = FreeFile()

 

Creamos la referencia del Archivo, asignándole un valor numérico que es la referencia en el programa para identificar el archivo una vez abierto.

 

  Dim Nombre As String = "Pruebas.Txt"

 

Creamos una variable de tipo string que tendrá el nombre, y que también podrá tener la dirección del archivo.

 

  FileOpen(Canal, Nombre, OpenMode.Output)

 

De ésta forma se crea un archivo vacío en la ruta por defecto del proyecto en curso, el archivo se abre para realizar una grabación, salida.

 

Hay que tener presente que cuando inicializamos la variable “Nombre” con el dato del nombre del archivo simultáneamente hay que indicar la dirección del archivo,

 

El siguiente paso es poder grabar datos en el mismo.

38.4. Grabar.

Si deseamos añadir datos al archivo utilizaremos el método writeline en el canal que hemos establecido anteriormente.

 

Module Ejemplo

  Sub main()

    Dim Canal As Int16 = FreeFile()

    Dim Nombre As String = "Prueba.Txt"

    Dim Valor As String

    Dim Meses() As String = {"Enero", "Febrero", "Marzo", _

                             "Abril", "Mayo", "Junio", _

                             "Julio", "Agosto", "Septiembre", _

                             "Octubre", "Noviembre", "Diciembre"}

 

    Console.WriteLine("Probamos grabar un archivo secuencial ")

    FileOpen(Canal, Nombre, OpenMode.Output)

    For Each Valor In Meses

      WriteLine(Canal, Valor) ‘ con marca fin de registro

                              ‘ sin marca Write a solas

 

      Console.WriteLine("Grabado {0} ", Valor)

    Next

    ' Cierre del Archivo

    FileClose(Canal)

  End Sub

End Module

 

Otra cosa es que en función de nuestros conocimientos, esto nos parezca o no bien, o adecuado, pero ésta es la sintaxis para grabar datos, registros.

Por lo tanto para grabar una estructura de datos que en el mundillo de la gestión es lo necesario hay que implementar alguna herramienta, que luego veremos, desarrollaremos una clase.

Octubre-2010
Pág. 38.1

Atrás  Inicio  Adelante






Página inicial  Cursos Informática Gratuitos

Síguenos en:   Facebook       Sobre aulaClic            Política de Cookies