Cómo cargar una tabla desde un archivo CSV con Visual Basic

Visual Basic ( VB ) es un lenguaje de programación creado por Microsoft . VB hace adiciones importantes al conjunto de primitivas disponibles en el lenguaje de programación BASIC original, tales como recursividad y sofisticadas manipulaciones de cadenas. Valores separados por comas ( CSV ​​) es una forma generalizada de almacenamiento de la información tabular en archivos de computadora . En un archivo CSV , cada línea corresponde a una fila de la tabla que se está codificada , cada fila se compone , a su vez , de los valores correspondientes a las entradas de la columna separados por comas. Se puede escribir código VB que lee la entrada CSV en una matriz en la memoria para su posterior manipulación . Instrucciones
1

Abra el archivo CSV en modo de lectura y leyó su contenido enteros , como en este ejemplo de código:

mango As Integer

wholeContents dévil como secuencia
mango

= FreeFile

Abrir " input.csv " Para la entrada Como manejar

wholeContents = Entrada $ ( LOF ( mango) , # handle)

Cerrar manejar

Reemplazar " input.csv " por el nombre del archivo CSV es necesario analizar.
2

Separe las líneas del archivo en diferentes elementos de una Variante VB utilizando el salto de línea caracteres como separadores , como en este ejemplo de código :

lineContents Dim As Variant

lineContents = split ( wholeContents , vbCrLf )
3

Asignar la correcta número de filas y columnas en la matriz que contiene los valores en el archivo CSV original, como en este ejemplo de código:

sampleLine As Variant

nRows dévil como
Integer

ncols Dim As Integer Dim

array () como secuencia

nRows = Ubound ( lineContents )

sampleLine = split ( lineContents ( 0 ) , ",")

ncols = Ubound ( sampleLine )

array ReDim ( nRows , ncols )
4

Copia los valores de la variante que contiene todos los valores separados por comas en la matriz de VB, como en este ejemplo de código:

Dim i como entero

j Dim como Integer

For i = 0 To nRows

sampleLine = split ( lineContents ( i ) " ,")

Para j = 0 Para Ubound ( sampleLine )

array ( i , j ) = sampleLine ( j )

Siguiente j

Siguiente I Love

Después de ejecutar los dos anidada "For" loops , array "array" contendrá los mismos valores que el archivo CSV originales.