Tecnología

Inicio

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 significativas al conjunto de primitivas disponibles en el lenguaje de programación BASIC original, como la recursividad y las manipulaciones de cadenas sofisticadas. valores separados por comas (CSV) es una forma generalizada de almacenar 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 las columnas separadas por comas. Se puede escribir código VB que lee la entrada CSV en un array en memoria para su posterior manipulación.

Instrucciones

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

manija Dim As Integer

wholeContents Dim como secuencia

handle = FreeFile

Abrir "input.csv" For Input As mango

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

Cerrar un gestor

Reemplazar "input.csv" por el nombre del archivo CSV que tiene que analizar.

2 Separar las líneas del archivo en diferentes elementos de una variante de VB utilizando los caracteres de nueva línea como separadores, como en este ejemplo de código:

lineContents Dim As Variant

lineContents = Split (wholeContents, vbCRLF)

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

Dim sampleLine como variante

nRows As Integer Dim

NCOLS As Integer Dim

Dim matriz () As String

nRows = Ubound (lineContents)

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

NCOLS = Ubound (sampleLine)

ReDim matriz (nRows, NCOLS)

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

Dim i como entero

j tenue como entero

Para i = 0 Para nRows

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

Para j = 0 Para Ubound (sampleLine)

array(i,j) = sampleLine(j)

Siguiente j

Siguiente yo

Después de la ejecución de los dos anidada "Para" bucles, matriz "array" contendrá los mismos valores que el archivo CSV originales.