Foros del Web » Programación para mayores de 30 ;) » .NET »

Leer archivo .cvs desde una pocket pc

Estas en el tema de Leer archivo .cvs desde una pocket pc en el foro de .NET en Foros del Web. Saludos tengo un archivo de usuarios que contiene lo siguiente: prueba,123,"Usuario de Prueba, 1",A pureba2,123,Usuario de prueba2,U me gustaria leer este archivo desde mi pocket ...
  #1 (permalink)  
Antiguo 25/11/2006, 11:03
Avatar de newtonburgos  
Fecha de Ingreso: agosto-2004
Mensajes: 15
Antigüedad: 20 años, 7 meses
Puntos: 0
Pregunta Leer archivo .cvs desde una pocket pc

Saludos tengo un archivo de usuarios que contiene lo siguiente:
prueba,123,"Usuario de Prueba, 1",A
pureba2,123,Usuario de prueba2,U

me gustaria leer este archivo desde mi pocket pc tienen alguna funcion o alguna forma de leer este archivo ya que lo queiro insertar en una tabla de mi pocket pc.

gracias de ante mano.
  #2 (permalink)  
Antiguo 26/11/2006, 04:48
Avatar de freegirl
Colaborador
 
Fecha de Ingreso: octubre-2003
Ubicación: Catalonia
Mensajes: 4.334
Antigüedad: 21 años, 5 meses
Puntos: 156
hola,

este código es para una app windows form:

Cita:
Public Function GetDataTable(ByVal filePath As String, _
ByVal separator As Char, _
ByVal numberOfFields As Integer, _
Optional ByVal tableName As String = "Mi Tabla") _
As DataTable
Dim dt As DataTable = Nothing
Dim sr As System.IO.StreamReader = Nothing
If System.IO.File.Exists(filePath) Then
Try
dt = New DataTable(tableName)
'Add columns to datatable
For i As Integer = 0 To numberOfFields - 1
dt.Columns.Add(New DataColumn("Col" & i.ToString))
Next
'Open text file
sr = New System.IO.StreamReader(filePath)
Dim fields() As String
While sr.Peek <> -1
'Read a line then split it into a string array
fields = sr.ReadLine().Split(separator)
'Checks if the splitted line contains enough fields
If fields.Length >= numberOfFields Then
'If it does, create a new data row
Dim row As DataRow = dt.NewRow()
'Assign values to each fields on the new row
For j As Integer = 0 To numberOfFields - 1
row.Item(j) = fields(j)
Next
'Add the new row to datatable
dt.Rows.Add(row)
End If
End While
Catch ex As Exception
'If any error occurs during the process, display it
MsgBox(ex.Message)
Return Nothing
Finally
'Close the stream
If Not IsNothing(sr) Then
sr.Close()
End If
End Try
Else
MsgBox("No se ha encontrado el archivo")
End If
Return dt
End Function
Luego llamas la función y le pasas tus parámetros, por ejemplo:

Cita:
Dim datbl As DataTable = GetDataTable("C:\miArchivo.csv", ","c, 10, "Mi tabla")

Este código yo lo estoy usando para leer archivos csv y me va perfecto.

Espero que te sirva.

saludos
  #3 (permalink)  
Antiguo 24/12/2006, 15:21
 
Fecha de Ingreso: febrero-2005
Mensajes: 12
Antigüedad: 20 años, 1 mes
Puntos: 0
base de dato access desde una pocket pc

Saludo, me puedes ayudar en visual basic.net....

estoy tratando de hacer un pequeño programa agenda telefonica para practicar en una pocket pc...

necesito conectarme a una base dato access y poder agregar , modificar , eliminar y consultar los datos que se encuentra en access luego que me permita... gracias espero tu respuesta....
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 11:24.