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.