leer archivo csv, transformar datos y crear un nuevo csv

[erbuson]

Hola, de nuevo. Haber empezado por ahí, es igualmente facil. Te cuento con un ejemplo con comentarios.

Código vb:

Dim Dato() As String
Dim RegistroCompleto As String
Dim Registro As Long
Dim Nombre As String, Poblacion As String, Fecha As Date, Importe As Currency
  
Do While Not EOF(1)
  ' Supongamos que lees este Registro
  ' Jose;12/04/1980;Madrid;1280
  Line Input #1, RegistroCompleto     ' Leemos una linea completa
  Registro = Registro + 1             ' Contador de Registros leidos
  ' De este modo no tiene importancia los campos contenidos en el Registro
  If Registro < 6 Then GoTo NoProcesarlo
  ' Aqui puedes aplicar la comparación de Par/Impar, etc
  Dato = Split(RegistroCompleto, ";") ' Separamos el registro en un array
  ' Aqui tenemos los siguientes valores
  ' Dato(0) = "Jose"
  ' Dato(1) = "12/04/1980"
  ' Dato(2) = "Madrid"
  ' Dato(3) = "1280"
  ' Otra posible comparación aqui sería con un dato en concreto por ejemplo
  If Dato(0) <> "Jose" Then Goto NoProcesarlo   ' Por supuesto es un ejemplo 
  ' Pasamos por ejemplo los datos a nuestras variables
  Nombre = Dato(0)
  ' Verificamos que el valor leido es una fecha para evitar un posible error
  If IsDate(Dato(1)) Then Fecha = CDate(Dato(1))
  Poblacion = Dato(2)
  ' Verificamos que el valor leido es un numero para evitar posibles errores
  If IsNumeric(Dato(3)) Then Importe = CCur(Dato(3))
  ' ...
  ' ...
NoProcesarlo:
  Loop
 

Si necesitas mas aclaraciones las comentamos.

Saludos