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 ) < br >

"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 .