Tecnología

Inicio

Cómo escribir texto de ancho fijo archivos con Visual Basic

August 5

Archivos de anchura fija de texto son un formato de datos en que la información se almacena en una serie de columnas, cada una de una anchura fija, permitiendo a cualquier equipo que sabe la anchura predefinida de la columna para leer de forma rápida y fácilmente los datos sin analizar especial. También permite que los datos a ser impresos en las tablas fácilmente legible por humanos. Entre otros usos, los resultados de los comandos de MySQL se dan comúnmente en formato de ancho fijo. Para este ejemplo, el programa escribirá un archivo de texto de ancho fijo para una base de datos de biblioteca con títulos, autores y fechas de los libros introducidos en la biblioteca.

Instrucciones

1 Crear un nuevo proyecto haciendo clic en "Archivo", "Nuevo proyecto". Elija el tipo "Aplicación de consola". Más tarde, se puede utilizar el mismo código, sin modificaciones, como parte de un proyecto de interfaz gráfica de usuario (GUI). Proyecto el nombre "Fixed escritor Ancho".

2 Pegar las siguientes constantes ancho de columna en la parte superior del código fuente:

Const TITLE_FIELD como número entero = 25

Const AUTHOR_FIELD como número entero = 15

Cosnt DATE_FIELD como número entero = 10

3 Pegar los datos de la biblioteca para los libros. Será colocado en una matriz llamada libraryData:

Dim libraryData (,) como secuencia =

{{ "Matar a un ruiseñor", "Harper Lee", "01/23/2010"},

{ "The Stand", "Stephen King", "02/15/1992"}}

4 Crear un archivo de texto para escribir como un archivo de texto de ancho fijo y crear un "TextFileWriter" para ello:

Dim archivo de texto como cadena = "archivo.txt"

dim = TextWriter My.Computer.FileSystem.OpenTextFileWriter (archivo de texto, False)

El "falso" indica que no desea anexar los datos en el archivo.

5 Pega el siguiente para escribir los encabezados de columna:

textWriter.Write ( "TITLE" .PadRight (TITLE_FIELD))

textWriter.Write ( "AUTOR" .PadRight (AUTHOR_FIELD))

textWriter.Write ( "FECHA" .PadRight (DATE_FIELD))

textWriter.WriteLine ()

La función clave de esto es la función "PadRight": este se une tantos espacios según sea necesario al final de la cadena para que sea igual a un total del número dado de espacios. Esto le permite imprimir cada columna a un ancho fijo.

6 Pega el siguiente para escribir los datos en el archivo:

Para x = 0 como número entero a libraryData.getLength (0) - 1

textwriter.write(libraryData(x,0).PadRight(TITLE_FIELD)

textwriter.write (libraryData (x, 1) .PadRight (AUTHOR_FIELD)

textwriter.write (libraryData (x, 2) .PadRight (DATE_FIELD)

textWriter.writeLine ()

siguiente

7 Pega el siguiente para cerrar el archivo:

textWriter.Flush ()

textWriter.Close ()

"Flush" asegura que el último de los datos se han escrito en el archivo.

Consejos y advertencias

  • El siguiente código lee los datos desde el archivo e imprimirlo a la consola, si desea añadir al final de su programa:
  • lector de Dim = My.Computer.FileSystem.OpenTextFileReader (archivo de texto)
  • Console.Write (reader.readToEnd ())
  • Console.ReadKey ()