Ver el acceso a un archivo en VB 2005.
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.
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.
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.
Síguenos en: Facebook Sobre aulaClic Política de Cookies