Consejo .Net DataSet , Matrices ????
 

Hola a todos:

Quisiera pediros vuestro conesejo. Tengo un fichero de texto con un monton de lineas del orden de 1400000 lineas. Tengo que recorrer linea a linea y obtener informacion de cada línea, cada linea contiene una serie de campos separados por espacios en blanco.

Tengo que analizar la informacio del txt y pasarlo a una tabla access.

Por ejemplo, la línea muestra años, codigos de provincia, edad, numero solteros ...

Tengo que ir incrementado los numeros de solteros de forma coherente, ¿Que es mas rapido pasarlo a matrices con tantas dimensiones como el numero de campos?

¿O usar dataSets?

AYUDA

Si ya lo tienes en un archivo creo que lo mejor sería iterar sobre las propias lineas del archivo.
De otra forma tienes que levantar todo eso a memoria para cargarlo en una estructura (yo utilizaría un DataTable) para después si recorrerlo.

Yo lo haría directamente del archivo.

Mil gracias por contestar, lo he intentado usando un DataTable, pero me va muy lento y no me funciona, pongo el código por si veis algo raro:

Public Sub PruebasNacidos()
Dim linea As String
Dim anno As String
Dim region As String
Dim estado_civil As String
Dim edad As String
Dim orden As String
Dim dt As New DataTable


Dim srLector2 As StreamReader = New StreamReader(archivo)
linea = srLector2.ReadLine()

Do While Not (linea = Nothing)

LecturaDatosNacimiento(linea, anno, region, estado_civil, edad, orden, contador)
ActualizarTabla(anno, region, estado_civil, edad, orden, dt)

linea = srLector2.ReadLine()
Loop


ActualizarBaseDeDatos(dt, "Nacidos")


MsgBox("El proceso se ha realizado con éxito")


End Sub


Public Sub ActualizarBaseDeDatos(ByRef dt As DataTable, ByVal tableName As String)


Dim dts As New DataSet("Nacidos")
Dim nuevo_data As New getDataset

dts.Tables.Add(dt)
nuevo_data.dts2db2(dts, tableName)

End Sub

Public Sub ActualizarTabla(ByVal anno As String, ByVal region As String, ByVal estado_civil As String, ByVal edad As String, _
ByVal orden As String, ByRef dt As DataTable)

Dim str As String, valor


str = "Anno = '" & anno & "'"
str &= " AND Provincia = '" & region & "'"
str &= " AND Estado = '" & estado_civil & "'"
str &= " AND Edad = '" & edad & "'"

Dim rows() As DataRow = dt.Select(str)


If rows.Length() > 0 Then
Exit Sub
Dim r As DataRow

r = rows(0)

Select Case orden



Case " 1", "1 ", "01"

r.BeginEdit()
r("Orden1") = r(4) + 1
r("Total") = r(9) + 1
r.EndEdit()
dt.AcceptChanges()

Case " 2", "2 ", "02"

r.BeginEdit()
r("Orden2") = r(5) + 1
r("Total") = r(9) + 1
r.EndEdit()
dt.AcceptChanges()

Case " 3", "3 ", "03"

r.BeginEdit()
r("Orden3") = r(6) + 1
r("Total") = r(9) + 1
r.EndEdit()
dt.AcceptChanges()

Case " 4", "4 ", "04"

r.BeginEdit()
r("Orden4") = r(7) + 1
r("Total") = r(9) + 1
r.EndEdit()
dt.AcceptChanges()

Case Else
r.BeginEdit()
r("Orden5") = r(8) + 1
r("Total") = r(9) + 1
r.EndEdit()
dt.AcceptChanges()

End Select

'Añadimos
Else

Dim Nrows As DataRow
Nrows = dt.NewRow()
Nrows("Anno") = anno
Nrows("Provincia") = region
Nrows("Edad") = edad
Nrows("Estado") = estado_civil
Nrows("Orden1") = 0
Nrows("Orden2") = 0
Nrows("Orden3") = 0
Nrows("Orden4") = 0
Nrows("Orden5") = 0
Select Case orden

Case " 1", "1 ", "01"

Nrows("Orden1") = 1
Nrows("Total") = 1


Case " 2", "2 ", "02"

Nrows("Orden2") = 1
Nrows("Total") = 1

Case " 3", "3 ", "03"

Nrows("Orden3") = 1
Nrows("Total") = 1

Case " 4", "4 ", "04"

Nrows("Orden4") = 1
Nrows("Total") = 1

Case Else

Nrows("Orden5") = 1
Nrows("Total") = 1


End Select

dt.Rows.Add(Nrows)

End If

End Sub

ublic Function dts2db(ByVal dts As DataSet, ByVal tablename As String)
'Dim sSel As String = "INSERT INTO _TEF(anno,region,edad1,edad2,orden,valor) FROM _TEF"
Dim sSel As String = "SELECT * FROM " & tablename & " ORDER BY anno"
Dim dbDataAdapter As OleDbDataAdapter
connect()
' Crear un nuevo objeto del tipo DataAdapter
dbDataAdapter = New OleDbDataAdapter(sSel, conn)
' Crear los comandos de insertar, actualizar y eliminar
Dim cb As New OleDbCommandBuilder(dbDataAdapter)

dbDataAdapter.MissingSchemaAction = MissingSchemaAction.AddWithKey


Try
dbDataAdapter.Update(dts, tablename)
Catch ex As System.InvalidOperationException
MsgBox(ex.ToString)
Exit Function
Catch ex As System.Data.OleDb.OleDbException
MsgBox("Debe cerrar todas las aplicaciones Access")
MsgBox(ex.ToString)
Exit Function
End Try


dts.AcceptChanges()

End Function