Cómo leer el archivo CSV en VB

Valores separados por comas (CSV) es un formato de archivo de texto simple que se utiliza comúnmente para almacenar datos. Una fila representa cada registro en este formato, y dentro de cada fila, una coma separa cada valor. Basic 6 secuencias de archivo de entrada-salida o visuales objeto de acceso a datos se pueden utilizar para cargar y leer un archivo CSV.

Instrucciones

1 Crear un nuevo proyecto en Visual Basic. Si desea agregar la funcionalidad para leer un archivo CSV a un proyecto existente, puede omitir este paso.

2 Añadir una clase al proyecto haciendo clic derecho sobre el nombre del proyecto en el Explorador de proyectos y seleccionando "Agregar módulo de clase."

3 Establezca la propiedad nombre de la clase de "CFileReader" o un nombre utilizando sus normas de codificación.

4 Agregue una referencia a la biblioteca de Active Data Objects (ADO) seleccionando el menú "Proyecto> Referencias" y luego seleccionar la opción "Microsoft ActiveX Data Objects 2.5 Library" o el "Microsoft ActiveX Data Objects 2.6 Library".

5 Ingrese el código siguiente en la clase:

Función privada ReadCSV (ByVal nombre de archivo como secuencia) como ADODB.Recordset

Como conexión Dim ADODB.Connection

fileRecords dévil como ADODB.Recordset

Dim como secuencia fileQuery

Dim numCamp como número entero

"Esta unidad es compatible con Extended Properties = 'text; FMT = Delimitado'"

"También hay un argumento adicional, HDR con sí o no los valores que indica si el archivo tiene un encabezado

'ConnOpen "Provider = Microsoft.Jet" _

'Y ".OLEDB.4.0; Data Source =" & _ app.Path

"Y"; Extended Properties = 'text; HDR = NO; " _

'Y "FMT = Delimitado'"

Set connection = New ADODB.Connection

connection.ConnectionString = _

"Driver = {Microsoft controlador de texto (* .txt; * .csv)};" & _

"DBQ =" & app.Path & "", "", ""

connection.Open

fileQuery = "SELECT * FROM" y nomArchivo

Establecer fileRecords = Connection.Execute (fileQuery)

Establecer ReadCSV = fileRecords

End Function

Este código se conecta a un archivo de texto usando el controlador de texto Microsoft y selecciona todas las filas en un conjunto de registros ADO.

6 Llame a la función de la aplicación de un evento o una consola deseada.

Consejos y advertencias

• Encapsular el código en una clase permite que se reutiliza de muchos lugares.