Leer un archivo CSV en VB - Read a Csv in VB

por **admin** el Mar Sep 30, 2008 7:50 pm

Código: Seleccionar todo: ' cargo el archivo fp = FreeFile Open Archivo_Nombre For Input As fp archivo_contenido = Input$(LOF(fp), #fp) Close fp ' separo el archivo x lineas lineas = Split(archivo_contenido, vbCrLf) ' Vuelvo cada fila en un array filas_cantidad = UBound(lineas) ReDim contenido_vec(filas_cantidad) ' Guardo en el array la info For i = 0 To filas_cantidad contenido_vec(i) = Split(lineas(i), ",") Next i