Cargar base de datos de texto plano

[raul338]

Hola a tod@s!!!

tengo un archivo txt con la siguente estructura: Nº Legajo, Nombre de compañia, Direccion. Separados por ; (punto y coma). Alguien sabe como cargarlos a un DataSet? se que se puede, una vez hice algo parecido.

un ejemplo de la base de datos de texto plano

Código: Seleccionar todo

1. 011;Jose asociados;502 Ruta 10


2. 021;Jumpa S.A.;1045 Av. Clinton

Espero que me puedan ayudar

[Vicitor2006]

Si, creo que tengo ujn programa que te puede ayudar, en cuanto lo encuentre lo subo

[raul338]

Para el que estuvo interesado y no pudo ayudarme aca esta la respuesta

Código: Seleccionar todo

1.     Public Function GetTables(ByVal nombreCampos As String(), ByVal tipoCampos() As Type, ByVal nombreArchivo As String) As DataTable


2.         Dim kf, kc, f, c As Integer  


3.         // kf            cantidad de filas


4.         // kc            cantidad de columnas


5.         // f, c           fila, columna   (contadores)  


6.         kc = nombreCampos.Length


7.  


8.         Dim dt As New DataTable


9.         For i As Int32 = 0 To kc - 1


10.             Dim dCol As New DataColumn(nombreCampos(i), tipoCampos(i))


11.             dt.Columns.Add(dCol)


12.         Next


13.  


14.         Dim sReader As New StreamReader(nombreArch)


15.         Dim arrFilas As String()


16.  


17.         While sReader.Peek()


18.             Dim dRow As DataRow = dt.NewRow()


19.             Dim linea As String = sReader.ReadLine()


20.             If IsNothing(linea) Then Exit While


21.             arrFilas = Split(linea, ";", , CompareMethod.Text)


22.             Dim ke As Int32 = arrFilas.Length


23.             For i As Int32 = 0 To ke - 1


24.                 dRow(i) = arrFilas(i)


25.             Next


26.             kf += 1


27.             dt.Rows.Add(dRow)


28.         End While


29.         Console.WriteLine("...Listo")


30.         sReader.Close()


31.         Return dt


32.     End Function

y para llamar a la funcion se necesitan 2 arrays (arreglos), uno con los tipos de datos de las columnas y otro con sus respectivos nombres

Código: Seleccionar todo

1.     Public Sub CargarTablas()


2.         Dim arrTipos(5) As Type


3.  


4.         arrTipos(0) = Type.GetType("System.Int32", True)


5.         arrTipos(1) = Type.GetType("System.Int32", True)


6.         arrTipos(2) = Type.GetType("System.Int32", True)


7.         arrTipos(3) = Type.GetType("System.DateTime", True)


8.         arrTipos(4) = Type.GetType("System.Decimal", True)


9.         arrTipos(5) = Type.GetType("System.String", True)


10.  


11.         Dim arrCampos(5) As String


12.         arrCampos(0) = "ID"


13.         arrCampos(1) = "IDCliente"


14.         arrCampos(2) = "NroDoc"


15.         arrCampos(3) = "Fecha"


16.         arrCampos(4) = "Importe"


17.         arrCampos(5) = "Tipo Documento"


18.  


19.         Dim nombreArch As String = "tventas.txt"


20.         dtVentas = GetTables(arrCampos, arrTipos, nombreArch)


21.     End Sub

Espero que les sirva (a algunos les servira, dan buena paga por estos tipos de programas)

[Vicitor2006]

Eso en que lenguaje esta programado, se que no es C# pero nada mas

[raul338]

ups, eso era en visual basic .net

jejejej me equivoque de foro

Espero que me disculpen

[Vicitor2006]

ups, eso era en visual basic .net

jejejej me equivoque de foro

Espero que me disculpen

Bueno eso tambien pero yo lo decia para informarme sobre el lenguajes y poder comprenderlo.