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

fijos archivos de texto de ancho son un formato de datos en la que se almacena la información en una serie de columnas , cada una de un ancho fijo , que permite que cualquier equipo que conoce el ancho predeterminado de la columna de forma rápida y leer fácilmente los datos sin analizar especial. También permite que los datos a imprimir en las tablas fácilmente legibles 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 inscritos en la biblioteca. Instrucciones
1

Crear un nuevo proyecto haciendo clic en " Archivo", " Nuevo proyecto" . Seleccione el tipo de " Aplicación de consola " . Más tarde, se puede utilizar el mismo código , sin modificaciones , en el marco de un proyecto de interfaz gráfica de usuario ( GUI) . Asigne un nombre al proyecto. " Escritor ancho fijo "
2

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

Const TITLE_FIELD como número entero = 25
< p > 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 denominada libraryData :

Dim libraryData (,) como String =

{ {" To Kill a Mockingbird ", " Harper Lee" , " 01/23/2010 "}, {

" The Stand "," Stephen king " , " 02/15/1992 "} }
4

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

archivo de texto dévil como secuencia = " archivo.txt "

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

"False" indica que no desea anexar los datos en el archivo.
5

Pega el siguiente para escribir la columna la función clave de esto es la función de " PadRight " : este concede tantos espacios como sea necesario para el 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 As Integer = 0 a libraryData.getLength ( 0 ) - Página 7

Pega el siguiente para cerrar el archivo :

textWriter.Flush ()

textWriter.Close ()

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